AddPolygon3D
Automation AddPolygon3D method
Scripter AddPolygon3D
Automation Add Polygon 3D method
Scripter Add Polygon 3D
AddPolygon3D returns a new 3D Polygon shape. Returns a Polygon3D object.
Syntax
object.AddPolygon3D( VerticesXY, VerticesZ )
|
Parameter |
Type |
Default |
Description |
|
VerticesXY |
Array of Doubles |
Required. The 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.) |
|
|
VerticesZ |
Array of Doubles |
1 |
Required. The Z coordinates. |
Example
This example demonstrates how to add a 3D polygon.
Sub Main
Set surf = GetObject(,"Surfer.Application")
Set plotdoc1 = surf.Documents.Add(srfDocPlot)
Set shapes1 = plotdoc1.Shapes
Dim polygon3dcoordsXY(7) As Double
polygon3dcoordsXY(0) = 1 : polygon3dcoordsXY(1) = 2
polygon3dcoordsXY(2) = 2 : polygon3dcoordsXY(3) = 2.5
polygon3dcoordsXY(4) = 3 : polygon3dcoordsXY(5) = 2.0
polygon3dcoordsXY(6) = 4 : polygon3dcoordsXY(7) = 2.5
Dim polygon3dcoordsZ(3) As Double
polygon3dcoordsZ(0) = 1 : polygon3dcoordsZ(1) = 2
polygon3dcoordsZ(2) = 3 : polygon3dcoordsZ(3) =4
Set polygon3d = shapes1.AddPolygon3D(polygon3dcoordsXY, polygon3dcoordsZ)
'use the 3D polygon object from here on
End Sub
Used by: Shapes collection