Sub Example_Erase()
' This example creates text and then erases it.
Dim myText As String
Dim textObj As IntelliCAD.Text
Dim insPt As IntelliCAD.Point
Dim height As Double
Set insPt = Library.CreatePoint(0, 9)
height = 5
myText = "Temporary text to be erased"
' Add the Text object
Set textObj = ThisDocument.ModelSpace.AddText(myText, insPt, height)
textObj.Update
ThisDocument.ActiveViewport.ZoomExtents
' Erase the line
textObj.Erase
End Sub