poids total dans les feuilles actives

[batleo]

Bonjour tout le monde
J'aurais besoin d'ajouter le poids des composants présents dans le feuillage actif même s'ils ne sont pas un ensemble.
J'ai trouvé une règle logique mais ça ne marche pas, quelqu'un peut m'aider à comprendre l'erreur

' vérifier si le document actuel est un fichier idw
si cedoc.documenttype = documenttypeenum.kdrawingdocumentobjet puis
' obtenir la référence au document de dessin
dim dessindoc comme document de dessin
drawingdoc = ce document

' se référer à la feuille active
Dim feuille comme feuille
feuille active = feuille de dessin

' vérifier si une feuille est active
si non folioactive n'est rien alors
Itera à travers toutes les vues sur la feuille
pour chaque vue comme vue de dessin dans le feuillage. vue de dessin
' se référer au document de référence de la vue
dim referencedoc comme document
referencedoc = view.referenceddocument

' vérifier si le document de référence est valide
si non referencedoc n'est rien alors
' obtenir la référence au composant dans la vue
dim composant comme composantoccurrence
composant = referencedoc.componentdefinition.occurrences(view.referencedoccurrencename)

' vérifier si le composant est valide
si pas un composant n'est rien alors
' obtenir le nom du composant
dim namecomponent comme chaîne
nom du composant = nom du composant

' calcule le poids de l'élément
dim composant de poids double
composant de poids = composant.massepropriétés.masse

' crée une propriété personnalisée pour le nom de composant avec son poids
folioactive.propertysets.item("inventor user defined properties").add(ipropname:=component name, iproptype:=inventor.valuetypeenum.kdoubletype, ipropvalue:=pesocomponent)
fin si
fin si
suivant
♪
' Pas de feuille active dans le document
msgbox("pas de feuille active dans le document. "
fin si
♪
'le document actuel n'est pas un fichier idw
msgbox("le document actuel n'est pas un fichier idw.")
fin si