С помощью вот такого не хитрого цикала я получаю список геометрических сетов и входящей в них геометрии.
- Код: Выделить всё
For M = 1 To Catia.ActiveDocument.Part.HybridBodies.Count
Cells(A, 6) = Catia.ActiveDocument.Part.HybridBodies.Item(M).Name
For B = 1 To Catia.ActiveDocument.Part.HybridBodies.Item(M).HybridShapes.Count
Cells(A, 7) = Catia.ActiveDocument.Part.HybridBodies.Item(M).HybridShapes.Item(B).Name
A = A + 1
Next B
Next M
Подскажите как получить свойства геометрии (тип линии, толщина, цвет и т.д.)