使用VBA代码访问CATIA中的用户定义特性

Dim CATIAApp As CATIA.Application
Dim CATIAPart As PartDocument
Dim CATIAPartPart As Part
Dim CATIAUserProps As UserProperties
Dim CATIAUserProp As UserProperty

Set CATIAApp = GetObject(, "CATIA.Application")
Set CATIAPart = CATIAApp.ActiveDocument
Set CATIAPartPart = CATIAPart.Part
Set CATIAUserProps = CATIAPartPart.UserProperties
Set CATIAUserProp = CATIAUserProps.Item("PropertyName")

'读取特性值
Dim propValue As String
propValue = CATIAUserProp.Value
MsgBox propValue

'设置特性值
CATIAUserProp.Value = "NewPropertyValue"
CATIAApp.ActiveDocument.Save