自定义命令

dxhy

我想在CAD里加一个自定义命令按钮，点击时会自动执行相应的VBA命令。应该怎么做呢？（VBA工程为嵌入工程）

weihedao

我也想知道!比如象LISP一样,可以自己自定义命令,加载完在命令拦直接敲命令就可以执行程序,怎么实现?

yyrr1984

我有一个程序是这样的
(defun c:getpolyl()
(setvar "cmdecho" 0)
(command "-vbarun" "f:\getpoly.dvb!getpoly()")
(setvar "cmdecho" 1)
(princ)
)
我用这种方法可以，但是就是不能放在一个文件夹下，如改成下面这样就不行，不知道为什么，

(defun c:getpolyl()
(setvar "cmdecho" 0)
(command "-vbarun" "f:\123\getpoly.dvb!getpoly()")
(setvar "cmdecho" 1)
(princ)
)