各位大师，请问用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]
鲁公网安备37020002000329号