AddLine Method

AddMText Method →

Collapse All Expand All

Description

Adds a line passing through two points.

Visual Basic
Public Function AddLine( _ ByVal StartPoint As Point, _ ByVal EndPoint As Point _ ) As Line

Private Sub AddLineExample()

' This example creates a line and adds it to the drawing using the AddLine

' method. It then uses the Redraw method to update the screen.

Dim myDoc As IntelliCAD.Document

Dim myLine As IntelliCAD.Line

Set myDoc = Application.ActiveDocument

Set myLine = myDoc.ModelSpace.AddLine(Library.CreatePoint(4, 4), Library.CreatePoint(7, 1))

myLine.Update

ThisDocument.Application.ZoomExtents

MsgBox "Line created from 4,4 to 7,1."

' ' The following lines demonstrate another way to create the line.

' Dim myStartPt As IntelliCAD.Point

' Dim myEndPt As IntelliCAD.Point

' Set myStartPt = Library.CreatePoint(4, 4)

' Set myEndPt = Library.CreatePoint(7, 1)

' Set myLine = myDoc.ModelSpace.AddLine(myStartPt, myEndPt)

End Sub