我仅尝试在活动选择中更改Catia中的属性。我希望采用此代码并将其概括化，以便与其针对1个特定项目，而不会针对我选择的任何项目激活宏。

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

感谢您的帮助。