使用 VBA 在 CATIA 中调用用户参考属性

Calling user reference properties in CATIA using VBA

我希望在 CATIA 中调用用户引用的属性。目前我可以通过直接路径使用:

xyz = CATIA.Activedocument.product.UserRefProperties.Item("DESIGNER").Value
MsgBox (xyz),0

我希望进行概括,以便无论用户在 window 中选择什么,都会显示该信息。我可以使用这样的代码来完成与我的目标类似的事情:

abc = CATIA.ActiveDocument.Selection.Item(1).Value.Name
MsgBox (abc),0

这就是我的问题。上面的代码将根据选择调用系统定义的属性,但是,这不适用于用户定义的属性。

如何修改此代码以获取存储在用户定义的 属性 中的信息并显示它?

您可能会遇到问题,因为从 2 级子结构开始,您的选择不包含参考,而是一个实例,请尝试此代码(我显示第一个添加的用户 属性所选产品)

MsgBox CATIA.ActiveDocument.Selection.Item(1).LeafProduct.ReferenceProduct.UserRefProperties.Item(1).ValueAsString