Преименование OriginElements

[Headless]

Уважаемые программисты, нужна помощь! Необходимо в сборке создавать деталь и после этого переименовывать плоскости "xy plane" в "XY_PLANE" c последующей публикацией её. С публикациями - разобрался, остался вопрос, как переименовывать? Спасибо за внимание.

[Wireless_Fidelity]

Здравствуйте.

Переименование, чаще всего, осуществляется через свойство Name.
Правда, у элементов из OriginElements не тот интерфейс, нужно его чуток преобразовать:

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

Dim partRoot as Part
Set partRoot = CATIA.ActiveDocument.Part

Dim sel as Selection
Set sel = CATIA.ActiveDocument.Selection

sel.Clear
sel.Add partRoot.OriginElements.PlaneXY
sel.Item(1).Value.Name = "XY_PLANE"

sel.Clear
sel.Add partRoot.OriginElements.PlaneYZ
sel.Item(1).Value.Name = "YZ_PLANE"

...

[Headless]

Большое спасибо, это очень помогло!