| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SolidEdge |
Autor
|
Thema: VBA Excel Genaue Vorkommnisbenennugn in Spalte ausgeben (592 / mal gelesen)
|
zelade Mitglied
Beiträge: 21 Registriert: 28.06.2016
|
erstellt am: 01. Aug. 2016 10:57 <-- editieren / zitieren --> Unities abgeben:
Guten Tag Zusammen, ich arbeite momentan daran Bauteile einer Baugruppe mit VBA Excel zu ersetzen. Dabei brauche ich vor allem die genaue Benennung des Bauteils wie sie in Solid Edge zugeteilt wird. Zum Beispiel wenn ich eine part Datei einfüge mit dem Namen "Test.par", dann erhält sie den Namen "Test.par:1". So kann man auch mehrere Gleichteile unterscheiden, was mir sehr wichtig ist. Ich möchte nun um eine Dropdownliste zu erstellen genau diese Teilbenennung auslesen und in einer Spalte iterativ (1. Bauteil-Ebene reicht) ausgeben lassen. Mit welchem Befehl kann ich auf die Namen zugreifen, wenn ich die Baugruppe nebenbei geöffnet habe. Ein kurzes Minimalbeispiel oder auch nur der Code würde mir helfen. Im .NET Programmers Guide habe ich diesen leider nicht gefunden. Viele Grüße Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
wolha Moderator CAD - Consultant
Beiträge: 5563 Registriert: 30.01.2002 Win 10 Pro Solid Edge 2023 CAMWorks Primus PDM FEMAP Dynamic Designer Teamcenter
|
erstellt am: 01. Aug. 2016 11:00 <-- editieren / zitieren --> Unities abgeben: Nur für zelade
Hallo, sitze zwar nicht vor der VB Umgebung, aber im SE Dokument einer ASM findest Du die Occurences Und für jedes Occurence kannst Du dann Dateinamen, usw. abfragen Schau Dir den Objektkatalog an und das sollte Dich dann weiter bringen
------------------ mfg Wolfgang Hackl CAD/CAM - Consult Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Arne Peters Ehrenmitglied V.I.P. h.c. CAD Dokumentation / Training / Programmierung / Datenbanken
Beiträge: 7321 Registriert: 05.2002.24 Solid Edge Seminarunterlagen Training, Beratung, Programmierung
|
erstellt am: 01. Aug. 2016 11:12 <-- editieren / zitieren --> Unities abgeben: Nur für zelade
|
zelade Mitglied
Beiträge: 21 Registriert: 28.06.2016
|
erstellt am: 01. Aug. 2016 11:54 <-- editieren / zitieren --> Unities abgeben:
Vielen Dank für die schnelle Antwort, hat super funktioniert. Habe das in Form einer Schleife wie folgt umgesetzt: Code: For i = 1 To SEDoc.occurrences.Count Sheets("Tabelle1").Range("J" & i).Value = CStr(SEDoc.occurrences.Item(i).Name) Next i
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |