如何自定义透明命令！

highflybir

3. (vl-doc-export 'exam)
4. (defun exam ()
5.   (vla-put-color (vlax-ename->vla-object (entlast)) acRed)
6.   (princ)
7. )  
8. (vlax-add-cmd "exam" 'exam "exam" acrx_cmd_transparent)
9. (princ)

(vl-doc-export 'exam) (defun exam ()   (vla-put-color (vlax-ename->vla-object (entlast)) acRed)   (princ) )   (vlax-add-cmd "exam" 'exam "exam" acrx_cmd_transparent) (princ)

这是一个如何自定义透明命令的例子。
下面是加载这个程序后的效果。
命令: l LINE 指定第一点:
指定下一点或 [放弃(U)]:
指定下一点或 [闭合(C)/放弃(U)]: 'exam
正在恢复执行 LINE 命令。
指定下一点或 [闭合(C)/放弃(U)]:
指定下一点或 [闭合(C)/放弃(U)]: c

一边画线，一边把前面的那根线改变成红色.

NetBee

(vl-doc-export 'exam)
是必须吗？？

highflybir

不是必须的。

在对于编译好的.vlx文件用的着。

fawn_lgc

打开第二张图纸后,返回第一张图纸,命令无法使用; 错误: Visual LISP command document mismatch: exam

alin

回复：打开第二张图纸后,返回第一张图纸,命令无法使用; 错误: Visual LISP command document mismatch: exam

这个还没有解决办法。

leeyuan

版主，zoom如何自定义成透明命令呢？