Add3DPoly Method

AddArc Method

Collapse All Expand All

Vertices: A series of Point objects specifying coordinate locations for each polyline vertex.

Description

Adds a 3dPolyline given the vertices as a points collection.

Visual Basic
Public Function Add3DPoly( _ ByVal Vertices As Points _ ) As Polyline3D

Vertices: A series of Point objects specifying coordinate locations for each polyline vertex.

Private Sub 3DPolyline_Example()

Dim myDoc As IntelliCAD.Document

Dim myPline3D As Polyline3D

Dim myPoints As points

Dim pt As Point

Set myDoc = ActiveDocument

Set myPoints = Library.CreatePoints

Set pt = Library.CreatePoint(7, 2, 3)

myPoints.Add

myPoints(myPoints.Count - 1).x = pt.x

myPoints(myPoints.Count - 1).y = pt.y

myPoints(myPoints.Count - 1).z = pt.z

Set pt = Library.CreatePoint(9, 8, 7)

myPoints.Add

myPoints(myPoints.Count - 1).x = pt.x

myPoints(myPoints.Count - 1).y = pt.y

myPoints(myPoints.Count - 1).z = pt.z

Set myPline3D = ThisDocument.ModelSpace.Add3DPolyline(myPoints)

myPline3D.Update

ThisDocument.Application.ZoomExtents

End Sub