不用遍历方法,真的不能直接更改图块中子图元的颜色吗?

兰州人

我现在更改图块中子图元颜色的方法,是通过遍历图块,再通过条件语句找到需要更改子图元的句柄号handle后,来实现目标

 Dim ent As AcadEntity
  Dim pblock, obj

    For Each obj In ThisDrawing.Blocks("aa") '遍历已知图块名
       If obj.Handle = "92" Then '判断图块中符合条件的子图元句柄handle
          obj.color = 5 ' 更改子图元颜色
         ThisDrawing.Regen (acActiveViewport) '刷新活动窗口
       End If
   Next obj

从理论讲,已知图块名+子图元名柄handle,从上面小程序分析,可以不用遍历的方法,直接更改子图元的颜色.

图块有三种类型：简单块， XRef 块 和布局块.简单块是可以联合在一起形成单个对象或块定义的对象集合,

从简单块定义看,遍历图块更改子图元的颜色是唯一方法.不用遍历的方法,直接更改子图元的颜色是不可行的???

我这种结论对吗????

chengaokkk

同问，尝试了用block.truecolor.colormethod的办法，发现无法更改colormethod的值，通过调试发现，虽然程序中更改了，但是一更改colormethod的值就立即变回原来的值，不知道为什么。求助!

chman

用选择集试试呢

chengaokkk

回复 chman 的帖子

选择集还不如遍历省事，只是想找个更方便的的办法