如何把图中所有的XREF设置到指定层

lisp_beginner

我的图中有很多XREF文件，我想求个插件，自动把所有的XREF文件都设置到"XREF"图层，如果没有"XREF"图层就创建它，并且这个图层要保持锁定。

marting

拿去

1. (defun c:tt ()
   
2.   (defun _makeXrefLayer        (/ layers layerobj)
   
3.     (if        (not (tblsearch "layer" "xref"))
   
4.       (progn
   
5.         (setq layers (vla-get-Layers *doc*))
   
6.         (setq layerObj (vla-Add layers "xref"))
   
7.         (vla-put-Lock layerObj :vlax-true)
   
8.       )
   
9.     )
   
10.     t
    
11.   )
    
12.   (vlax-for xref
    
13.             (vla-get-blocks
    
14.               (setq
    
15.                 *doc* (vla-get-activedocument (vlax-get-acad-object))
    
16.               )
    
17.             )
    
18.     (if        (= :vlax-true (vla-get-isxref xref))
    
19.       (progn
    
20.         (_makexreflayer)
    
21.         (setq ss (ssget "x" (list (cons 2 (vla-get-name xref))))
    
22.               i         -1
    
23.         )
    
24.         (while (setq blkref (ssname ss (setq i (1+ i))))
    
25.           (vla-put-layer (vlax-ename->vla-object blkref) "xref")
    
26.         )
    
27.       )
    
28.     )
    
29.   )
    
30.   (princ)
    
31. )
    
32. 
    

(defun c:tt ()<br />   (defun _makeXrefLayer        (/ layers layerobj)<br />     (if        (not (tblsearch "layer" "xref"))<br />       (progn<br />         (setq layers (vla-get-Layers *doc*))<br />         (setq layerObj (vla-Add layers "xref"))<br />         (vla-put-Lock layerObj :vlax-true)<br />       )<br />     )<br />     t<br />   )<br />   (vlax-for xref<br />             (vla-get-blocks<br />               (setq<br />                 *doc* (vla-get-activedocument (vlax-get-acad-object))<br />               )<br />             )<br />     (if        (= :vlax-true (vla-get-isxref xref))<br />       (progn<br />         (_makexreflayer)<br />         (setq ss (ssget "x" (list (cons 2 (vla-get-name xref))))<br />               i         -1<br />         )<br />         (while (setq blkref (ssname ss (setq i (1+ i))))<br />           (vla-put-layer (vlax-ename->vla-object blkref) "xref")<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

lisp_beginner

marting 发表于 2017-4-5 18:54

谢谢大神，好用。