Summengewichtskomponenten in aktivem Blatt

[batleo]

Hallo alle
Ich hätte die Notwendigkeit, das Gewicht der im ativem Blatt enthaltenen Komponenten hinzuzufügen, auch wenn sie kein Set sind.
Ich fand eine ilogische Regel, aber es funktioniert nicht, jemand kann mir helfen, den Fehler zu verstehen

' überprüfen, ob das aktuelle Dokument eine idw-Datei ist
if thisdoc.documenttype = documenttypeenum.kdrawingdocumentobject dann
' den Hinweis auf das Zeichnungsdokument erhalten
dim Zeichnungsdokument als Zeichnungsdokument
Zeichnungdoc = thisdoc.document

' beziehen sich auf aktives Blatt
Dimmblatt als Blatt
aktives Blatt = drawdoc.activesheet

Überprüfen Sie, ob ein Blatt aktiv ist
wenn nicht folioaktiv ist nichts
Itera durch alle Ansichten auf dem Blatt
für jede Ansicht als Zeichnung in foliage.drawingviews
"Bezugsdokument der Ansicht erhalten
dim referencedoc als Dokument
Referenzdoc = view.referenceddocument

" überprüfen, ob das Referenzdokument gültig ist
wenn nicht Referenzdoc ist nichts
' den Hinweis auf die Komponente in der Ansicht erhalten
Dim-Komponente als Komponenteoccurence
Komponente = Referenzdoc.componentdefinition.occurrences(view.referencedoccurrencename)

Überprüfen Sie, ob die Komponente gültig ist
wenn nicht Komponente ist nichts
' erhalten Sie den Bauteilnamen
Dim NameKomponente als String
Komponentenname = Komponente.name

' berechnet Gewicht der Komponente
Dimgewichtskomponente als Doppel
GewichtKomponente = Komponente.massproperties.mass

' erstellt eine benutzerdefinierte Iproperty für Komponentennamen mit seinem Gewicht
folioactive.propertysets.item("Erfinder definierte Eigenschaften").add(ipropname:=Komponentenname, iproptype:=inventor.valuetypeenum.kdoubletype, ipropvalue:=pesocomponent)
Ende
Ende
Nächste
♪
' Kein aktives Blatt im Dokument
msgbox("kein aktives Blatt im Dokument. "
Ende
♪
'current document is not a idw file
msgbox("das aktuelle Dokument ist keine idw-Datei.")
Ende