(已自行解决)请求修改ZZXXQQ版主的程序
本帖最后由 song宋_74729 于 2022-8-7 20:30 编辑在添加一个新增图层(隐藏) 所选的属性值转到新增图层(隐藏)内
源码如下:;属性不可见 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)
)
页:
[1]