yang686526

有没有办法将已ssget()出来的物体放到1层并设置为颜色和线型bylayer??
www.dimcax.com
有没有办法将已ssget()出来的物体放到1层并设置为颜色和线型bylayer??
如题：有没有办法将已ssget()出来的物体放到1层并设置为颜色和线型bylayer??
谢谢！

给你编一个程序：
(defun c:bssget-la ()
(setq en (ssget ) n (sslength en) i 0 laa (getstring "要变的层："))
(repeat n
(setq en1 (entget (ssname en i)) )
(setq en1 (subst (cons 8 laa)(assoc 8 en1) en1))
(entmod en1)
(setq i (+ i 1))
))
gbg