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

huanxue0313

请高手赐教，如何给VBA编的程序定义一个命令，加载后在命令行输入命令就能自动执行？

PS：今天努力了一把，已经会在菜单里让它运行了

azjmjsj

给你一个例子：
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

fly2890

azjmjsj 发表于 2008-1-23 12:56
本帖最后由 作者 于 2008-1-23 12:57:24 编辑  给你一个例子：Private Sub AcadDocument_EndCommand(ByVal ...

太感谢了，找了好久，本菜鸟没有找到比这个更简便的方法了，感谢楼主无私分享！！！

chixun99

可以用lisp加载和运行vba

Linxian1028

写一个LSP文件，预先在CAD的启动组里也可以。
(defun  c:xbar()(command  "vbaRun" "ShowMenu"))
类似这么一个命令行就可以运行你的VBA命令。