CAD怎么设置快捷命令调用编译好的VBA窗体，

chunpingyang · 发表于 2015-10-21 21:30:00

如题，就是用CAD中VBA编辑器，编译好了一个窗体，里面设置了很多控件。如何像kq.vlx这个一样，只要在CAD里加载一次，用的时候直接输入kq命令就能调出对话框。新手，望高手指教，详细点。

bcwxoal5x1a.png

zzyong00 · 发表于 2015-10-21 22:19:00

lsp调用 vba

chunpingyang · 发表于 2015-10-22 08:34:00

能详细点么，菜鸟啊

hao3ren · 发表于 2015-10-22 13:06:00

ThisDrawing.SendCommand "(defun C:xchZBBZset() (command " & Chr(34) & "-vbarun" & Chr(34) & Chr(32) & Chr(34) & "setZBBZ" & Chr(34) & "))" & Chr(32)
ThisDrawing.SendCommand "(defun C:xchZBBZ() (command " & Chr(34) & "-vbarun" & Chr(34) & Chr(32) & Chr(34) & "doZBBZ" & Chr(34) & "))" & Chr(32)
ThisDrawing.SendCommand "(defun C:xchZBBZexit() (command " & Chr(34) & "-vbarun" & Chr(34) & Chr(32) & Chr(34) & "exitZBBZ" & Chr(34) & "))" & Chr(32)