назначить материал ВСЕМ body в сборке макрос

[heze]

Доброго времени суток всем!
Помогите, пожалуйста решить такую практическую задачу - есть одна активная сборка с множеством деталей, которые в свою очередь содержат только один body каждая.
Нужно КАЖДОМУ body назначить материал (один и тот же всем body)

знаю как просто назначить материал главному body в парте

Код: Выделить всё

Sub CATMain()
 
Dim MaterialDocPath As String
Dim MaterialName As String, MaterialFamilyName As String

MaterialName = "Alu"
MaterialFamilyName = "Metal"
MaterialDocPath = "D:\material_Catalog.CATMaterial"

Dim oMaterial_document As Document
Set oMaterial_document = CATIA.Documents.Read(MaterialDocPath)
 
Dim oMaterial As Material
Set oMaterial = oMaterial_document.Families.Item(MaterialFamilyName).Materials.Item(MaterialName)
 
Dim oPartDocument As Document
Set oPartDocument = CATIA.ActiveDocument
 
Dim oRootPart As Part
Set oRootPart = oPartDocument.Part
 
Set oManager = oRootPart.GetItem("CATMatManagerVBExt")
 
Dim oMainBody As Body
Set oMainBody = oRootPart.MainBody
 
linkMode = 0
oManager.ApplyMaterialOnBody oMainBody, oMaterial, linkMode
 
End Sub


помогите дописать перебор по продукту

[timkaam]

Переборку по продукту можно сделать циклом:
Set prodDoc1 = CATIA.ActiveDocument
Set prod1 = prodDoc1.Product
Set prods1 = prod1.Products
For i = 1 To prods1.Count
Next
только как-то прийдётся выкинуть из перебора сборки. Может попробовать выбором твёрдых тел?
нет, через selection не хочет, хотя в программе можно без проблем, запускаешь поиск, по телам, и выбору назначаешь материал. Всё работает безупречно

[timkaam]

У меня ругается на эту строчку:
Dim oMaterial As Material
но и без неё макрос идёт, спасибо, не знал как можно назначить материал)

[Wireless_Fidelity]

Вроде, так:

Код: Выделить всё

Dim bd as Body
For Each bd in oRootPart.Bodies
  oManager.ApplyMaterialBody bd,...
Next