打开文档间的图层同步，附源码

vectra

有没有在图层管理器里导入导出las文件来同步图层设置，想要重置宿主文件中的图层设置为外部参照中的设置？请使用rl命令节省时间。

1. (setq *layer-properties*
   
2.        '(color    linetype       lineweight     plottable
   
3.    plotstylename  viewportdefault          layeron
   
4.    lock    freeze         description
   
5.   )
   
6. )
   
7. 
   
8. 
   
9. (defun getlayerproperties (/ dat lst)
   
10.   (vlax-for lay  (vla-get-layers
    
11.       (vla-get-activedocument (vlax-get-acad-object))
    
12.     )
    
13. 
    
14.     (foreach prp *layer-properties*
    
15.       (if (vlax-property-available-p lay prp)
    
16.   (setq lst (cons (vlax-get-property lay prp) lst))
    
17.       )
    
18.     )
    
19.     (setq dat (cons (cons (vla-get-name lay) (reverse lst)) dat)
    
20.     lst nil
    
21.     )
    
22.   )
    
23.   dat
    
24. )
    
25. 
    
26. 
    
27. (defun setlayerproperties (dat prefix / layer value)
    
28. 
    
29.   (foreach e dat
    
30.     (if  (not (vl-catch-all-error-p
    
31.          (setq layer
    
32.           (vl-catch-all-apply
    
33.       'vla-item
    
34.       (list (vla-get-layers
    
35.         (vla-get-activedocument (vlax-get-acad-object))
    
36.             )
    
37.             (strcat prefix (car e))
    
38.       )
    
39.           )
    
40.          )
    
41.        )
    
42.   )
    
43.       (progn
    
44.   (setq value (cdr e))
    
45.   (foreach prp *layer-properties*
    
46.     (if (vlax-property-available-p layer prp t)
    
47.       (vl-catch-all-apply
    
48.         'vlax-put-property
    
49.         (list layer prp (car value))
    
50.       )
    
51.     )
    
52.     (setq value (cdr value))
    
53.   )
    
54.       )
    
55.     )
    
56.   )
    
57.   (vla-regen (vla-get-activedocument (vlax-get-acad-object))
    
58.        acallviewports
    
59.   )
    
60. )
    
61. 
    
62. ;; reset layer settings
    
63. (defun c:rl (/ ret sel)
    
64.   (initget "S A X")
    
65.   (setq  ret (getkword
    
66.         "打开文档间的图层同步 [提取图层设置(S)/应用到当前文档(A)/应用到外部参照(X)]:"
    
67.       )
    
68.   )
    
69. 
    
70.   (cond
    
71.     ((= ret "S")
    
72.      (vl-bb-set 'layer-settings (getlayerproperties))
    
73.     )
    
74. 
    
75.     ((= ret "A")
    
76.      (setlayerproperties (vl-bb-ref 'layer-settings) "")
    
77.     )
    
78. 
    
79.     ((= ret "X")
    
80.      (setq sel (entsel "\n选择外部参照:"))
    
81.      (if (and
    
82.      (vl-consp sel)
    
83.      (= "INSERT"
    
84.         (cdr (assoc 0 (setq sel (entget (car sel)))))
    
85.      )
    
86.      (= 4
    
87.         (logand
    
88.     4
    
89.     (cdr
    
90.       (assoc 70
    
91.        (tblsearch "block" (cdr (assoc 2 sel)))
    
92.       )
    
93.     )
    
94.         )
    
95.      )
    
96.    )
    
97.        (progn
    
98.    (setlayerproperties
    
99.      (vl-bb-ref 'layer-settings)
    
100.      (strcat (cdr (assoc 2 sel)) "|")
     
101.    )
     
102.        )
     
103.      )
     
104.     )
     
105.   )
     
106.   (princ)
     
107. )

(setq *layer-properties*<br />        '(color    linetype       lineweight     plottable<br />    plotstylename  viewportdefault          layeron<br />    lock    freeze         description<br />   )<br /> )<br /> <br /> <br /> (defun getlayerproperties (/ dat lst)<br />   (vlax-for lay  (vla-get-layers<br />       (vla-get-activedocument (vlax-get-acad-object))<br />     )<br /> <br />     (foreach prp *layer-properties*<br />       (if (vlax-property-available-p lay prp)<br />   (setq lst (cons (vlax-get-property lay prp) lst))<br />       )<br />     )<br />     (setq dat (cons (cons (vla-get-name lay) (reverse lst)) dat)<br />     lst nil<br />     )<br />   )<br />   dat<br /> )<br /> <br /> <br /> (defun setlayerproperties (dat prefix / layer value)<br /> <br />   (foreach e dat<br />     (if  (not (vl-catch-all-error-p<br />          (setq layer<br />           (vl-catch-all-apply<br />       'vla-item<br />       (list (vla-get-layers<br />         (vla-get-activedocument (vlax-get-acad-object))<br />             )<br />             (strcat prefix (car e))<br />       )<br />           )<br />          )<br />        )<br />   )<br />       (progn<br />   (setq value (cdr e))<br />   (foreach prp *layer-properties*<br />     (if (vlax-property-available-p layer prp t)<br />       (vl-catch-all-apply<br />         'vlax-put-property<br />         (list layer prp (car value))<br />       )<br />     )<br />     (setq value (cdr value))<br />   )<br />       )<br />     )<br />   )<br />   (vla-regen (vla-get-activedocument (vlax-get-acad-object))<br />        acallviewports<br />   )<br /> )<br /> <br /> ;; reset layer settings<br /> (defun c:rl (/ ret sel)<br />   (initget "S A X")<br />   (setq  ret (getkword<br />         "打开文档间的图层同步 [提取图层设置(S)/应用到当前文档(A)/应用到外部参照(X)]:"<br />       )<br />   )<br /> <br />   (cond<br />     ((= ret "S")<br />      (vl-bb-set 'layer-settings (getlayerproperties))<br />     )<br /> <br />     ((= ret "A")<br />      (setlayerproperties (vl-bb-ref 'layer-settings) "")<br />     )<br /> <br />     ((= ret "X")<br />      (setq sel (entsel "\n选择外部参照:"))<br />      (if (and<br />      (vl-consp sel)<br />      (= "INSERT"<br />         (cdr (assoc 0 (setq sel (entget (car sel)))))<br />      )<br />      (= 4<br />         (logand<br />     4<br />     (cdr<br />       (assoc 70<br />        (tblsearch "block" (cdr (assoc 2 sel)))<br />       )<br />     )<br />         )<br />      )<br />    )<br />        (progn<br />    (setlayerproperties<br />      (vl-bb-ref 'layer-settings)<br />      (strcat (cdr (assoc 2 sel)) "|")<br />    )<br />        )<br />      )<br />     )<br />   )<br />   (princ)<br /> )

nijiea123

留个脚印，没看太懂和协调图层有什么关系

Aries

感觉不错  试一下

3278

(defun c:xttc ()
        ;协调图层
        (command "-layer" "e" "*" "")
        (princ)
)