(已自行解决)请求修改ZZXXQQ版主的程序

song宋_74729

在添加一个新增图层(隐藏) 所选的属性值转到新增图层(隐藏)内

源码如下:

;属性不可见 ZZXXQQ 2014.11.4
(defun c:tt ()
(while (and (setq s1 (nentsel "\n选择可见属性: "))
(setq ent (entget(car s1)))
(= (cdr(assoc 0 ent)) "ATTRIB"))
(setq ss (ssget (cadr s1)))
(setq en (ssname ss 0))
(entmod (subst '(70 . 5) (assoc 70 ent) ent))
(entupd en)
)
(princ)
)