CATIA VBA：Item、Item2、Count与Count2解析

Public Function iSelItem(ByVal ItemNumber)
    If CATIA.SystemConfiguration.Release < "16" Then
        Set iSelItem = iSel.Item(ItemNumber)
    Else
        Set iSelItem = iSel.Item2(ItemNumber)
    End If
End Function


Public Function iSelCount()
    If CATIA.SystemConfiguration.Release < "16" Then
        iSelCount = iSel.Count
    Else
        iSelCount = iSel.Count2
    End If
End Function