自定义命令

dxhy · 发表于 2006-7-27 15:14:00

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

weihedao · 发表于 2007-5-5 17:41:00

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

yyrr1984 · 发表于 2007-5-5 19:52:00

我有一个程序是这样的
(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)
)

自定义命令

发表回复

精选推荐