| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | PNY WIRD VON NVIDIA ZUM HÄNDLER DES JAHRES GEWÄHLT |
|
Autor
|
Thema: VBA Makro xyz Koordinaten Rohr Leitungs Biegetabelle erstellen auf einer Zeichnung (3762 mal gelesen)
|
kaphil
Mitglied
Konstrukteur
   Beiträge: 2
Registriert: 23.02.2010 Inventor 2009
|
erstellt am: 23. Feb. 2010 10:47  <-- editieren / zitieren -->   Unities abgeben:          
Hallo Forumskollegen Zusammen mit einem Kollegen habe ich ein Makro erstellt welches die eine Tabelle mit xyz Koordinaten, Bigewinkel, Biegeradius usw. einer Inventor Leitungsbaugruppe auf einer Zeichnung erstellt. Ich wollte dieses hier zur Verfügung stellen weil ich bis jetzt noch keine Makros dieser Art hier im Forum gefunden habe. Das Makro besteht aus 2 VBA Modulen welche einfach über importieren zum Projekt hinzugefügt werden können. mfg kaphil Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
kaphil
Mitglied
Konstrukteur
Beiträge: 2
Registriert: 23.02.2010 Inventor 2009
|
erstellt am: 23. Feb. 2010 10:50 <-- editieren / zitieren --> Unities abgeben:
|
lbcad
Ehrenmitglied V.I.P. h.c.
Dipl.-Ing. Maschinenbau und CAD-Trainer
Beiträge: 3823
Registriert: 15.02.2001 DELL Precision 7520 Win10Pro-64
Inventor mit Vault Professional 2024
---------------------
Während man es aufschiebt,
verrinnt das Leben.
Lucius Annaeus Seneca
(ca. 4 v. Chr - 65 n. Chr.)
|
erstellt am: 23. Feb. 2010 12:28 <-- editieren / zitieren --> Unities abgeben: Nur für kaphil 
|
xerxses
Mitglied
Laufbursche
Beiträge: 130
Registriert: 06.09.2011 IV 2018
ACADM 2018
|
erstellt am: 26. Jan. 2014 14:07 <-- editieren / zitieren --> Unities abgeben: Nur für kaphil
Hallo zusammen habe ein paar Fragen zu den Makros hier.
werde aus der Beschreibung nicht ganz schlau
unter welcher Umgebung müssen die Makros hier ausgeführt werden? welche Reihenfolge?
funktioniert dies auch unter neuere Inventorversionen (2014) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
SuperMatti
Mitglied
Konstruktionsleitung und CAD-Administration
Beiträge: 3
Registriert: 04.09.2022 Betriebsystemname: Microsoft Windows 10 Pro
Systemname: ALPHA37
Systemhersteller: Dell Inc.
Systemmodell: Precision 7710
Systemtyp: x64-basierter PC
Prozessor: Intel(R) Core(TM) i7-6820HQ CPU @ 2.70GHz, 2701 MHz, 4 Kern(e), 8 logische(r) Prozessor(en)
Grafikkarte: Nvidia Quadro M3000M
|
erstellt am: 04. Sep. 2022 12:39 <-- editieren / zitieren --> Unities abgeben: Nur für kaphil
Hallo zusammen, das was man hier als VBA-Teil eingestellt hat... so denke ich... dass das eine Top Sache sein und wird und habe mir den VBA-Teil einmal angeschaut. Blicke aber so ganz nicht da durch. Hat sich jemand mal damit beschäftigt und kann mir den Ablauf erklären? Bin für jeden Tip dankbar. Gruß
Matthias
------------------
Träume Leben Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik
    
