[求助]如何给VBA编的程序定义一个命令，加载后在命令行输入命令就能自动执行？

huanxue0313 · 发表于 2008-1-23 08:45:00

请高手赐教，如何给VBA编的程序定义一个命令，加载后在命令行输入命令就能自动执行？
PS：今天努力了一把，已经会在菜单里让它运行了

azjmjsj · 发表于 2008-1-23 12:56:00

给你一个例子：
Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
If CommandName = "VBALOAD" Or CommandName = "APPLOAD" Then
Call Commandks
End If
End Sub
Sub Commandks() '对每一个定义的宏进行命令行的预先录制批处理
      ThisDrawing.SendCommand "(defun C:zdx()(vl-vbarun " & Chr$(34) & "azj" & Chr$(34) & "))" & Chr$(13)
      ThisDrawing.SendCommand "(defun C:sz()(vl-vbarun " & Chr$(34) & "abc" & Chr$(34) & "))" & Chr$(13)
      ThisDrawing.SendCommand "(defun C:sb()(vl-vbarun " & Chr$(34) & "cde" & Chr$(34) & "))" & Chr$(13)
End Sub
*************************************************
西北凡人-------http://www.abofanyi.com/blog

[求助]如何给VBA编的程序定义一个命令，加载后在命令行输入命令就能自动执行？

发表回复

精选推荐