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

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

比如在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

谢谢，分享了

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

分享了

		自动登录	找回密码
密码			立即注册

[开发] VBA如何获取某一对象的特性值？