次のコードでパーツのプロパティを呼び出すマクロを作成しました: ReferenceProduct.PartNumer ReferenceProduct.Revision
ここで、パーツの Mass を呼び出す必要があります。どのコードを使用できますか? 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")
は簡単にクラッシュする可能性があります。これを防ぐには、nice 関数でラップします。