Private Sub Highlight_Example()
' 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