GefPolylineFormat.GetVertex (method)

Gets the postion of a point on the poly object.
Syntax: Boolean = object.GetVertex ( Index, X, Y )
Index As long -
X As long* -
Y As long* -
Description: The GetVertex method gets the location of a point on the poly object.


Sub PolylineFormat_GetVertex()
    Dim oCimObj As GefObject
    Dim oCimPolyFmt As GefPolylineFormat
    Dim nXCord As Long
    Dim nYCord As Long
    Set oCimObj = CimGetObject
    Set oCimPolyFmt = oCimObj.PolylineFormat
    If Not oCimPolyFmt Is Nothing Then
        If oCimPolyFmt.GetVertex(oCimPolyFmt.VertexCount - 1, nXCord, nYCord) = True Then
            MsgBox "The postion on the screen for the last point is " & nXCord / 20 & ", " & nYCord / 20
        End If
    End If
End Sub