Description
Erases the display of the entity. The entity is not deleted from the database.
Syntax
Visual Basic |
---|
Public Sub Erase() |
Example
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.Application.ZoomExtents
' Erase the line
textObj.Erase
End Sub