[求助]如何给VBA编的程序定义一个命令,加载后在命令行输入命令就能自动执行?
请高手赐教,如何给VBA编的程序定义一个命令,加载后在命令行输入命令就能自动执行?PS:今天努力了一把,已经会在菜单里让它运行了
给你一个例子:
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
页:
[1]