Add3DPoly Example

Using Programming Languages other than VBA

Sub Example_Add3DPoly()

	Dim polyObj As Acad3DPolyline
	Dim points(0 To 8) As Double

	' Create the array of points
	points(0) = 0: points(1) = 0: points(2) = 0
	points(3) = 10: points(4) = 10: points(5) = 10
	points(6) = 30: points(7) = 20: points(8) = 30

	' Create a 3DPolyline in model space
	Set polyObj = ThisDrawing.ModelSpace.Add3DPoly(points)
	ZoomAll

End Sub

 

   Comments?