|
|
Sub gettext()! A! ^6 d+ A' y9 D$ r
Dim getobj As AcadText
1 V8 ^2 s: k* \Dim p As Variant# p. X% J5 ~3 ]# _5 p( K1 t
Dim i As String/ b; S* V8 X* c0 P7 ~8 F+ t
ThisDrawing.Utility.GetEntity getobj, p, "选择图元:"
3 R* O5 J% T2 ]Debug.Print getobj.textString & " " & getobj.Height & " " & getobj.rotation6 h0 N; s- J8 Y! t3 K" x. w1 Z9 N
End Sub |
|
发表于 2010-7-14 11:30
