GefObject.Points (read-only property)

Gets point ids configured for an object.
Syntax: Set GefObjectPoints = object.Points
Description: The Points property returns point ids that are for an object.

Example:

Sub GefObject_Points()
    
    Dim oCimObj As GefObject
    Dim oCimObjPts As GefObjectPoints
    
    Set oCimObj = CimGetObject
    Set oCimObjPts = oCimObj.Points
    
    MsgBox "There are " & oCimObjPts.Count & _
        " point(s) on this object"
    
End Sub