|
|
Sub gettext()
) }) z% v& f) |Dim getobj As AcadText& t4 @. R! w4 X+ Y
Dim p As Variant4 R" E1 C! a) Y0 F! T* B- f
Dim i As String
" H0 H+ D! O5 l( ZThisDrawing.Utility.GetEntity getobj, p, "选择图元:"
9 y# J% W8 M2 h. ? I2 ZDebug.Print getobj.textString & " " & getobj.Height & " " & getobj.rotation8 L. N* r0 G6 M. \* G
End Sub |
|
发表于 2010-7-14 11:30
