[求助]：如何批量修改块中属性的图层

paladin

如何修改块中属性的图层？
这两天修改一份图纸（不知道是用的哪个版本的理正绘制的），发现门窗块中的属性编号不是在window_text图层中，而是在0层。
想请教下如何批量修改？（数量太多了）
谢谢！

Qun

这个情况可能是因为理正建筑曾经有几天的补丁有BUG造成的。
目前没有想出太好的批量解决方法。如果不是在0层，可以用【图层接口】处理解决。
为了解决同类问题，准备在【图元改层】里面增加改属性层的功能。

paladin

请问用【图层接口】如何处理？
另外在此图中绘制的新的门窗，门窗编号仍然是在0层。请问如何防止这种事情发生？
谢谢！

andyhua5240

吾曾遇之！
解决之途径：
任意copy一个门窗的块，在特性面板中，将其比例xyz，改为等比例，如900,900,900
用refedit命令进入块的在位编辑，手动的将那个属性字A改到windows_text层上，就可以了！以后插入的门窗的名称也会是在那个层上的！

Free-Lancer

这个意思？（未经测试代码）

2. 
   
3. (defun c:tt (/ e obj bn doc ss atts)
   
4.   (if (setq e (ssget ":S" '((0 . "Insert"))))
   
5.     (progn
   
6.       (setq obj        (vlax-ename->vla-object (ssname e 0))
   
7.             bn        (vla-get-name obj)
   
8.             doc        (vla-get-activedocument (vlax-get-acad-object))
   
9.       )
   
10.       (vlax-for        x (vla-item (vla-get-blocks doc) bn)
    
11.         (if (wcmatch (vla-get-objectname x) "*Att*")
    
12.           (vla-put-layer x "windows_text")
    
13.         )
    
14.       )
    
15.       (if (setq ss (ssget "X" (list (cons 2 bn))))
    
16.         (vlax-for x (vla-get-activeselectionset doc)
    
17.           (if (setq atts (vlax-invoke x 'getattributes))
    
18.             (foreach a atts
    
19.               (vla-put-layer a "windows_text")
    
20.             )
    
21.           )
    
22.         )
    
23.       )
    
24.     )
    
25.   )
    
26.   (princ)
    
27. )

<br /> (defun c:tt (/ e obj bn doc ss atts)<br />   (if (setq e (ssget ":S" '((0 . "Insert"))))<br />     (progn<br />       (setq obj        (vlax-ename->vla-object (ssname e 0))<br />             bn        (vla-get-name obj)<br />             doc        (vla-get-activedocument (vlax-get-acad-object))<br />       )<br />       (vlax-for        x (vla-item (vla-get-blocks doc) bn)<br />         (if (wcmatch (vla-get-objectname x) "*Att*")<br />           (vla-put-layer x "windows_text")<br />         )<br />       )<br />       (if (setq ss (ssget "X" (list (cons 2 bn))))<br />         (vlax-for x (vla-get-activeselectionset doc)<br />           (if (setq atts (vlax-invoke x 'getattributes))<br />             (foreach a atts<br />               (vla-put-layer a "windows_text")<br />             )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

Qun

最初由 paladin 发布
[B]请问用【图层接口】如何处理？
另外在此图中绘制的新的门窗，门窗编号仍然是在0层。请问如何防止这种事情发生？
谢谢！ [/B]

在【初始设置】里面选上“刷新块”然后“OK”。
先在【改层文件】里面将“窗字”层改为现有门窗名称层名（0层情况处理不了），然后用【图层接口】选择“默认图层”然后“OK”就处理好了。

Qun

[图元改层]：增加“{A}改属性层”选项。
请下载补丁。