Class ComponentOccurrencesEnumerator

[R.I.Chernov]

Доброго времени суток уважаемые форумчане! Помогите пожалуйста разобраться с понятием "ComponentOccurrencesEnumerator". Все чаще и чаще в работе использую свойства, которые возвращают данные вышеуказанного типа. Но вот до конца понять, что это такое, я так и не смог
Единственным более-менее правдоподобным моим предположением было: что это "как бы коллекция вхождений" (прошу прощения за мои высокопрофессиональные термины). Подскажите пожалуйста, где я ошибаюсь - направьте на путь истинный!

[Алексей Романов]

что это "как бы коллекция вхождений"

Это так и есть. Вот пример из справки, там понятно, что к чему:

Код - Visual Basic [Выбрать]

1. Public Sub iMateDuringOccurrencePlacementSample()
2.     ' Get the component definition of the currently open assembly.
3.    ' This will fail if an assembly document is not open.
4.    Dim oAsmCompDef As AssemblyComponentDefinition
5.     Set oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition
6.  
7.     ' Create a new matrix object. It will be initialized to an identity matrix.
8.    Dim oMatrix As Matrix
9.     Set oMatrix = ThisApplication.TransientGeometry.CreateMatrix
10.  
11.     ' Place the first occurrence.
12.    Dim oOcc1 As ComponentOccurrence
13.     Set oOcc1 = oAsmCompDef.Occurrences.Add("C:\TempiMatePart.ipt", oMatrix)
14.  
15.     ' Place the second occurrence, but use iMates for its placement. This is
16.    ' equivalent to "Use iMate" check box on the "Place Component" dialog.
17.    Dim oOccEnumerator As ComponentOccurrencesEnumerator
18.     Set oOccEnumerator = oAsmCompDef.Occurrences.AddUsingiMates("C:\TempiMatePart.ipt", False)
19.  
20.     ' Since the 'PlaceAllMatching' flag was specified as False, we can be
21.    ' sure that just one ComponentOccurrence was returned in the enumerator.
22.    Dim oOcc1 As ComponentOccurrence
23.     Set oOcc1 = oOccEnumerator.Item(1)
24. End Sub

[R.I.Chernov]

Спасибо, Алексей!