hexagon logo
Register Sign in
  • Replies 11 replies
  • Subscribers 30 subscribers
  • Views 177 views
  • Users 0 members are here
Options
Related

Passing Part Variables back and forth

Chally72
I am having a helluva time trying to pull variables from the part program. The first time I pull a variable in this script, (Shown in blue) it works beautiful. The second time, pulling the same variable (shown in red), it pulls nothing! I have slowly changed the second call back to the exact text of the first, because nothing is working! Now it is identical except for the variable name the part variable is being assigned to and it still won't work! W T F! AngryAngryAngry 

Dim Var
Dim Var2 As Object

If dblouttol > 0 Then 
   MsgBox "Part is BAD!" & Chr(10) & "Number of Dimensions Out of Tolerance:" & dblouttol & Chr(10) &"Features out of tolerance:" & Chr(10) & Msg ' Display the ID's that are out of tolerance
   [COLOR="Blue"]Set Var = objPART.GetVariableValue ("SUB_OUTTOLNUM")[/COLOR]        'Grabs the variable SUB_OUTTOLNUM from the subroutine program
   Var.stringvalue  = dblOutTol                                      'Sets variable As number of outtol dimensions. Change this To actual CMM Name/number
   Set Var2 = objPART.getvariablevalue ("SUB_ACCEPTREJECT")  'Grabs the variable Sub_ACCEPTREJECT from the subroutine program
   var2.stringvalue = "~~4 REJECTED"                                                                       'Sets variable As Accept, As part is good
                
End If  

objPART.SetVariableValue "SUB_OUTTOLNUM", Var                  'Passes the number of outtol dimensions back To the subroutine
objPART.SetVariableValue "SUB_ACCEPTREJECT", Var2           'Passes the Accept/Reject variable back To the subroutine


Dim Test1

[COLOR="Red"]Set Test1 = objpart.GetVariableValue ("SUB_OUTTOLNUM") [/COLOR]
msgbox Test1.stringvalue
Parents
  • Now I am having problems with my workaround. When I add variables to the Sub Main () line, so it looks like this: 

    Sub Main (CMMNAME As String, Workorder As String, Serialnumber As String, Clocknumber As String, Partname As String)


    I get an error message saying "Error on line 268- Unknown name: (null)"

    Line 268 is my End Sub line. 

    End Sub


    What does it expect that I'm not doing? When I run the script from within a part program, no error message pops up. It still seems to execute the script correctly right to the last line, and closes all files and all that. Is it because when I am editing the script it has trouble pulling values for these variables I declare in the Sub Main () block?

    ConfusedConfused This is still very much unfamiliar terrain for me.
Reply
  • Now I am having problems with my workaround. When I add variables to the Sub Main () line, so it looks like this: 

    Sub Main (CMMNAME As String, Workorder As String, Serialnumber As String, Clocknumber As String, Partname As String)


    I get an error message saying "Error on line 268- Unknown name: (null)"

    Line 268 is my End Sub line. 

    End Sub


    What does it expect that I'm not doing? When I run the script from within a part program, no error message pops up. It still seems to execute the script correctly right to the last line, and closes all files and all that. Is it because when I am editing the script it has trouble pulling values for these variables I declare in the Sub Main () block?

    ConfusedConfused This is still very much unfamiliar terrain for me.
Children
No Data
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement