[日积月累]：如何自定义透明命令！

highflybird · 发表于 2007-3-26 11:35:25

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(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 · 发表于 2007-3-27 08:49:37

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

highflybird · 发表于 2007-3-27 17:29:05

不是必须的。
在对于编译好.vlx文件用的着。

Dallas_whu · 发表于 2007-3-28 15:08:03

请详细解释一下。

libo2000 · 发表于 2007-3-30 02:02:12

(defun sel ()
(ssget (list '(-3 ("*"))))
)
(vlax-add-cmd "sel" 'sel "sel" acrx_cmd_transparent)
执行结果是：
命令:
COPY
选择对象: 'sel

>>选择对象: >>指定对角点: 找到 3 个，1 个编组

>>选择对象: 选择了3个对象。

正在恢复执行 COPY 命令。

选择对象:

＝＝＝＝＝＝选择集并没有返回给copy
如何把选择集返回给当前命令，如copy？

highflybird · 发表于 2007-4-2 18:15:30

好像这个透明命令得到的选择集跟过滤器得到的不一样，只好用copy----P来获得选择集合了。

好像这个问题讨论过，你翻翻以前的帖子看看。

adisonmaster · 发表于 2008-3-26 14:45:30

(vl-doc-export 'exam)
(defun exam ()
(command "zoom" "w" (list 0 0) (list 420 -297))
(princ)
)
(vlax-add-cmd "exam" 'exam "exam" acrx_cmd_transparent)
(princ)
使用后出线以下问题：
－－致命错误，命令嵌套深度不能超过4层。
请问应该如何解决？

账号		自动登录	找回密码
密码			立即注册

[日积月累]：如何自定义透明命令！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子