GefObjectPoints.Item (method)

Returns a specified point id.
Syntax: String = object.Item ( Index )
Index As long - The numeric index or a string containing the name of the point id. The numeric index ranges from 0 to Count-1.
Description: The Item method will return only point ids defined for the particular GefObject and any objects it contains. It does not return point ids from any of the parent objects.


Sub GefObjectPoints_Item()
    Dim oCimObj As GefObject
    Dim oCimObjPts As GefObjectPoints
    Dim ptID As String
    Set oCimObj = CimGetObject
    Set oCimObjPts = oCimObj.Points
    For i = 0 To oCimObjPts.Count - 1
        ptID = oCimObjVars.Item(i)
        MsgBox "Point number " & i + 1 & " is " & """" & ptID & """"
    Next i
End Sub