Passing Part Variables back and forth

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!

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

BENZ3254 over 15 years ago

EDIT: Wrong sn, same person.

I am not setting it twice normally. I tried to grab a new variable from the program and failed. So I slowly changed my code back until it exactly matched what I did previously in the program, including variables. It STILL did not work. Trying to copy and paste the line that worked ANYWHERE else in the program fails, whether it is before or after the line that works.

Aside from the example I posted not having Dim __ As Object, (which I have tried as well), it matches your example exactly. Could I have done something within the script that would screw itself up so it couldnt grab the variables?
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel

Reply

BENZ3254 over 15 years ago

EDIT: Wrong sn, same person.

I am not setting it twice normally. I tried to grab a new variable from the program and failed. So I slowly changed my code back until it exactly matched what I did previously in the program, including variables. It STILL did not work. Trying to copy and paste the line that worked ANYWHERE else in the program fails, whether it is before or after the line that works.

Aside from the example I posted not having Dim __ As Object, (which I have tried as well), it matches your example exactly. Could I have done something within the script that would screw itself up so it couldnt grab the variables?
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel

Children

No Data