在下列示例中,首先使用PC-DMIS代码接收客户端的整型数值,然后赋值给变量V1 。
C1=COMMENT/INPUT,请键入一个整数值。
ASSIGN/V1=INT(C1.INPUT)
注释/操作者,脚本执行前:变量现在是:
,V1
然后调用名为TEST2.BAS的BASIC脚本。
CS1=SCRIPT/FILENAME=D:\PROGRAM FILES\PCDMIS35\TEST2.BAS
函数/Main, 显示=是,,
STARTSCRIPT/
ENDSCRIPT/
TEST2.BAS如下:
主子目录
Dim App As Object
Set App=CreateObject("PCDLRN.Application")
Dim Part As Object
Set Part=App.ActivePartProgram
Dim Var As Object
Set Var=Part.GetVariableValue("V1")
Dim I As Object
If Not Var Is Nothing Then
Var.LongValue=Var.LongValue+1
Part.SetVariableValue "V1",Var
MsgBox"V1 现在是:"&Var.LongValue
Else
Msgbox “找不到变量”
End If
End Sub
脚本取 V1 变量,并采用 GetVariableValue 和 SetVariableValue 自动法,将 V1 逐次增 1,然后在测量例程中设置 V1 的新值。
PC-DMIS在一个操作者注释中显示改变后的变量。
注释/操作者,脚本执行后:变量现在是
,V1