其他图层全部冻结的办法

citykunan

谁有办法将除了当前层的其他层全部冻结的办法（在一个文件中要能反复使用）。
谢谢。

meflying

2. 
   
3. (defun c:test( / cur_lay lay)
   
4.   (setq cur_lay (getvar "clayer"))
   
5.   (setvar "cmdecho" 0)
   
6.   (while (setq lay (tblnext "layer" (not lay)))
   
7.     (if (/= (setq lay (cdr (assoc 2 lay))) cur_lay)
   
8.       (command "_.layer" "LO" lay "")
   
9.     )
   
10.   )
    
11.   (princ)
    
12. )
    

<br /> (defun c:test( / cur_lay lay)<br />   (setq cur_lay (getvar "clayer"))<br />   (setvar "cmdecho" 0)<br />   (while (setq lay (tblnext "layer" (not lay)))<br />     (if (/= (setq lay (cdr (assoc 2 lay))) cur_lay)<br />       (command "_.layer" "LO" lay "")<br />     )<br />   )<br />   (princ)<br /> )<br />

f5612140

2. 
   
3. (defun c:test()
   
4. (setvar "cmdecho" 0)
   
5. (command "layer" "f" "*" "")
   
6. (prin1)
   
7. )
   

<br /> (defun c:test()<br /> (setvar "cmdecho" 0)<br /> (command "layer" "f" "*" "")<br /> (prin1)<br /> )<br />

meflying

我得补补基础部分了，很多东西都不常用，简单的东西非让我弄复杂了，见笑了

citykunan

谢谢飞版主。(setq lay (tblnext "layer" (not lay)))很妙。

龙龙仔

meflying发表于2003-12-30 12:16:00我得补补基础部分了，很多东西都不常用，简单的东西非让我弄复杂了，见笑了

這種事我也發生過,編程習慣了就忘了autocad的功能!