---

Hallo Leute,

ich habe ein Script erstellt, mit dem man das Gewicht gewählter Volumenkörper ausgeben lassen kann.
Leider weis ich nicht, wie ich die Summe aller Objekte angezeigt bekomme. Er zeigt mir nur die einzelnen Gewichte an.

Hier das Script :

Public Sub Gewicht()
'Variablen deklarieren
Dim Sset As AcadSelectionSet
Dim Auswahl As AcadObject
Dim sListe As String
Dim vGesamtG As Variant
'Funktion
Set Sset = ThisDrawing.SelectionSets.Add("Element")
Sset.SelectOnScreen
For Each Auswahl In Sset
    sListe = sListe & vbCrLf & Auswahl.Volume * 0.00000785
Next

MsgBox "Das Gesamtgewicht der Volumenkörper in kg :" & sListe
Sset.Delete

End Sub

Gruß
Sun Lee

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Sun Lee,

erstell dir doch eine Variable, bei der du innerhalb deiner ForEach-Schleife die einzelnen Gewichte hinzu addierst.

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für den Tip Carsten, jetzt funktioniert es! 

Hier das Scipt :

Public Sub Gewicht()
'Variablen deklarieren
Dim Sset As AcadSelectionSet
Dim Auswahl As AcadObject
Dim sListe As String
Dim vGesamtG As Variant
'Funktion
Set Sset = ThisDrawing.SelectionSets.Add("Element")
Sset.SelectOnScreen
For Each Auswahl In Sset
    sListe = sListe & vbCrLf & Auswahl.Volume * 0.00000785
    vGesamtG = vbCrLf & vGesamtG + Auswahl.Volume * 0.00000785
Next

MsgBox "Das Gewicht der Volumenkörper ist :" & vGesamtG
Sset.Delete

End Sub

Gruß
Sun Lee

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Wenn in meiner Volumenkörper Auswahl eine normale Linie oder Fläche dabei ist, dann bekomme ich leider eine Fehlermeldung.   
Kann man da dem Script sagen, das er bei der Auswahl nur die Volumenkörper beachten soll?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

Du kannst die Elemente ja vor der Berechnung überprüfen, ob es Volumenkörper sind. Allerdings die bessere Möglichkeiten sind die Filterlisten bei einem Selectionset. Must mal in der Hilfe schauen bzw. hier im Forum war auch schon öfter was.

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für den Tip Carsten,
nach langem Suchen haben ich auch was gefunden.

Das Script sieht nun so aus :

Public Sub Gewicht()
'Variablen deklarieren
Dim Sset As AcadSelectionSet
Dim Auswahl As AcadObject
Dim vGesamtG As Variant

'Funktion
Set Sset = ThisDrawing.SelectionSets.Add("Element")
Sset.SelectOnScreen
For Each Auswahl In Sset
    If TypeOf Auswahl Is Acad3DSolid Then 'ob Volumenkörper
    vGesamtG = vbCrLf & vGesamtG + Auswahl.Volume * 0.00000785
    End If
Next

MsgBox "Das Gewicht der Volumenkörper ist :" & vGesamtG
Sset.Delete

End Sub

Gruß
Sun Lee

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP