AddPolyLine3D

AddPolyLine3D returns a new 3D Polyline shape. Returns a Polyline3D object.

Syntax

object.AddPolyLine3D( VerticesXY, VerticesZ )

Parameter	Type	Default	Description
VerticesXY	Array of Doubles		Required. This specifies X and Y coordinates (first entry is X coordinate of first vertex, second entry is Y coordinate of first vertex, third entry is X coordinate of second vertex. etc.) for a 3D polyline.
VerticesZ	Array of Doubles	1	Required. This specifies the Z coordinates for a 3D polyline.

Example

This example demonstrates how to add a 3D polyline.

Dim polyline3dcoordsXY (0 To 7) As Double

polyline3dcoordsXYarray = Array( _

1.0, 2.0, _

2.0, 2.5, _

3.0, 2.0, _

4.0, 2.5) 'Variant Array

For i = 0 To 7

polyline3dcoordsXY(i) = polyline3dcoordsXYarray(i)

Next i

Dim polyline3dcoordsZ (0 To 3) As Double

polyline3dcoordsZarray = Array( _

1.0, _

2.0, _

3.0, _

4.0) 'Variant Array

For i = 0 To 3

polyline3dcoordsZ(i) = polyline3dcoordsZarray(i)

Next

 

Set Polygon3D = Shapes.AddPolyLine3D(polyline3dcoordsXY, polyline3DcoordsZ)

Used by: Shapes collection