Journal and expressions 1

[kukelyk]

Is there a way to assign the value of a journal variable to an expression?
The value comes from a VB form, so it is a number, but in a string. I want to use this in a length type expression.
I tried to convert it to Double, but not worked.
any suggestions are appreciated


----
kukelyk

 

[cowski]

Here's a quick example:

[COLOR=blue]Option[/color] [COLOR=blue]Strict[/color] [COLOR=blue]Off[/color]  
[COLOR=blue]Imports[/color] System  
[COLOR=blue]Imports[/color] NXOpen  

[COLOR=blue]Module[/color] Module1  

    [COLOR=blue]Sub[/color] Main()  

        [COLOR=blue]Dim[/color] theSession [COLOR=blue]As[/color] Session [COLOR=blue]=[/color] Session.GetSession()  
        [COLOR=blue]Dim[/color] workPart [COLOR=blue]As[/color] Part [COLOR=blue]=[/color] theSession.Parts.Work  

        [COLOR=blue]Dim[/color] myExpName [COLOR=blue]As[/color] [COLOR=blue]String[/color] [COLOR=blue]=[/color] "test"  
        [COLOR=blue]Dim[/color] myStringValue [COLOR=blue]As[/color] [COLOR=blue]String[/color] [COLOR=blue]=[/color] "2.71828"  
        [COLOR=blue]Dim[/color] myNewStringValue [COLOR=blue]As[/color] [COLOR=blue]String[/color] [COLOR=blue]=[/color] "6.283185"  

        [COLOR=blue]Dim[/color] expression1 [COLOR=blue]As[/color] Expression  
        [COLOR=blue]Dim[/color] expExists [COLOR=blue]As[/color] [COLOR=blue]Boolean[/color] [COLOR=blue]=[/color] [COLOR=blue]False[/color]  
        [COLOR=blue]For[/color] [COLOR=blue]Each[/color] myExp [COLOR=blue]As[/color] Expression [COLOR=blue]In[/color] workPart.Expressions.ToArray  
            [COLOR=blue]If[/color] myExp.Name [COLOR=blue]=[/color] myExpName [COLOR=blue]Then[/color]  
                expExists [COLOR=blue]=[/color] [COLOR=blue]True[/color]  
                expression1 [COLOR=blue]=[/color] myExp  
                [COLOR=blue]Exit[/color] [COLOR=blue]For[/color]  
            End [COLOR=blue]If[/color]  
        [COLOR=blue]Next[/color]  

        [COLOR=blue]Dim[/color] markId1 [COLOR=blue]As[/color] Session.UndoMarkId  
        markId1 [COLOR=blue]=[/color] theSession.SetUndoMark(Session.MarkVisibility.Visible, "Expression")  

        [COLOR=blue]Dim[/color] unit1 [COLOR=blue]As[/color] Unit [COLOR=blue]=[/color] CType(workPart.UnitCollection.FindObject("Inch"), Unit)  

        [COLOR=blue]If[/color] [COLOR=blue]Not[/color] expExists [COLOR=blue]Then[/color]  
            expression1 [COLOR=blue]=[/color] workPart.Expressions.CreateWithUnits(myExpName [COLOR=blue]&[/color] "=" [COLOR=blue]&[/color] myStringValue, unit1)  
        [COLOR=blue]Else[/color]  
            expression1.RightHandSide [COLOR=blue]=[/color] myNewStringValue  
        End [COLOR=blue]If[/color]  

        [COLOR=blue]Dim[/color] nErrs1 [COLOR=blue]As[/color] [COLOR=blue]Integer[/color]  
        nErrs1 [COLOR=blue]=[/color] theSession.UpdateManager.DoUpdate(markId1)  

    End [COLOR=blue]Sub[/color]  


    [COLOR=blue]Public[/color] [COLOR=blue]Function[/color] GetUnloadOption(ByVal dummy [COLOR=blue]As[/color] [COLOR=blue]String[/color]) [COLOR=blue]As[/color] [COLOR=blue]Integer[/color]  

 [COLOR=green]'Unloads the image when the NX session terminates[/color]
        GetUnloadOption [COLOR=blue]=[/color] NXOpen.Session.LibraryUnloadOption.AtTermination  

    End [COLOR=blue]Function[/color]  

End [COLOR=blue]Module[/color]

www.nxjournaling.com

 

[kukelyk]

Thanks for your attention, tomorrow i will try it.

----
kukelyk