【转帖】设图层
 

设图层
www.dimcax.com
设图层
设图层请教
（setq ss (ssget)）
后，要把选择集ss设成图层1，颜色为red,要怎写？谢谢！
勤能补拙

用下面的程序:
(if (not (tblsearch "layer" "1"))
(command "layer" "n" "1" "c" "1" "1" "")
) ;;;是设层
(defun c:gceng(/ ss i n en)
(setq ss (ssget ) n (sslength ss) i 0)
(repeat n
(setq en (entget (ssname ss i)) i (+ i 1))
(setq en (subst (cons 8 "1")(assoc 8 en) en))
(entmod en)
)
)
gbg

要学cad二次开发，要学哪些软件和程序语言啊？

用“command" "change"也能做