one method among many others. It all depends on what weight you're really looking for.
Sub CATMain()
Dim productDocument As productDocument
Dim product As product
Set productDocument = CATIA.ActiveDocument
Set product = productDocument.product
MsgBox product.Analyze.Mass & " Kg"
End Sub
one method among many others. It all depends on what weight you're really looking for.