Sub Mass_Test()
Dim oDoc As PartDocument
Set oDoc = ThisApplication.ActiveDocument
Dim oDef As PartComponentDefinition
Set oDef = oDoc.ComponentDefinition
Dim oMassProps As MassProperties
Set oMassProps = oDef.MassProperties
'какова текущая масса и переопределена ли она
Debug.
Print "Масса, кг: " & oMassProps.
Mass Debug.
Print "Масса переопределена?: " & oMassProps.
MassOverridden
'переопределяем массу искусственно
oMassProps.Mass = 10
Debug.
Print "Масса, кг: " & oMassProps.
Mass Debug.
Print "Масса переопределена?: " & oMassProps.
MassOverridden
'восстановление "честной" массы
oMassProps.MassOverridden = False
Debug.
Print "Масса, кг: " & oMassProps.
Mass Debug.
Print "Масса переопределена?: " & oMassProps.
MassOverridden End Sub