Получение ComponentOccurrence для PartDocument

[Vladislav]

Здравствуйте. Такой вопрос.
Как получить ComponentOccurence для документа типа PartDocument (файл-деталь)?
ComponentOccurrence нужен для последующего получения геометрии через SurfaceBodies.
С файлами-сборками я делал так, а вот для PartDocument.ComponentDefinition.Occurrences.Count равен нулю.
Спасибо за ответы.

[mikazakov]

С файлами-сборками я делал так, а вот для PartDocument.ComponentDefinition.Occurrences.Count равен нулю.

Ну дак это просто унаследованная коллекция от базового интерфейса ComponentDefinition и смысла вхождения в самой детали не имеют.
Поэтому там доступ через сам ComponentDefinition, в нем есть искомая коллекция

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

1. Public Sub part()
2.  Dim part As PartDocument: Set part = ThisApplication.ActiveDocument
3.  Dim CompDef As PartComponentDefinition: Set CompDef = part.ComponentDefinition
4.  MsgBox ("Количество тел: " & CompDef.SurfaceBodies.Count)
5.  
6. End Sub
7.  

[Vladislav]

В дополнение к предыдущему вопросу.
Для файлов-сборок я выполнял SetTransformWithoutConstraints(rotMat) для каждого ComponentOccurrence,
входящего в сборку, для поворота всей модели на нужный мне угол.
Как мне сделать аналогичную операцию в случае файла-детали? Ведь ComponentOccurrence нет.
Спасибо за информацию.

[mikazakov]

Ну если сильно охота по изгаляться, то нужно двигать тела внутри детали через MoveFeatures, вот пример из хэлпа:

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

1. Public Sub MoveFeatureCreationSample()
2.     ' Get the active part document.
3.    Dim oDoc As PartDocument
4.     Set oDoc = ThisApplication.ActiveDocument
5.    
6.     If oDoc Is Nothing Then
7.         MsgBox "No part document!" & vbCrLf & "Please open a part with solids in it for this sample to run.", vbCritical, "Autodesk Inventor"
8.         Exit Sub
9.     End If
10.    
11.     Dim oCompDef As PartComponentDefinition
12.     Set oCompDef = oDoc.ComponentDefinition
13.    
14.     If oCompDef.SurfaceBodies.Count = 0 Then
15.         MsgBox "No solids to move!" & vbCrLf & "Please open a part with solids in it for this sample to run.", vbCritical, "Autodesk Inventor"
16.         Exit Sub
17.     End If
18.    
19.     Dim oBodies As ObjectCollection
20.     Set oBodies = ThisApplication.TransientObjects.CreateObjectCollection
21.    
22.     ' Specify a body to move.
23.    oBodies.Add oCompDef.SurfaceBodies(1)
24.    
25.     ' Create a MoveFeatureDefinition.
26.    Dim oMoveDef As MoveDefinition
27.     Set oMoveDef = oCompDef.Features.MoveFeatures.CreateMoveDefinition(oBodies)
28.    
29.     ' Set the move operations onto the bodies.
30.    Dim oFreeDrag As FreeDragMoveOperation
31.     Set oFreeDrag = oMoveDef.AddFreeDrag(1, 1, 1)
32.    
33.     Dim oMoveAlongRay As MoveAlongRayMoveOperation
34.     Set oMoveAlongRay = oMoveDef.AddMoveAlongRay(oCompDef.WorkAxes(2), True, 2)
35.    
36.     Dim oRotateAboutAxis As RotateAboutLineMoveOperation
37.     Set oRotateAboutAxis = oMoveDef.AddRotateAboutAxis(oCompDef.WorkAxes(3), True, 0.5)
38.    
39.     ' Create the move feature.
40.    Dim oMoveFeature As MoveFeature
41.     Set oMoveFeature = oCompDef.Features.MoveFeatures.Add(oMoveDef)
42. End Sub
43.