GefPolylineFormat.SetVertex (method)

Sets the postion of a point on the poly object.

Syntax:

Boolean = object.SetVertex ( Index, X, Y )

Parameters:

Index As long -

X As long -

Y As long -

Description:

The SetVetext method sets the position of a point on the poly object.

Example:

Sub PolylineFormat_SetVertex()

Dim oCimObj As GefObject

    Dim oCimPolyFmt As
GefPolylineFormat

    Dim nXCord As Long
    Dim nYCord As Long

    nXCord = 20 * 20
    nYCord = 40 * 20
    Set oCimObj = CimGetObject

    Set oCimPolyFmt =
oCimObj.PolylineFormat

    If Not oCimPolyFmt Is Nothing
Then

        oCimPolyFmt.SetVertex
oCimPolyFmt.VertexCount - 1, nXCord, nYCord

    End If
    CimGetScreen.Refresh False

End Sub