[源码]显示 解锁 解冻图层和还原之前状态.但有小BUG ,附文件...
显示 解锁 解冻图层和还原之前状态,但有BUG附件文件里的中心线全开之后就丢了,尺寸标注还在.能帮忙看看是什么原因吗??
(Defun STB(TAB / snl sll)
(SetQ snl '()sll (TblNext TAB T))
(While (SetQ snl (Cons (Cdr (Assoc 2 sll)) snl)sll (TblNext TAB nil)))
(vl-sort snl '<))
(defun c:tt1();图层全开、解锁、解冻
(foreach x (setq *laystatus(mapcar'(lambda(x)(entget(TBLOBJNAME"layer"x)))(stb"layer")))
(entmod(subst(cons 62 (abs(cdr(assoc 62 x))))(assoc 62 x)(subst'(70 . 0)(assoc 70 x)x)))))
(defun c:tt2();;恢复图层
(foreach x *laystatus
(entmod x))
(setq *laystatus nil))
..测试文件
页:
[1]