Attribute VB_Name = "GewichtAssembly"
Sub GewichtHolenAss()
'Schreibt die Masse des Bauteils in die benutzerdefinierten Eigenschaften als Eigenschaft "Masse"

'Nur im Part:
If ThisApplication.ActiveDocumentType = kAssemblyDocumentObject Then
  
  Dim oDoc As AssemblyDocument
  Set oDoc = ThisApplication.ActiveDocument
  
  'Wie ist die Masse?
  Dim sMasse As String
  sMasse = oDoc.UnitsOfMeasure.GetStringFromValue(oDoc.ComponentDefinition.MassProperties.Mass, oDoc.UnitsOfMeasure.MassUnits)
  
  'Benutzerdefinierten Eintrag erzeugen
  'Masse vorhanden?
  Dim bMasseDa As Boolean
  Dim oProp As Property
  bMasseDa = False
  For Each oProp In oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}") 'Benutzerdefiniert
    If oProp.Name = "Masse" Then
      bMasseDa = True
      Exit For
    End If
  Next
  'Masse eintragen oder ändern
  If bMasseDa Then
    oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item("Masse").Value = sMasse
  Else
    oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Add sMasse, "Masse"
  End If

End If

End Sub