[源码]显示 解锁 解冻图层和还原之前状态.但有小BUG ,附文件...

hooboxu

显示 解锁 解冻图层和还原之前状态,但有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))

hooboxu

..测试文件