图层，只保留选中图层，关闭其它图层

BenjaminXM

2. (defun c:2 (/ es en el i fl clay )
   
3. (princ "关闭其他")
   
4. (setq es nil)
   
5. (setq es (ssget)
   
6.     i 0
   
7.     en ""
   
8.     el nil
   
9.     fl nil)
   
10. (while (/= en nil)
    
11.    (setq en (ssname es i)
    
12.        el (cons en el)
    
13.        i (1+ i)
    
14.     )
    
15. )
    
16. (setq el (cdr el)
    
17.      fl (cdr (assoc ' 8 (entget (car el))))
    
18.      clay fl
    
19.      el (cdr el))   
    
20. (repeat (- i 2)
    
21.    (setq en (cdr (assoc ' 8 (entget (car el))))
    
22.        fl (strcat en "," fl)
    
23.        el (cdr el)
    
24.     )
    
25.   )
    
26. (command "layer" "off" "*" "Y" "on" (eval fl) "")
    
27. (setvar "clayer" clay )
    
28. (princ))
    

(defun c:2 (/ es en el i fl clay )<br /> (princ "关闭其他")<br /> (setq es nil) <br /> (setq es (ssget) <br />     i 0 <br />     en "" <br />     el nil <br />     fl nil)<br /> (while (/= en nil)<br />    (setq en (ssname es i)<br />        el (cons en el) <br />        i (1+ i)<br />     )<br /> )<br /> (setq el (cdr el) <br />      fl (cdr (assoc ' 8 (entget (car el)))) <br />      clay fl<br />      el (cdr el))   <br /> (repeat (- i 2)<br />    (setq en (cdr (assoc ' 8 (entget (car el))))<br />        fl (strcat en "," fl) <br />        el (cdr el)<br />     ) <br />   )<br /> (command "layer" "off" "*" "Y" "on" (eval fl) "")<br /> (setvar "clayer" clay )<br /> (princ))<br />

这个是别人写的代码，自己也都读懂了，也在用。但用的时候经常会出现问题，出现问题后重启AutoCAD就又正常了。
出现的问题提示是“无效的选项关键字”。调试的时候是在 (command "layer" "off" "*" "Y" "on" (eval fl) "")这句出问题，在AutoCAD出问题后，在Command命令行里输入-layer   off   *  但在Y这里就出现问题了，没有Y这个选项。

将"Y"移出后，插件又正常工作。
但重新启动后修改的插件不能正常工作。


能否有人帮忙看一下是哪里出的问题？应该如何解决问题，谢谢！！！

Andyhon

呼叫命令之后逐一看清提示再作回应
想必能厘清卡点...

Andyhon

Ok You might check  EXPERT (System Variable)
...
1
Suppresses 「About to regen, proceed?」 and 「Really want to turn the current layer off?」 (-LAYER)
...

fan_zh

难道都是古代cad版本？我08的就有图层隔离了，命令 layiso

ygp820601

试试CAD自带命令：LAYISO

freehand8008

YY有这个功能啊

zkq1212

我也发一个，是以前别人发给我的。
(defun c:1111(/ s1 dnm)
(setvar "cmdecho" 0)
(setq s1 (car (entsel "\n 选择基准对象: "))
     dnm (cdr (assoc 8 (entget s1))) )
(setq tbdata ( tblnext "layer" T ))
(while  tbdata
   (setq lname (strcase (cdr (assoc 2 tbdata))))
   (if (/= t ( wcmatch lname dnm))
      (progn
         (setq data (entget (tblobjname "layer" lname)))                               
         (setq c70 4)
         (setq c62 (- (abs (cdr (assoc 62 data)))))
         (setq q70 (cons 70 c70))
         (setq q62 (cons 62 c62))
         (setq data (subst q70 (assoc 70 data) data ) )
         (setq data (subst q62 (assoc 62 data) data ))
         (entmod data)
      )
   )
   (setq tbdata ( tblnext "layer"))
)
(setvar "cmdecho" 1)
(PRINC)
)

BenjaminXM

zkq1212 发表于 2016-11-1 16:42
我也发一个，是以前别人发给我的。
(defun c:1111(/ s1 dnm)
(setvar "cmdecho" 0)

谢谢！问题应该已经解决了，不过还是谢谢你！