can you post your script and PCDMIS code. SetVariableValue should work in 3.7. It must be something else. I'm not sure what the print is for. I don't have any print commands going on.
Craig
My program gives me this error:
---------------------------
PC-DMIS Basic Scripting Engine
---------------------------
Error on line: 8 - OLE Automation object does not have a default value
---------------------------
OK
---------------------------
My program is here:
PART NAME : WarmUp
REV NUMBER :
SER NUMBER :
STATS COUNT : 1
STARTUP =ALIGNMENT/START,RECALL:, LIST= YES
ALIGNMENT/END
MODE/MANUAL
PREHIT/ 1.27
RETRACT/ 1.27
CHECK/ 12.7,0.5
COMMENT/DOC,NO,Press F5 to ensure DISPLAY ABSOLUTE SPEEDS is checked
COMMENT/DOC,NO,Set MOVESPEED to 100 for calculating time accurately
MOVESPEED/ 100
TOUCHSPEED/ 1
SCANSPEED/ 1
MANRETRACT/20
LOADPROBE/CURRENT
TIP/T1A0B0, SHANKIJK=0, 0, 1, ANGLE=0
FORMAT/TEXT,OPTIONS, ,HEADINGS,SYMBOLS, ;NOM,MEAS,DEV,TOL,OUTTOL, ,
COMMENT/OPER,NO,Program first prompts for lower left, then upper right limits of a bounding box in which all movement will be contained.
COMMENT/OPER,NO,Move probe to lower left rear of warmup region
PNT1 =FEAT/POINT,RECT
THEO/-114.2102,246.0056,-322.6612,0,0,1
ACTL/150.7531,361.0903,-235.1847,0,0,1
READPOINT/
COMMENT/OPER,NO,Move probe to top right front of warmup region
PNT2 =FEAT/POINT,RECT
THEO/301.1047,13.9373,-179.6567,0,0,1
ACTL/268.4931,312.5765,-201.2698,0,0,1
READPOINT/
ASSIGN/Z_STEP = (PNT2.Z - PNT1.Z)/10
COMMENT/DOC,NO,PNT3 is a temporary variable to step in Z
PNT3 =FEAT/POINT,RECT
THEO/301.1049,13.9372,-179.6562,0,0,1
ACTL/268.4929,312.5768,-192.7895,0,0,1
READPOINT/
ALN0 =ALIGNMENT/START,RECALL:STARTUP, LIST= YES
ALIGNMENT/LEVEL,ZPLUS,PNT1
ALIGNMENT/ROTATE,XPLUS,TO,PNT1,ABOUT,ZPLUS
ALIGNMENT/TRANS,XAXIS,PNT1
ALIGNMENT/TRANS,YAXIS,PNT1
ALIGNMENT/TRANS,ZAXIS,PNT1
ALIGNMENT/END
COMMENT/DOC,NO,Obtain time needed for warm up
C1 =COMMENT/INPUT,NO,'Enter time (in minutes) to warm up'
ASSIGN/TIMETOMOVE = C1.INPUT*60
CS1 =SCRIPT/FILENAME= O:\50-MANUFACTURE\130-INSPECT\DMIS PROGRAMS\TIMER.BAS
FUNCTION/Main,SHOW=YES,,
STARTSCRIPT/
ENDSCRIPT/
COMMENT/DOC,NO,Switch to DCC Mode
MODE/DCC
ASSIGN/PNT3.Z = PNT2.Z-Z_STEP
WHILE/PNT3.Z > PNT1.Z
MOVE/POINT,NORMAL,PNT1.X,PNT2.Y,PNT3.Z
MOVE/POINT,NORMAL,PNT1.X,PNT1.Y,PNT2.Z
MOVE/POINT,NORMAL,PNT2.X,PNT1.Y,PNT3.Z
MOVE/POINT,NORMAL,PNT2.X,PNT2.Y,PNT2.Z
MOVE/POINT,NORMAL,PNT2.X,PNT2.Y,PNT3.Z
ASSIGN/PNT2.Z = PNT2.Z-Z_STEP
ASSIGN/PNT3.Z = PNT3.Z-Z_STEP
END_WHILE/
PROGRAM/END
This is the TIMER.BAS file:
Sub Main
Dim MyApp As Object
Set MyApp = CreateObject ("PCDLRN.Application")
Dim MyPartProgram As Object
Set MyPartProgram = MyApp.ActivePartProgram
Dim MyVar As Object
Set MyVar = MyPartProgram.GetVariableValue ("TIMETOMOVE")
MSGBOX "TIMETOMOVE = ", MYVAR
Dim I As Object
If Not MyVar Is Nothing Then
MyVar.LongValue = MyVar.LongValue + 1
MyPartProgram.SetVariableValue "TIMETOMOVE", MyVar
MsgBox "V1 is now: " & MyVar
Else
Msgbox "Could Not find variable"
End If
End Sub
can you post your script and PCDMIS code. SetVariableValue should work in 3.7. It must be something else. I'm not sure what the print is for. I don't have any print commands going on.
Craig
My program gives me this error:
---------------------------
PC-DMIS Basic Scripting Engine
---------------------------
Error on line: 8 - OLE Automation object does not have a default value
---------------------------
OK
---------------------------
My program is here:
PART NAME : WarmUp
REV NUMBER :
SER NUMBER :
STATS COUNT : 1
STARTUP =ALIGNMENT/START,RECALL:, LIST= YES
ALIGNMENT/END
MODE/MANUAL
PREHIT/ 1.27
RETRACT/ 1.27
CHECK/ 12.7,0.5
COMMENT/DOC,NO,Press F5 to ensure DISPLAY ABSOLUTE SPEEDS is checked
COMMENT/DOC,NO,Set MOVESPEED to 100 for calculating time accurately
MOVESPEED/ 100
TOUCHSPEED/ 1
SCANSPEED/ 1
MANRETRACT/20
LOADPROBE/CURRENT
TIP/T1A0B0, SHANKIJK=0, 0, 1, ANGLE=0
FORMAT/TEXT,OPTIONS, ,HEADINGS,SYMBOLS, ;NOM,MEAS,DEV,TOL,OUTTOL, ,
COMMENT/OPER,NO,Program first prompts for lower left, then upper right limits of a bounding box in which all movement will be contained.
COMMENT/OPER,NO,Move probe to lower left rear of warmup region
PNT1 =FEAT/POINT,RECT
THEO/-114.2102,246.0056,-322.6612,0,0,1
ACTL/150.7531,361.0903,-235.1847,0,0,1
READPOINT/
COMMENT/OPER,NO,Move probe to top right front of warmup region
PNT2 =FEAT/POINT,RECT
THEO/301.1047,13.9373,-179.6567,0,0,1
ACTL/268.4931,312.5765,-201.2698,0,0,1
READPOINT/
ASSIGN/Z_STEP = (PNT2.Z - PNT1.Z)/10
COMMENT/DOC,NO,PNT3 is a temporary variable to step in Z
PNT3 =FEAT/POINT,RECT
THEO/301.1049,13.9372,-179.6562,0,0,1
ACTL/268.4929,312.5768,-192.7895,0,0,1
READPOINT/
ALN0 =ALIGNMENT/START,RECALL:STARTUP, LIST= YES
ALIGNMENT/LEVEL,ZPLUS,PNT1
ALIGNMENT/ROTATE,XPLUS,TO,PNT1,ABOUT,ZPLUS
ALIGNMENT/TRANS,XAXIS,PNT1
ALIGNMENT/TRANS,YAXIS,PNT1
ALIGNMENT/TRANS,ZAXIS,PNT1
ALIGNMENT/END
COMMENT/DOC,NO,Obtain time needed for warm up
C1 =COMMENT/INPUT,NO,'Enter time (in minutes) to warm up'
ASSIGN/TIMETOMOVE = C1.INPUT*60
CS1 =SCRIPT/FILENAME= O:\50-MANUFACTURE\130-INSPECT\DMIS PROGRAMS\TIMER.BAS
FUNCTION/Main,SHOW=YES,,
STARTSCRIPT/
ENDSCRIPT/
COMMENT/DOC,NO,Switch to DCC Mode
MODE/DCC
ASSIGN/PNT3.Z = PNT2.Z-Z_STEP
WHILE/PNT3.Z > PNT1.Z
MOVE/POINT,NORMAL,PNT1.X,PNT2.Y,PNT3.Z
MOVE/POINT,NORMAL,PNT1.X,PNT1.Y,PNT2.Z
MOVE/POINT,NORMAL,PNT2.X,PNT1.Y,PNT3.Z
MOVE/POINT,NORMAL,PNT2.X,PNT2.Y,PNT2.Z
MOVE/POINT,NORMAL,PNT2.X,PNT2.Y,PNT3.Z
ASSIGN/PNT2.Z = PNT2.Z-Z_STEP
ASSIGN/PNT3.Z = PNT3.Z-Z_STEP
END_WHILE/
PROGRAM/END
This is the TIMER.BAS file:
Sub Main
Dim MyApp As Object
Set MyApp = CreateObject ("PCDLRN.Application")
Dim MyPartProgram As Object
Set MyPartProgram = MyApp.ActivePartProgram
Dim MyVar As Object
Set MyVar = MyPartProgram.GetVariableValue ("TIMETOMOVE")
MSGBOX "TIMETOMOVE = ", MYVAR
Dim I As Object
If Not MyVar Is Nothing Then
MyVar.LongValue = MyVar.LongValue + 1
MyPartProgram.SetVariableValue "TIMETOMOVE", MyVar
MsgBox "V1 is now: " & MyVar
Else
Msgbox "Could Not find variable"
End If
End Sub
