VBA如何获取 Hatch对象？

bbkcylh

     想对填充图案设置扩展属性，但是总是搞不明白应该怎么获取Hatch对象。具体就是想通过鼠标点取一个填充对象，然后设置扩展属性，有知道或做过的指点下，谢谢

sscylh

2. Sub aa()
   
3. Dim en As AcadEntity
   
4. ThisDrawing.Utility.GetEntity en, po
   
5. If en.ObjectName = "AcDbHatch" Then
   
6. .....
   
7. End If
   
8. End Sub

Sub aa()<br /> Dim en As AcadEntity<br /> ThisDrawing.Utility.GetEntity en, po<br /> If en.ObjectName = "AcDbHatch" Then<br /> .....<br /> End If<br /> End Sub