Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Inventor
  Inventor VBA für Anzahl der markierten Teile

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
  
Auf dem Weg zur digitalen Auftragsmappe. , ein Anwenderbericht
Autor Thema:  Inventor VBA für Anzahl der markierten Teile (418 / mal gelesen)
DanielMaierhofer2
Mitglied
Technischer Produktdesigner

Sehen Sie sich das Profil von DanielMaierhofer2 an!   Senden Sie eine Private Message an DanielMaierhofer2  Schreiben Sie einen Gästebucheintrag für DanielMaierhofer2

Beiträge: 6
Registriert: 23.02.2022

erstellt am: 23. Feb. 2022 11:39    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

KraBBy
Mitglied
Maschinenbau-Ingenieur


Sehen Sie sich das Profil von KraBBy an!   Senden Sie eine Private Message an KraBBy  Schreiben Sie einen Gästebucheintrag für KraBBy

Beiträge: 721
Registriert: 19.09.2007

Inventor Professional 2020
WinX

erstellt am: 23. Feb. 2022 12:07    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für DanielMaierhofer2 10 Unities + Antwort hilfreich

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

DanielMaierhofer2
Mitglied
Technischer Produktdesigner

Sehen Sie sich das Profil von DanielMaierhofer2 an!   Senden Sie eine Private Message an DanielMaierhofer2  Schreiben Sie einen Gästebucheintrag für DanielMaierhofer2

Beiträge: 6
Registriert: 23.02.2022

erstellt am: 23. Feb. 2022 13:07    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2024 CAD.de | Impressum | Datenschutz