GefPolylineFormat.InsertVertexAt (method)

Adds a new point on the poly object.

Syntax:

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

Parameters:

Index As long -

X As long -

Y As long -

Description:

The InsertVertexAt method added a new point to the poly object.

Example:

Sub PolylineFormat_InsertVertexAt()

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

        If
oCimPolyFmt.InsertVertexAt(oCimPolyFmt.VertexCount, nXCord, nYCord)
= True Then

            MsgBox
"A new point was added to the object"

        End
If

    End If
    CimGetScreen.Refresh False

End Sub