各位大师，请问用VB写的脚本，如何驱动程序里的命令呀？ 例如，我写了一个赋值脚本，但我想把这个赋值在pcdmis里面执行一下，请问在VB里如何实现呢？ 不要说在pcdmis命令窗口里按Ctrl+U，如果你是这样想的，请围观就好了！ 以下是程序源代码和附件： ------------------------------------------- Dim pcdlrn As Object Dim pcdpart As Object Dim pcdcmds As Object Dim pcdcmd As Object --------------------------------------------- Private Sub Combo1_DropDown() Combo1.ForeColor = &H0 End Sub ----------------------------------------------- Private Sub Command1_Click() On Error GoTo cab: Dim abc Set pcdlrn = CreateObject("pcdlrn.application") Set pcdpart = pcdlrn.ActivePartProgram Set pcdcmds = pcdpart.Commands If Combo1.Text = "单击此处选择" Then MsgBox "您选择的是谁？", vbOKOnly, "神马？" Combo1.SetFocus Else Set pcdcmd = pcdcmds.Add(ASSIGNMENT, True) abc = pcdcmd.PutText("INSPECTOR", DEST_EXPR, 0) abc = pcdcmd.PutText("""" & Combo1.Text & """", SRC_EXPR, 0) End End If Exit Sub cab: MsgBox "PCDMSI没有打开的零件程序", vbOKOnly, "注意": End End Sub ---------------------------------------------------- Private Sub Form_Activate() Command1.SetFocus End Sub ------------------------------------ Private Sub Form_Load() Combo1.List(0) = "aa" Combo1.List(1) = "bb" Combo1.List(2) = "cc" Combo1.List(3) = "dd" Combo1.List(4) = "ee" Combo1.List(5) = "ff" Combo1.List(6) = "gg" Combo1.List(7) = "hh" Combo1.List(8) = "ii" Combo1.ForeColor = &H80000000 Combo1.Text = "单击此处选择" End Sub -------------------------------------------------- [attach]1656[/attach]