Question

自编cadvba宏程序一个，求一个lisp调用程序，要用快捷键dm，详细点，谢谢那

Answer 1

(defun c:dqwz()
(command"-VBALOAD""F:\\安装软件\\CAD宏\\对齐与调整文字间距.dvb")
(command "-vbarun" "SpaceText")
)

这里的F:\\安装软件\\CAD宏\\对齐与调整文字间距.dvb 是cad宏的位置，SpaceText是sub SpaceText（），dqwz是快捷命令，新建一个lsp，用appload命令添加进启动组，输入快捷命令即可启动cad 宏

Answer 2

(defun c:dm ()
(command "-vbarun" "aaa.bbb")
)

上面的AAA是指你已经加载了的VBA宏，BBB是指宏里的模块名

追问

谢谢，可以编一个外部调用的吗？、比方所我的vba程序在D:\hdm\dmmm.dvb,直接在lisp程序中调用运行，谢谢，

追答

(command "-vbaload" "D:\\hdm\\dmmm.dvb")
(defun c:dm ()
(command "-vbarun" "aaa.bbb")
)