求助：请教如何让复制的对象变为红色
LISP没有入门，但是我工作中经常碰到这个问题，就是copy的时候把复制新产生的对象颜色变为红色。哪位大大有时间能帮我写两句这个程序吗？其它跟copy一摸一样，仅仅是复制后产生的新对象颜色变为红色。谢谢先 (defun C:Try ()(cond
((Null (setq ss (ssget))))
(T
(command "Copy" ss "" '(0 0) '(0 0))
(command "Move" ss "" Pause pause)
(command "Chprop" ss "" "C" 1 "")
)
)
) Andyhon 发表于 2013-3-9 18:29 static/image/common/back.gif
(defun C:Try ()
(cond
((Null (setq ss (ssget))))
收藏，学习学习。
谢谢！
Andyhon 发表于 2013-3-9 18:29 static/image/common/back.gif
(defun C:Try ()
(cond
((Null (setq ss (ssget))))
非常感谢，已经满足了我的需求，不知道能不能像copy那样实现多次复制——就是相当于老版CAD输入copy+m一样，执行完复制一次以后，继续复制命令，直至按取消键为止。如果麻烦就算了，已经基本够用。再次感谢 我觉得这个程序应该镜像的,移动的,旋转的,缩放的,拉升的,拉长的这几个都应该变成红色最理想 很实用的程序，感谢Andyhon
页:
[1]