求助：请教如何让复制的对象变为红色

qflut

LISP没有入门，但是我工作中经常碰到这个问题，就是copy的时候把复制新产生的对象颜色变为红色。哪位大大有时间能帮我写两句这个程序吗？其它跟copy一摸一样，仅仅是复制后产生的新对象颜色变为红色。谢谢先

Andyhon

(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 "")
    )
   )
)

461045462

Andyhon 发表于 2013-3-9 18:29
(defun C:Try ()
   (cond
    ((Null (setq ss (ssget))))

收藏，学习学习。
谢谢！

qflut

Andyhon 发表于 2013-3-9 18:29
(defun C:Try ()
   (cond
    ((Null (setq ss (ssget))))

非常感谢，已经满足了我的需求，不知道能不能像copy那样实现多次复制——就是相当于老版CAD输入copy+m一样，执行完复制一次以后，继续复制命令，直至按取消键为止。如果麻烦就算了，已经基本够用。再次感谢

357785513

我觉得这个程序应该镜像的,移动的,旋转的,缩放的,拉升的,拉长的这几个都应该变成红色最理想

dforme

很实用的程序，感谢Andyhon