社区 › VB › VBA如何获取 Hatch对象？

bbkcylh 发表于 2012-9-11 15:56:00

VBA如何获取 Hatch对象？

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

sscylh 发表于 2012-9-11 18:19:00

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

查看完整版本: VBA如何获取 Hatch对象？