Sub Main UpdatePartMassProps()

    'Kontrola, jestli se jedná o pohled komponenty

    If ThisDrawing.ModelDocument.DocumentType = kPartDocumentObject Then

        Dim oDoc As Inventor.PartDocument

        'Definice modelu podle prvního výkresového pohledu

        oDoc = ThisDrawing.ModelDocument

        Dim dMass As Double

        'Aktualizace hmotnosti

        dMass = oDoc.ComponentDefinition.MassProperties.Mass

        'Aktualizace součásti (Komponenty)

        oDoc.Update

        'Uložení (Komponenty)

        oDoc.Save

        iLogicVb.UpdateWhenDone = True

        MessageBox.Show("Hmotnost byla aktualizována", "Úspěšně dokončeno")

    Else

        MessageBox.Show("Aktualizace hmotnosti je k dispozici pouze pro výkres součásti", "špatný typ souboru ve výkresu")

    Exit Sub

    End If

End Sub