GefObjects.AddPipe (method)

Creates and returns a new pipe object in this container.

Syntax:

Set GefObject = object.AddPipe ( PointArray )

Parameters:

PointArray As VARIANT -

Description:

The PointArray parameter may be a one-dimensional or a two-dimensional array of integers containing the X,Y coordinates of the pipe vertices.

If it is a one-dimensional array the size of the array is the number of vertices times two. The first two elements are the X and Y coordinates of the first vertex.

If it is a two-dimensional array the size of the first dimension is two and the size of the second dimension is the number of vertices.

Example:

Sub GefObjects_AddPipe()

    Dim oCimScr As GefScreen
    Dim oCimObj As GefObject
    Dim oCimObjs As GefObjects

    Dim oCimPipeObj As
GefObject

    Dim a(7) As Long

    Set oCimScr = CimGetScreen

    Set oCimObj =
oCimScr.Object

    Set oCimObjs =
oCimObj.Objects

    a(0) = 120 * 20
    a(1) = 120 * 20
    a(2) = 160 * 20
    a(3) = 120 * 20
    a(4) = 160 * 20
    a(5) = 200 * 20
    a(6) = 120 * 20
    a(7) = 120 * 20

    Set oCimPipeObj =
oCimObjs.AddPipe(a())

    oCimScr.Refresh False

End Sub