（完成）[求助]：求助，选层保留有没有单独加载的LISP，能贴上一个么？

大雨落幽燕

我就要一个这样的LISP。
帮帮忙。

eachy

最初由 大雨落幽燕 发布
[B]我就要一个这样的LISP。
帮帮忙。 [/B]

2. 
   
3. (vl-load-com)
   
4. ;;选层保留
   
5. (defun c:layiso        (/ e lays layers)
   
6.   (while (setq e (entsel))
   
7.     (if        e
   
8.       (setq lays (cons (cdr (assoc 8 (entget (car e)))) lays)
   
9.       )
   
10.     )
    
11.   )
    
12.   (setq        layers (vla-get-layers
    
13.                  (vla-get-activedocument (vlax-get-acad-object))
    
14.                )
    
15.   )
    
16.   (if lays
    
17.     (vlax-for la layers
    
18.       (if (not (member (vla-get-name la) lays))
    
19.         (vla-put-layeron la :vlax-false)
    
20.       )
    
21.     )
    
22.   )
    
23.   (princ)
    
24. )
    
25. ;;所有层开
    
26. (defun C:Layeron (/ acadDocument theLayers)
    
27.   (setq acadDocument (vla-get-activedocument (vlax-get-acad-object)))
    
28.   (setq theLayers (vla-get-layers acadDocument))
    
29.   (vlax-for item theLayers
    
30.     (vlax-put-property item "LayerOn" ':vlax-true)
    
31.   )
    
32.   (princ)
    
33. )                               
    
34. 
    

<br /> (vl-load-com)<br /> ;;选层保留<br /> (defun c:layiso        (/ e lays layers)<br />   (while (setq e (entsel))<br />     (if        e<br />       (setq lays (cons (cdr (assoc 8 (entget (car e)))) lays)<br />       )<br />     )<br />   )<br />   (setq        layers (vla-get-layers<br />                  (vla-get-activedocument (vlax-get-acad-object))<br />                )<br />   )<br />   (if lays<br />     (vlax-for la layers<br />       (if (not (member (vla-get-name la) lays))<br />         (vla-put-layeron la :vlax-false)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> ;;所有层开<br /> (defun C:Layeron (/ acadDocument theLayers)<br />   (setq acadDocument (vla-get-activedocument (vlax-get-acad-object)))<br />   (setq theLayers (vla-get-layers acadDocument))<br />   (vlax-for item theLayers<br />     (vlax-put-property item "LayerOn" ':vlax-true)<br />   )<br />   (princ)<br /> )                                <br /> <br />

lsjjm

(defun c:test ()
(Prompt "\nSelect Objects whose LAYERS will remain ON...")
(setq e (ssget) n 0)
(setq llayer (cdr (assoc 8 (entget (ssname e 0)))))
(setvar "clayer" llayer)
(vl-cmdf "layer" "off" "*" "n" "")
(while (< n (sslength e))
(setq lay (cdr (assoc 8 (entget (ssname e n)))))
(vl-cmdf "layer" "on" lay "" "")
(setq n (1+ n))
))

赠一见

选层保留 什么意思，可以介绍一下这个lsp的用法吗，不懂请赐教

lsjjm

就是你所点击的实体所在的层都保留，其余的层关闭。 如果当前层被关闭，那么所点击的第一个实体所在的层转为当前层。

f4800

有用。。。