[编程申请]：CAD14里有隔离图层的命令它把未选中的图层关闭了，谁能把它改成锁定未选

dgh

CAD14里有隔离图层的命令但是它把未选中的图层关闭了，谁能把它改成锁定未选中的图层，那就好了。

心梦相随

可以用-LAYER下的LOCK项进行调试，或者在BONUS下有相关命令。

eachy

最初由 dgh 发布
[B]CAD14里有隔离图层的命令但是它把未选中的图层关闭了，谁能把它改成锁定未选中的图层，那就好了。 [/B]

试试工具箱的【选层孤立】

kfboyxwa

(defun c:ll () (command "-layer" "lock" "*" "" (c:layulk) PAUSE ))

LUCAS

2. 
   
3. ;;By LUCAS
   
4. ;;CAD14里有隔离图层的命令但是它把未选中的图层关闭
   
5. ;;谁能把它改成锁定未选中的图层，那就好了
   
6. (defun C:ISO_LAY (/ TMP OBJLAYERS LAY)
   
7.   (setq TMP (entsel "\n选取隔离图层对象: "))
   
8.   (if (and (/= TMP NIL)
   
9.            (setq TMP (vla-get-layer (vlax-ename->vla-object (car TMP))))
   
10.       )
    
11.     (progn
    
12.       (setq OBJLAYERS (vla-get-layers
    
13.                         (vla-get-activedocument
    
14.                           (vlax-get-acad-object)
    
15.                         )
    
16.                       )
    
17.       )
    
18.       (vlax-for        LAY OBJLAYERS
    
19.         (if (/= TMP (vla-get-name LAY))
    
20.           (vla-put-lock LAY :vlax-true)
    
21.           (vla-put-lock LAY :vlax-false)
    
22.         )
    
23.       )
    
24.     )
    
25.     (prompt "\n选取不到任何对象")
    
26.   )
    
27.   (princ)
    
28. )
    

<br /> ;;By LUCAS<br /> ;;CAD14里有隔离图层的命令但是它把未选中的图层关闭<br /> ;;谁能把它改成锁定未选中的图层，那就好了<br /> (defun C:ISO_LAY (/ TMP OBJLAYERS LAY)<br />   (setq TMP (entsel "\n选取隔离图层对象: "))<br />   (if (and (/= TMP NIL)<br />            (setq TMP (vla-get-layer (vlax-ename->vla-object (car TMP))))<br />       )<br />     (progn<br />       (setq OBJLAYERS (vla-get-layers<br />                         (vla-get-activedocument<br />                           (vlax-get-acad-object)<br />                         )<br />                       )<br />       )<br />       (vlax-for        LAY OBJLAYERS<br />         (if (/= TMP (vla-get-name LAY))<br />           (vla-put-lock LAY :vlax-true)<br />           (vla-put-lock LAY :vlax-false)<br />         )<br />       )<br />     )<br />     (prompt "\n选取不到任何对象")<br />   )<br />   (princ)<br /> )<br />

XDSoft

最初由 dgh 发布
[B]CAD14里有隔离图层的命令但是它把未选中的图层关闭了，谁能把它改成锁定未选中的图层，那就好了。 [/B]

试试“晓东工具箱”中的图层相关工具。

zhuqi75

acad bonus 工具里有现成的东西，为什么不把精力放在更有意义的更有创意的问题上