求一个删除关闭着的图层，和隐隐藏着对象的lisp

wxa123wl

工作做我们拿到对话图，，，其实有好多东西没有显示，当我们在图层操作时候，和容易把全部图层都打开了，其实好多没有用，我们还得自己一个个的关闭，超麻烦，，，求大神给个神器，，好让我们快速的清理掉这些烦人的东西！

st788796

这个论坛有

wxa123wl

st788796 发表于 2014-2-12 23:44
这个论坛有

那个呀，，呵呵，，

wxa123wl

st788796 发表于 2014-2-12 23:44
这个论坛有

小弟不才，，找不到，，找到了也认不出来，，还望大神指明！

st788796

wxa123wl 发表于 2014-2-13 00:36
小弟不才，，找不到，，找到了也认不出来，，还望大神指明！

论坛的搜索不给力，好像是 eachy 版主写的，用API写了一个删除关闭、冻结 图层实体及隐藏实体的程序

1. (defun c:tt (/ lyrlst filter ss ss1)
   
2.   (if
   
3.     (and (setq
   
4.            lyrlst (vl-remove-if-not
   
5.                     '(lambda (x)
   
6.                        (or (xdrx_getpropertyvalue (cadr x) "IsOff")
   
7.                            (xdrx_getpropertyvalue (cadr x) "IsFrozen")
   
8.                        )
   
9.                      )
   
10.                     (XD::Object:Get "layer")
    
11.                   )
    
12.          )
    
13.          (setq filter (xdrx_string_join (mapcar 'car lyrlst) ","))
    
14.          (setq ss (ssget "x" (list (cons 8 filter))))
    
15.     )
    
16.      (xdrx_entity_delete ss)
    
17.   )
    
18.   (if (setq ss1 (ssget "x" '((60 . 1))))
    
19.     (xdrx_entity_delete ss1)
    
20.   )
    
21.   (princ)
    
22. )

(defun c:tt (/ lyrlst filter ss ss1)<br />   (if<br />     (and (setq<br />            lyrlst (vl-remove-if-not<br />                     '(lambda (x)<br />                        (or (xdrx_getpropertyvalue (cadr x) "IsOff")<br />                            (xdrx_getpropertyvalue (cadr x) "IsFrozen")<br />                        )<br />                      )<br />                     (XD::Object:Get "layer")<br />                   )<br />          )<br />          (setq filter (xdrx_string_join (mapcar 'car lyrlst) ","))<br />          (setq ss (ssget "x" (list (cons 8 filter))))<br />     )<br />      (xdrx_entity_delete ss)<br />   )<br />   (if (setq ss1 (ssget "x" '((60 . 1))))<br />     (xdrx_entity_delete ss1)<br />   )<br />   (princ)<br /> )

wxa123wl

st788796 发表于 2014-2-13 08:57
论坛的搜索不给力，好像是 eachy 版主写的，用API写了一个删除关闭、冻结 图层实体及隐藏实体的程序

谢谢，，我一直没有加载成功那个晓东api！

st788796

wxa123wl 发表于 2014-2-14 11:57
谢谢，，我一直没有加载成功那个晓东api！

搜到了
http://bbs.xdcad.net/thread-415459-1-1.html