以下段的程序，在4.1，4.2都试过了。能编译，运行出错。提示说，运行脚本出错。 样例2： 使用获取变量值和设置变量值的方法传递变量 下面的例子首先使用PC-DMIS代码从用户接收整数值并赋值到V1变量。 C1=COMMENT/INPUT,Please type an integer value. ASSIGN 1 = INT(C1.INPUT) COMMENT/OPER,BEFORE SCRIPT: Variable is: ,V1 这个脚本叫做TEST2.BAS. CS1=SCRIPT/FILENAME= D:\PROGRAM FILES\PCDMIS35\TEST2.BAS FUNCTION/Main,, STARTSCRIPT/ ENDSCRIPT/ 这是TEST2.BAS: Sub Main 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 is now: " & Var Else Msgbox "Could Not find variable" End If End Sub 这个脚本程序使用V1变量，利用自动获取变量值和设置变量值的方法，在程序中把V1加1赋值给V1。 PC-DMIS接着在操作者注释中显示变化的变量。 COMMENT/OPER,AFTER SCRIPT: Variable is now ,V1