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

seika_pl

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

wenwengg

Sub gettext()
Dim getobj As AcadText
5 j( u" \3 E) m! k: ZDim p As Variant
Dim i As String
9 I# y: D- ]8 M/ \0 f4 h3 P/ Y3 D2 aThisDrawing.Utility.GetEntity getobj, p, "选择图元:"
/ l4 E% Z, g  v$ y+ I& r. ~$ kDebug.Print getobj.textString & " " & getobj.Height & " " & getobj.rotation
# K' J/ ]8 {) ?  xEnd Sub

welcom520

谢谢，分享了

liubo_ge

分享了