seika_pl 发表于 2010-7-14 11:30

VBA如何获取某一对象的特性值？

比如在model里有一单行文字“TEXT”，如何用VBA获取“TEXT”的各个特性值？
如：内容、高度、旋转。。。。。:(

wenwengg 发表于 2010-7-14 15:12

Sub gettext()
Dim getobj As AcadText
Dim p As Variant
Dim i As String
ThisDrawing.Utility.GetEntity getobj, p, "选择图元:"
Debug.Print getobj.textString & " " & getobj.Height & " " & getobj.rotation
End Sub

welcom520 发表于 2010-7-14 15:16

谢谢，分享了:D

liubo_ge 发表于 2010-7-19 10:30

:victory: :victory: 分享了
页: [1]
查看完整版本: VBA如何获取某一对象的特性值？