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

<p>我有一个程序是这样的<br/>(defun c:getpolyl() <br/>(setvar "cmdecho" 0) <br/>(command "-vbarun"<font style="BACKGROUND-COLOR: #e66b1a;"> "f:\getpoly.dvb!</font>getpoly()") <br/>(setvar "cmdecho" 1) <br/>(princ) <br/>) <br/>我用这种方法可以，但是就是不能放在一个文件夹下，如改成下面这样就不行，不知道为什么，</p><p>(defun c:getpolyl() <br/>(setvar "cmdecho" 0) <br/>(command "-vbarun"<font style="BACKGROUND-COLOR: #e66b1a;"> "f:\123\getpoly.dvb!</font>getpoly()") <br/>(setvar "cmdecho" 1) <br/>(princ) <br/>) </p>
页: [1]
查看完整版本: 自定义命令