Я пытаюсь изменить атрибуты в Catia только при активном выборе. Я собираюсь взять этот код и обобщить его так, чтобы вместо нацеливания на 1 указанный элемент c он включал макрос для любого выбранного элемента.
Sub CATMain()
Dim documents1 As Documents
Set documents1 = CATIA.Documents
Dim partDocument1 As PartDocument
Set partDocument1 = documents1.Item("Test 1.CATPart")
Dim product1 As product
Set product1 = partDocument1.GetItem("Test 1")
product1.Revision = "test"
product1.Definition = "yo"
End Sub
Спасибо за помощь.