IntelliCAD 11.1 Object Library | |
Highlight Method | |
See Also |
- HighlightFlag
Boolean value:
TRUE = The object is highlighted.
FALSE = The object is not highlighted.
ExternalReference Object : Highlight Method |
Description
Syntax
Visual Basic |
---|
Public Sub Highlight( _ ByVal HighlightFlag As Boolean _ ) |
Parameters
- HighlightFlag
Boolean value:
TRUE = The object is highlighted.
FALSE = The object is not highlighted.
Example
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