AddLine Example

Using Programming Languages other than VBA

Sub Example_AddLine()
	' This example adds a line in model space

	Dim lineObj As AcadLine
	Dim startPoint(0 To 2) As Double
	Dim endPoint(0 To 2) As Double

	' Define the start and end points for the line
	startPoint(0) = 1#: startPoint(1) = 1#: startPoint(2) = 0#
	endPoint(0) = 5#: endPoint(1) = 5#: endPoint(2) = 0#

	' Create the line in model space
	Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
	ZoomAll

End Sub

 

   Comments?