我创建了一个宏,它使用以下代码调用我的部件的属性:ReferenceProduct.PartNumer ReferenceProduct.Revision
现在我需要调用零件的质量。我可以使用哪个代码?可能类似于 ReferenceMass.Mass... ReferenceProduct.Mass.. ?? 我找不到可以工作的代码。
提前,谢谢!
您可以根据惯性计算质量:
Dim objInertia As Inertia
Dim objProd As Product
Set objProd = CATIA.ActiveDocument.Product
Set objInertia = objProd.ReferenceProduct.GetTechnologicalObject("Inertia")
MsgBox objInertia.Mass
如果对象没有正确定义,函数GetTechnologicalObject("Inertia")
很容易崩溃,比如产品没有定义材料。为了防止这种情况,请将其包装在一个不错的函数中。