求助图层控制LISP

abtjy

请各位大侠请帮忙编一个LISP，谢谢！
例：图层1图元红色，图层2图元绿色，图层3图元黄色
      现在将这些图元全变成图层0而颜色还是保持图元的原有颜色。

abtjy

各位大侠抽点时间帮帮忙，先谢谢了。

abtjy

请教各位高手，是不是这个LISP写起来很复杂，能提供一点思路也了。

lenlenq

写了个程序，楼主请看一下！
(defun c:ch0()
  (setq ss (ssget))
  (setq acc 0)
  (repeat (sslength ss)
    (setq en (ssname ss acc))
    (setq ent(entget en))
    (setq la (cdr(assoc 8 ent )))
    (setq cl (cond ((= la "1") (cons 62 1))
                   ((= la "2") (cons 62 3))
                   ((= la "3") (cons 62 2))
             )
    )
    (setq enta (append  ent (list cl)))
    (setq nla (cons 8 "0"))
    (setq entn(subst nla (cons 8 la) enta))
    (entmod entn)
    (setq acc (1+ acc))))

[ 本帖最后由 lenlenq 于 2009-4-21 20:28 编辑 ]

yjlzjg

我也下载下来用一下就知道好不好了，谢谢呀！！

chjhq

论坛上好象有了,找找看