Назначение имени Partу

[techno]

Здравствуйте, как можно назначить Partу другим способом имя, вот так не получается:

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

Public Sub CATMain()

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim partDocument1 As PartDocument
Set partDocument1 = documents1.Add("Part")

Dim part1 As Part
Set part1 = partDocument1.Part
part1.Name = "MyPart" ---------------Выдаёт ошибку "Объект не поддерживает операцию"

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Add()
hybridBody1.Name = "Skizzen"

part1.Update

[techno]

сам разобрался:

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

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim product1 As Product
Set product1 = partDocument1.GetItem("Part1")

product1.PartNumber = "MyPart"

[Wireless_Fidelity]

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

Правильнее вот так:

partDocument1.Product.PartNumber = "My PartNumber.001"