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

VBA如何获取 Hatch对象？

本帖最后由 bbkcylh 于 2012-9-11 15:58 编辑

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

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

Sub aa()
Dim en As AcadEntity
ThisDrawing.Utility.GetEntity en, po
If en.ObjectName = "AcDbHatch" Then
.....
End If
End Sub
页: [1]
查看完整版本: VBA如何获取 Hatch对象？