' This example creates a line and a circle and highlights all lines.

     Dim lineObj As IntelliCAD.Line

     Dim startpoint As IntelliCAD.Point

     Dim endpoint As IntelliCAD.Point

     Dim circObj As IntelliCAD.Circle

     Dim centerPt As IntelliCAD.Point

     Dim radius As Double

     ' Create a line object in model space

     Set startpoint = Library.CreatePoint(3, 2, 0)

     Set endpoint = Library.CreatePoint(4, 5, 0)

     Set lineObj = ThisDocument.ModelSpace.AddLine(startpoint, endpoint)

     ' Create a circle object in model space

     Set centerPt = Library.CreatePoint(3, 4, 0)

     radius = 5

     Set circObj = ThisDocument.ModelSpace.AddCircle(centerPt, radius)

     Dim entName As String

     Dim ent As Object

     For Each ent In ThisDocument.ModelSpace

          If ent.EntityName = "Line" Then ent.Highlight (True)

     Next

     MsgBox "All lines have been highlighted."

     For Each ent In ThisDocument.ModelSpace

          If ent.EntityName = "Line" Then ent.Highlight (False)

     Next

End Sub