PLM-forum.ru

Нужно отправить геометрию из геометрических сетов в EXCEL, где можно будет ее упорядочить и проанализировать.
С помощью вот такого не хитрого цикала я получаю список геометрических сетов и входящей в них геометрии.

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

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

Подскажите как получить свойства геометрии (тип линии, толщина, цвет и т.д.)

VisProperties погугли

Может есть у кого то примерчик.
Пока осилил только это

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

Set VISprops = Catia.ActiveDocument.Part.HybridBodies.Item(M).HybridShapes.Item(B).VisProperties

боюсь, пока разберусь до конца, проект уже закончится, и все перелопатим вручную...