| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Probleme mit SelectSet in Unterbaugruppe (976 mal gelesen)
|
yamaha Mitglied Konstrukteur
Beiträge: 374 Registriert: 19.05.2004 Autocad/Inventor 2022, Windows 10 Pro 64Bit
|
erstellt am: 07. Dez. 2004 18:54 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, Ich möchte per VB/VBA Code ein Bauteil in einer Unterbaugruppe markieren. Leider hab ich´s irgendwie nicht im Griff. Zur Verdeutlichung habe mal ein Beispiel beigefügt. Als Erläuterung: In der Gesamtbaugruppe ist ein VBA Code zur Verdeutlichung. Bitte beachten, ich habe die "Baugruppe1.iam" mit Absicht von 0,0,0 weg geschoben, damit das Ergebniss erkennbarer ist. Lösungswunsch: Ich würde gerne das das Quardrat ("Test") auch wirklich markiert ist.
------------------ Gruß Jörn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ex-Mitglied
|
erstellt am: 08. Dez. 2004 09:23 <-- editieren / zitieren -->
Hi! Hier mal ein kleines Beispiel mit dem Du ein Teil in einer Unterbaugruppe markieren kannst. Ich weiss allerdings nicht, ob das das ist, was Du brauchts. Wenn ja, hast Du nur vergessen auf die SubOccurences zuzugreifen. Hier mal ein Code-Schnipsel. Code:
Dim oAsm As AssemblyDocument Set oAsm = ThisApplication.ActiveDocument Dim oOcc As ComponentOccurrence Set oOcc = oAsm.ComponentDefinition.Occurrences(2) oOcc.Edit ThisApplication.CommandManager.DoSelect oOcc.SubOccurrences(2)
Hoff des hilft! MFG Basti |
yamaha Mitglied Konstrukteur
Beiträge: 374 Registriert: 19.05.2004 Autocad/Inventor 2022, Windows 10 Pro 64Bit
|
erstellt am: 08. Dez. 2004 12:08 <-- editieren / zitieren --> Unities abgeben:
Hallo Basti, vielen Dank für deine Hilfe. Das war genau das was ich gebraucht habe. Ich wußte meine Frage nicht anders zu erklären. (Manchmal führt die Fragestellung ja zu MISTverständnisse)
------------------ Gruß Jörn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
VOSTA1 Mitglied techn. Angestellter
Beiträge: 108 Registriert: 23.12.2002
|
erstellt am: 08. Dez. 2004 16:47 <-- editieren / zitieren --> Unities abgeben: Nur für yamaha
Hallo, mit " oOcc.Edit " wird das Bauteil in Bearbeitung gebracht mit "ThisApplication.CommandManager.DoUnSelect oOcc.SubOccurrences(2)" kann ich die Auswahl wieder zurücknehmen. wie kann ich die Bearbeitung beenden oOcc.ExitEdit führt zu einer Fehlermeldung Frage wie lautet der Befehl für Bearbeitung beenden ? Beispiel: frm_test.show Form Anzeigen frm_test.hide Form Ausblenden
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
yamaha Mitglied Konstrukteur
Beiträge: 374 Registriert: 19.05.2004 Autocad/Inventor 2022, Windows 10 Pro 64Bit
|
erstellt am: 10. Dez. 2004 08:19 <-- editieren / zitieren --> Unities abgeben:
Hallo Vosta, ich wollte Dir nur mal meine Beileidsbekundung aussprechen. Ich kann´s auch nicht finden. Habe mal versucht den Befehlsablauf über die Transscription aufzeichung nachzuvollziehen; aber da taucht "StopEdit" auf; was aber in VB/VBA auch nicht funktioniert. Wendet man den Befehl edit einfach zweimal hintereinander an, so springt man mit dem zurück-Button auch zweimal in das jeweils mit edit aktivierte Teil. Welche INV-Version benutzt du? Ich benutzte Version 8. Vielleicht geht´s in 9?
------------------ Gruß Jörn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
VOSTA1 Mitglied techn. Angestellter
Beiträge: 108 Registriert: 23.12.2002
|
erstellt am: 10. Dez. 2004 13:46 <-- editieren / zitieren --> Unities abgeben: Nur für yamaha
Die VBA Gehirne gleichen sich wohl! Hatte genau das gleiche gemacht mit Transscription und bin keinen mm weitergekommen. Zur Zeit IV 8 Pro und werden zum Jahreswechsel auf IV9Pro umsteigen. MFG Kann man einen Beitrag hier im Forum nachträglich editieren. Hab sowas schon gesehen aber wie geht das???? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
yamaha Mitglied Konstrukteur
Beiträge: 374 Registriert: 19.05.2004 Autocad/Inventor 2022, Windows 10 Pro 64Bit
|
erstellt am: 10. Dez. 2004 14:58 <-- editieren / zitieren --> Unities abgeben:
|
daywa1k3r Moderator Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 10. Dez. 2004 15:52 <-- editieren / zitieren --> Unities abgeben: Nur für yamaha
Zitat: Original erstellt von VOSTA1: Die VBA Gehirne gleichen sich wohl!
Naja... ThisApplication.CommandManager.[_StartCommand] 43312 Ich kann nicht einmal an die Suchfunktion verweisen, da die Suche das Code-Tag nicht durchsucht ------------------ Grüße daywa1k3r Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
yamaha Mitglied Konstrukteur
Beiträge: 374 Registriert: 19.05.2004 Autocad/Inventor 2022, Windows 10 Pro 64Bit
|
erstellt am: 11. Dez. 2004 10:41 <-- editieren / zitieren --> Unities abgeben:
|
yamaha Mitglied Konstrukteur
Beiträge: 374 Registriert: 19.05.2004 Autocad/Inventor 2022, Windows 10 Pro 64Bit
|
erstellt am: 11. Dez. 2004 14:14 <-- editieren / zitieren --> Unities abgeben:
|
daywa1k3r Moderator Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 11. Dez. 2004 14:58 <-- editieren / zitieren --> Unities abgeben: Nur für yamaha
Wie schon gesagt, ich habe es in diesem Forum öfters reingeschrieben, nur die Suche macht einen Bogen um das Code-Tag. Deswegen habe ich es jetzt als normalen Text reingeschrieben. ------------------ Grüße daywa1k3r Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
yamaha Mitglied Konstrukteur
Beiträge: 374 Registriert: 19.05.2004 Autocad/Inventor 2022, Windows 10 Pro 64Bit
|
erstellt am: 11. Dez. 2004 14:59 <-- editieren / zitieren --> Unities abgeben:
|
daywa1k3r Moderator Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 11. Dez. 2004 15:22 <-- editieren / zitieren --> Unities abgeben: Nur für yamaha
Ich hab's dir doch gesagt, dass ich es hier schon ein paar mal geschrieben habe. Aber ich konnte es auch selber nicht mehr finden, da die Suche auch nicht so funktioniert wie sie soll. ------------------ Grüße daywa1k3r Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
yamaha Mitglied Konstrukteur
Beiträge: 374 Registriert: 19.05.2004 Autocad/Inventor 2022, Windows 10 Pro 64Bit
|
erstellt am: 11. Dez. 2004 15:50 <-- editieren / zitieren --> Unities abgeben:
|
daywa1k3r Moderator Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 11. Dez. 2004 19:20 <-- editieren / zitieren --> Unities abgeben: Nur für yamaha
|