Macros 从Catia访问宏中的零件质量

我创建了一个宏，该宏使用以下代码调用零件的属性： ReferenceProduct.PartNumer 参考产品修订

现在我需要计算零件的质量。我可以使用哪种代码？也许有点像参考质量，质量。。。参考产品质量？？我找不到有效的代码

---

提前，谢谢

可以通过惯性计算质量：

Dim objInertia    As Inertia
Dim objProd       As Product

Set objProd = CATIA.ActiveDocument.Product
Set objInertia = objProd.ReferenceProduct.GetTechnologicalObject("Inertia")
MsgBox objInertia.Mass

如果对象定义不正确（如产品未定义材质），则函数GetTechnologicalObjectInertia很容易崩溃。要防止这种情况，请将其包装在一个漂亮的函数中