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

sccat · 发表于 2004-11-19 12:33:00

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

End Function

mccad · 发表于 2004-11-19 20:48:00

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

sccat · 发表于 2004-11-20 09:28:00

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

mccad · 发表于 2004-11-20 21:47:00

copy


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

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

发表回复

精选推荐