求图层管理的lisp

inhoo

要达到的效果：比如 用K 关闭某图层  在用K一次 就开启这一图层。

669423907

很有创意的程序！我帮你顶！

Andyhon

Layer 下有 on/off  ;  Lock/unLock  ;  Freeze/Thaw
您的需求是切换  on/off !??

xiaxiang

贴一个 lenlenq 写的程序。不知楼主是要这个程序吗

2. (defun layer-op (la / tbl clo)
   
3.   (if (setq tbl (tblsearch "layer" la))
   
4.     (progn
   
5.       (setq clo (cdr (assoc 62 tbl)))
   
6.       (setq cla (getvar "clayer"))
   
7.       (if (> clo 0)
   
8.     (if (/= cla la)
   
9.       (command "layer" "off" la "" )
   
10.       (command "layer" "off"   la "Y" "" )
    
11.     )
    
12.     (command "layer" "on" la "" )
    
13.       )
    
14.     )
    
15.     (alert (strcat "本图档无{"la"}图层"))
    
16.   )
    
17. )
    
18. 
    
19. (defun c:1()
    
20.   (layer-op "1")
    
21.   (princ)
    
22.   )
    
23. (defun c:2()
    
24.   (layer-op "2")
    
25.   (princ)
    
26.   )
    

(defun layer-op (la / tbl clo)<br />   (if (setq tbl (tblsearch "layer" la))<br />     (progn<br />       (setq clo (cdr (assoc 62 tbl)))<br />       (setq cla (getvar "clayer"))<br />       (if (> clo 0)<br />     (if (/= cla la)<br />       (command "layer" "off" la "" )<br />       (command "layer" "off"   la "Y" "" )<br />     )<br />     (command "layer" "on" la "" )<br />       )<br />     )<br />     (alert (strcat "本图档无{"la"}图层"))<br />   )<br /> )<br /> <br /> (defun c:1()<br />   (layer-op "1")<br />   (princ)<br />   )<br /> (defun c:2()<br />   (layer-op "2")<br />   (princ)<br />   )<br />

cjjh8301

类似的插件多的很，论坛里搜索下就有了。

inhoo

请楼上明示