以下段的程序，在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

这段程序运行结果一样的。希望能者指条明路。谢谢/ 样例1： 使用函数行传递变量 下面的命令执行名为TEST.BAS的BASIC脚本。也将通过执行时将函数行定义的变量传递给TEST.BAS脚本： CS2=SCRIPT/FILENAME= D:\PROGRAM FILES\PCDMIS35\TEST.BAS FUNCTION/ShowVars,3,"Hello",2.5,, STARTSCRIPT/ 现在这里有一个TEST.BAS脚本：执行该脚本会在各自的消息框中显示传递变量： Sub ShowVars(IntVar As Integer, StrVar As String, DoubleVar As Double) msgbox "The passed integer variable is " & IntVar msgbox "The passed integer variable is " & IntVar msgbox "The passed integer variable is " & IntVar End Sub {/pz}{/pz}

在样例2中，需要将 MsgBox "V1 is now: " & Var，改为 MsgBox "V1 is now: " & Var。.LongValue ，运行没问题。

样例1应该是： CS2 =SCRIPT/FILENAME= D:\WAI\V4.2MR2\TEST1.BAS FUNCTION/Main,SHOW=YES,, STARTSCRIPT/ ENDSCRIPT/ test1.bas是： Sub Main ShowVars(1,"21",2.3) End Sub Function ShowVars(IntVar As Integer, StrVar As String, DoubleVar As Double) msgbox "The passed integer variable is " & IntVar msgbox "The passed integer variable is " & StrVar msgbox "The passed integer variable is " & DoubleVar End Function 仅供参考！

首先谢谢楼上朋友的热心。如果方便的话加我QQ聊聊。谢谢 样例2中 MSGBOX这个改过来了。但是程序的功能没有达到，从我运行的结果来看GetVariableValue好象基本没用。SetVariableValue能达到目的。如果时间你可否实际运行下程序看看。谢谢。 我手上的是英文资料，有时候可能自己理解得有点不对。呵呵。 再次感谢.{/cy}

例题2经过你的指点完全正确。呵呵。谢谢。我试了几种方法就没想过你这样的。{/cy}除了在帮助文件里面看到那两段程序，在其他的资料里面也找到了这两段程序。我还特意对比了下。呵呵“尽信书不如无书”这句话看来真的没错啊。{/cy} 　　　　　　　　　　　　　　　　　　[此贴子已经被作者于2008-3-26 11:42:36编辑过]

不好意思，有灌水嫌疑。我只是不想让问题沉下去。{/pz}

例1中，如果按你所说的改了是可以运行。但是和编程的初宗有所不同了哦。 原例是想在PC-DMIS直接用参数就可以搞定。改了后，得多用些语句才可以做到了。 不知道是否还有其他方法。{/pz}