Oops, sorry I got it
[code]
Sub eto()
Dim ObjText As AcadText
Dim Str As String
Dim Pt As Variant
ThisDrawing.Utility.GetEntity ObjText, Pt, "Pick an object text"
Str = ThisDrawing.Utility.GetString(True, "Enter new text: ")
ObjText.TextString = Str
ObjText.Update
End Sub
[/code]
"Adesu" wrote in message
news:5971353@discussion.autodesk.com...
Here my code to edit a text in area drawing, but that code displayed
"Compile Error : Invalid Qualifier"
[code]
Sub eto()
Dim ObjText As AcadText
Dim EntText As String
Dim Pt As Variant
ThisDrawing.Utility.GetEntity ObjText, Pt, "Pick an object text"
EntText = ThisDrawing.Utility.GetString(True, "Enter new text: ")
ObjText.TextString = EntText.TextString
ObjText.Update
End Sub
[/code]
