---

Hallo Zusammen,

ich vermisse im Autodesk Inventor die Funktion "Anzahl der markierten Teile".
Leider stoße ich hier mit meinen wenigen Programmierkenntnissen an die Grenzen.

Weiß hier vielleicht jemand wie man das im VBA umsetzen kann?

Viele Grüße
Daniel

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

---

so vielleicht:

Code:

---

Sub Anz_selected()

    Dim oDoc As Document
    Set oDoc = ThisApplication.ActiveDocument
    Dim oSelSet As SelectSet
    Set oSelSet = oDoc.SelectSet
   
    Dim lAnz As Long
    lAnz = oSelSet.Count
   
    Call MsgBox("Anzahl markierter Elemente:" & vbCrLf _
                & lAnz, vbOKOnly, "Tada!")
           
    'Falls die ausgegebene Zahl auf bestimmte Typen beschränkt werden soll
    ' (es lassen sich ja auch verschiedene Sachen wählen; Komponenten, Flächen, Kanten ...)
   
    lAnz = 0
    Dim el As Object
    For Each el In oSelSet  'Schleife durch das Set
        If TypeOf el Is ComponentOccurrence Then    'Komponente (einer Baugruppe)
            lAnz = lAnz + 1
        End If
    Next
   
    Call MsgBox("Anzahl gewählter Komponenten:" & vbCrLf _
                & lAnz, vbOKOnly, "Tada2!")
End Sub

---

------------------
Gruß KraBBy

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

---

Hallo Krabby,

vielen vielen Dank für deine schnelle und super Lösung.
Funktioniert einwandfrei, Danke!

Beste Grüße
Daniel

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