[编程申请]：块内元素的标准化处理-至0层，颜色byblock

dazhu-119

我做图的时候经常会用到别人的图块，可是那个图块内的元素如线或弧之类经常在一些我不想要的层上，purge也无法删除那些层，让我的图层很乱。每次我只能用refedit命令把块内的元素改至0层，color改成byclock，这样才能方便管理。 能不能编写一个命令，可以对图块进行一下标准化处理。谢谢各位大侠了。

iVox

我认为这个程序很有实用价值，已经着手编写 ：）
不过有个问题——
我记得AutoCAD不同版本的DXF数据对BLOCK的子实体处理方法是不同的。我现在是在AutoCAD2004上编写，不知道会不会有问题。
程序完成度已经80%，完成后将另开新贴发表，请留意。

好的程序依赖于好的问题，好的问题依赖于好的用户。
欢迎交流 ：）

又：
程序BETA版已经发布，见——
http://www.xdcad.net/forum/showthread.php?s=&threadid=81126

hqd9639

其实对AUTOCAD2002以上版本，其属性编辑功能已经很强大的了，完全可解决你的问题。

iVox

也许你没有亲身经历过此类问题——我是经常处理这种不合己意的图块，不胜其烦。

aeo

http://www.xdcad.net/forum/showthread.php?s=&threadid=81126

将就吧

eachy

1. 
   
2. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
   
3.   <tr>
   
4.     <td width="100%" height="489">
   
5.       <iframe name="I1" width="100%" height="100%" src="http://www.vbdesign.net/expresso/archive/topic/3015.html">
   
6. 浏览器不支持嵌入式框架或配置为不显示嵌入式框架
   
7.       </iframe>
   
8.     </td>
   
9.   </tr>
   
10. </table>
    

复制代码

aeo

2. 
   
3. ;把块中实体图层颜色改为随块(包括块中块)
   
4. (defun c:blk ( / a b blks name cha)
   
5.   (defun cha(name / blk)
   
6.    (setq blk (vla-item blks name))
   
7.    (vlax-for i blk
   
8.     (cond
   
9.       ((= "AcDbBlockReference"(vla-get-objectname i))(cha (vla-get-name i)))
   
10.       (t
    
11.        (vla-put-color i acByBlock)
    
12.        (vla-put-layer i "0")
    
13.       )
    
14.     )
    
15.   )
    
16. )
    
17.   (prompt "\n请选择图块")
    
18.   (if (and
    
19.         (setq a (car (entsel)))
    
20.         (= "AcDbBlockReference"(vla-get-objectname(setq a(vlax-ename->vla-object a))))
    
21.         (setq name (vla-get-name a))
    
22.         (setq blks (vla-get-blocks (setq b(vla-get-activedocument
    
23.                                         (vlax-get-acad-object)
    
24.                                    ))
    
25.                    )
    
26.         ))
    
27.     (progn
    
28.       (command"undo""group")
    
29.       (cha name)
    
30.       (vla-regen b acActiveViewport)
    
31.       (command"undo""end")
    
32.     )
    
33.   )
    
34. )
    

<br /> ;把块中实体图层颜色改为随块(包括块中块)<br /> (defun c:blk ( / a b blks name cha)<br />   (defun cha(name / blk)<br />    (setq blk (vla-item blks name))<br />    (vlax-for i blk<br />     (cond<br />       ((= "AcDbBlockReference"(vla-get-objectname i))(cha (vla-get-name i)))<br />       (t<br />        (vla-put-color i acByBlock)<br />        (vla-put-layer i "0")<br />       )<br />     )<br />   )<br /> )<br />   (prompt "\n请选择图块")<br />   (if (and<br />         (setq a (car (entsel)))<br />         (= "AcDbBlockReference"(vla-get-objectname(setq a(vlax-ename->vla-object a))))<br />         (setq name (vla-get-name a))<br />         (setq blks (vla-get-blocks (setq b(vla-get-activedocument<br />                                         (vlax-get-acad-object)<br />                                    ))<br />                    )<br />         ))<br />     (progn<br />       (command"undo""group")<br />       (cha name)<br />       (vla-regen b acActiveViewport)<br />       (command"undo""end")<br />     )<br />   )<br /> )<br />

undo后要regen

eachy

最初由 dazhu-119 发布
[B]我做图的时候经常会用到别人的图块，可是那个图块内的元素如线或弧之类经常在一些我不想要的层上，purge也无法删除那些层，让我的图层很乱。每次我只能用refedit命令把块内的元素改至0层，color改成byclock，这样才?.. [/B]

工具箱环境下在命令行输入 dwgblack 命令试试。

dazhu-119

十分感谢aeo的帮助. 问题解决了, 您的程序我在工作已经用了很久了,不谢谢说不过去世

yzr20020626

还是有点问题，如果把块中块从1层变层2层的颜色还是原来的颜色。（1层颜色为1，2层颜色为2)

市政画图佬

aeo 发表于 2003-8-17 13:20
undo后要regen

2023年用2003年前辈的成果，完美解决，推荐大家试试。