请教将所有关闭的层内东西清除?

linheyuanpcb

(defun c:dde(/ et ln lay_name ss li)
(setq li (entsel "\n请选择指定图层内的任何一个实体<回车直接输入层名>:"))
(if li
    (progn
         (setq et (entget(nth 0 li)))
         (setq lay_name (cdr (assoc 8 et)))
    )
    (progn
         (princ "\n输入层名:")

         (while (= ln nil)
                (setq lay_name (getstring))
                (setq ln (cdr (assoc 2 (tblnext "layer" t))))
                (while (and ln (/= ln "%") )
                       (if (/= ln lay_name)
                           (setq ln (cdr (assoc 2 (tblnext "layer"))))
                           (setq ln "%")
                           ;如指定的图层名已存在，则设“%”标志
                        )
                )
               (if (/= ln "%") ;错误处理
                   (princ "\n指定的图层不存在，请重新输入:")
                )
         )

    )
)
(setq ss (ssget "x"(list(cons 8 lay_name))))
(command "-layer" "u" lay_name "")           
(command "erase" ss "")                      ;清除所有实体
(princ "\n清除完毕!")
(princ)
)

zhynt

2. 
   
3. 
   
4. (defun c:dde (/ et ln lay_name ss li)
   
5.   (setq first T)
   
6.   (setq layertab '())
   
7.   (while (setq lay1 (tblnext "layer" first))
   
8.     (if        (= first T)
   
9.       (setq first nil)
   
10.     )
    
11.     (if        (/= lay1 nil)
    
12.       (progn (setq lay_name (cdr (assoc 2 lay1)))
    
13.              (setq lay_ent (entget (tblobjname "layer" lay_name)))
    
14. ;;;判断图层为锁定状态，如果要判断关闭状态用 (if (< (cdr (assoc 62 lay_ent)) 0)
    
15.              (if (= (cdr (assoc 70 lay_ent)) 4)
    
16.                (progn (setq ss (ssget "x" (list (cons 8 lay_name))))
    
17.                       (command "-layer" "u" lay_name "")
    
18.                       (command "erase" ss "")
    
19.                )
    
20.              )
    
21.       )
    
22.     )
    
23.   )                                                            ;清除所有实体
    
24.   (princ "\n清除完毕!")
    
25. )
    

<br /> <br /> (defun c:dde (/ et ln lay_name ss li)<br />   (setq first T)<br />   (setq layertab '())<br />   (while (setq lay1 (tblnext "layer" first))<br />     (if        (= first T)<br />       (setq first nil)<br />     )<br />     (if        (/= lay1 nil)<br />       (progn (setq lay_name (cdr (assoc 2 lay1)))<br />              (setq lay_ent (entget (tblobjname "layer" lay_name)))<br /> ;;;判断图层为锁定状态，如果要判断关闭状态用 (if (< (cdr (assoc 62 lay_ent)) 0)<br />              (if (= (cdr (assoc 70 lay_ent)) 4)<br />                (progn (setq ss (ssget "x" (list (cons 8 lay_name))))<br />                       (command "-layer" "u" lay_name "")<br />                       (command "erase" ss "")<br />                )<br />              )<br />       )<br />     )<br />   )                                                            ;清除所有实体<br />   (princ "\n清除完毕!")<br /> )<br />

清风明月名字

谢谢二楼，太好用了