Beiträge: 2428
Registriert: 15.11.2006 Windows 10 x64, AIP 2023
|
erstellt am: 04. Sep. 2022 14:41 <-- editieren / zitieren --> Unities abgeben: Nur für kaphil
Hallo Willkommen im Forum.  Was verstehst du denn nicht? Wie man den Code importiert und ausführt oder was er wann wie macht? Import und Ausführung
- Zip Datei herunterladen und entpacken
- Mit Alt + F11 im Inventor der VBA-Editor öffnen
- rechte Maustaste auf das Default Projekt und "Datei importieren" im Kontextmenü auswählen
- beide Dateien nacheinander importieren
- eine Zeichnungsableitung erstellen und eine Erstansicht der Rohrbaugruppe einfügen
- die Sub SET_piping_table() ausführen Was-Wann-Wie
Die Sub fügt eine Isometrieansicht der Rohrbaugruppe auf dem aktuellen Blatt ein und schließt die Skizzenpunkte des Rohrverlaufes mit ein. Von diesen Punkten werden die 3D-Koordinaten in der Baugruppe ausgelesen. Aus dem ersten und zweiten Punkt der Liste wird der Ursprung und die Richtung eines Hilfskoordinatensystems ermittelt. Das Hilfskoordinatensystem liegt mit seinem Ursprung auf Punkt 1 und X zeigt in Richtung Punkt 2. Aus diesem Hilfskoordinatensystem und dem Weltkoordinatensystem wird eine Transformationsmatrix gebildet. Mit dieser Matrix kann jeder Skizzenpunkt der vorhin ausgelesen wurde auf das Hilfkoordinatensystem umgerechnet werden. Dadurch können alle Abstände und Winkel relativ zum Anfangspunkt des Rohrverlaufes errechnet werden, egal wo er im Weltkoordinatensystem liegt und in welche Richtung das erste Teilstück zeigt. Weiterhin werden, ausgehend von der Annahme das ein Rohrverlauf mit einem geraden Stück beginnt, dann ein Bogen, dann wieder gerade, dann wieder Bogen usw. und am Ende wieder gerade aufhört, die gestreckten Längen, Biegewinkel usw. berechnet. Die berechnet Werte werden in einem Array gespeichert, formatiert und in die Tabelle geschrieben und die Zeichnungsansicht gelöscht. Die allgemeinen Berechnungsformeln wurden in ein zweites Modul ausgelagert, vermutlich weil die Ersteller sie in anderen Modulen ebenfalls einbinden. Es ist Geschmackssache wo man die auszuführende Sub einordnet und wie man sie benennt. Für Dritte ist es etwas schwerer, wenn die Hauptsub sich irgendwo mittendrin befindet. Da die beiden davor stehenden Sub nirgends aufgerufen werden, kann man davon ausgehen, dass der gepostete Code Teil einer umfangreicheren Programmierung ist. Die hier aufzurufende Sub wird im Gesamtkonstrukt vermutlich von einer anderen Sub aufgerufen. ------------------
MfG
Ralf RKW Solutions GmbH
www.RKW-Solutions.com Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
SuperMatti
Mitglied
Konstruktionsleitung und CAD-Administration
Beiträge: 3
Registriert: 04.09.2022 Betriebsystemname: Microsoft Windows 10 Pro
Systemname: ALPHA37
Systemhersteller: Dell Inc.
Systemmodell: Precision 7710
Systemtyp: x64-basierter PC
Prozessor: Intel(R) Core(TM) i7-6820HQ CPU @ 2.70GHz, 2701 MHz, 4 Kern(e), 8 logische(r) Prozessor(en)
Grafikkarte: Nvidia Quadro M3000M
|
erstellt am: 06. Sep. 2022 12:13 <-- editieren / zitieren --> Unities abgeben: Nur für kaphil
|
SuperMatti
Mitglied
Konstruktionsleitung und CAD-Administration
Beiträge: 3
Registriert: 04.09.2022 Betriebsystemname: Microsoft Windows 10 Pro
Systemname: ALPHA37
Systemhersteller: Dell Inc.
Systemmodell: Precision 7710
Systemtyp: x64-basierter PC
Prozessor: Intel(R) Core(TM) i7-6820HQ CPU @ 2.70GHz, 2701 MHz, 4 Kern(e), 8 logische(r) Prozessor(en)
Grafikkarte: Nvidia Quadro M3000M
|
erstellt am: 06. Sep. 2022 12:15 <-- editieren / zitieren --> Unities abgeben: Nur für kaphil
Hallo rkauskh, alles gut... habe das VBA verstanden.  Und läuft auch... Daumen hoch für die Jungs und Mädels die sich die Zeit genommen haben und das Tool programmiert haben! Gruss und auch Dir meinen Dank für Deine Antwort.
Matthias PS: In meiner vorherigen Antwort habe ich zu schnell auf dem Knopf gedrückt gehabt. Sorry! ------------------
Träume Leben Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de (alle Foren)
| 
