[求助]怎样将Block里面的Hatch改变颜色？

sccat

主要问题是怎样能够浏览block里面的东西，然后挑选出Hatch Public Function ChangeHatchColorInBlock(Block As AcadBlock)
Dim elem As Object
？ For each elem in Block //这是会产生错误的。 ？

End Function

mccad

If elem.ObjectName = "AcDbHatch" Then elem.Color = acRed '你所要的颜色

sccat

这个我知道，只是不知道block这个类里面的东西怎么访问，它的层次结构是怎么样的？block里面陷套的block里面的东西又怎么访问？

mccad

2. Sub ChgColor()
3. Dim pnt, ent As AcadEntity
4.        ThisDrawing.Utility.GetEntity ent, pnt
5.        ChangColor ent.Name
6.        Regen acActiveViewport
7. End Sub
8. Sub ChangeColor(BlockName As String)
9.        Dim ent As AcadEntity
10.        For Each ent In ThisDrawing.Blocks(BlockName)
11.                Debug.Print ent.ObjectName
12.                If ent.ObjectName = "AcDbHatch" Then ent.color = acRed
13.                If ent.ObjectName = "AcDbBlockReference" Then ChangColor ent.Name
14.        Next
15. End Sub

Sub ChgColor() Dim pnt, ent As AcadEntity        ThisDrawing.Utility.GetEntity ent, pnt        ChangColor ent.Name        Regen acActiveViewport End Sub Sub ChangeColor(BlockName As String)        Dim ent As AcadEntity        For Each ent In ThisDrawing.Blocks(BlockName)                Debug.Print ent.ObjectName                If ent.ObjectName = "AcDbHatch" Then ent.color = acRed                If ent.ObjectName = "AcDbBlockReference" Then ChangColor ent.Name        Next End Sub