Aktif sayfada toplam ağırlık bileşenleri

[batleo]

Herkese merhaba
Bir set olmasa bile ative foliage'daki bileşenlerin ağırlığını eklemem gerekiyor.
Biyolojik bir kural buldum ama işe yaramıyor, biri hata anlamama yardımcı olabilir

“Mevcut belge boş bir dosyaysa doğrulayın
Eğer budoc.documenttype = documenttypeenum.kdrawingdocumentobject O zaman sonra
“ Çizim belgesine referans alın
dim çizimdoc as çizimdocument
çizimdoc = thisdoc.document

Aktif sayfaya referans alın
dim sayfası olarak
Aktif sayfa = çizimdoc.activesheet

“Bir sayfa aktif olup olmadığını kontrol edin
Eğer folioaktif değilse o zaman hiçbir şey değildir
Sayfadaki tüm görüşler aracılığıyla
Her görüş için foliage.drawingviews
“Görünüşe göre referans belgesine atıfta bulunun
dim referencedoc belge olarak
Referansdoc = view.referenceddocument

Referans belgesinin geçerli olup olmadığını doğrulayın
Eğer referansdoc hiçbir şey değilse o zaman
"Görünüşe göre referans alın
dim component as componentoccurrence
bileşen = referansdoc.componentdefinition.occurrences (view.referencedoccurrencename)

"Eğer bileşen geçerliyse kontrol
Eğer bileşen bir şey değilse o zaman
“Demokrat adı alın
dim namecomponent as string
bileşen adı = bileşen.name

“Demokülasyonun ağırlığını hesaplar
dim ağırlıkcomponent as double
ağırlıkcomponent = bileşen.massproperties.mass

“Kırk adı ile özel bir iproperty yaratır
folioactive.propertysets.item("inventor kullanıcı tanımlanmış özellikler")Add(ipropname:=component adı, iproptype:=inventor.valuetypeenum.k doubletype, ipropvalue:=pesocomponent)
Sonunda, eğer sona erirse
Sonunda, eğer sona erirse
Bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki
 
‘ ‘ ‘ Belgede aktif bir sayfa yok
msgbox (" belgede aktif bir sayfa değil. " " ""
Sonunda, eğer sona erirse
 
“Şu anki belge bir idw dosya değildir
msgbox(" mevcut belge bir idw dosyası değildir.")
Sonunda, eğer sona erirse