| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
| CAD/CAM-Workshop in Suhl-Friedberg: SolidCAM + SOLIDWORKS |
Autor
|
Thema: Makro zum Vermessen zweier Koordinatensysteme (1951 mal gelesen)
|
BiesingerCAD Mitglied Konstrukteur
Beiträge: 12 Registriert: 28.06.2011 SolidWorks 2013 CATIA V5R19 Enterprise PDM
|
erstellt am: 09. Jul. 2014 06:59 <-- editieren / zitieren --> Unities abgeben:
Hallo Community, ich habe eine Frage an die Makro Programmierer unter Euch. Wir haben in einer Baugruppe ein Koordinatensystem und in den darin befindlichen Einzelteilen ebenfalls. Jetzt ist es unser Ziel diese Koordinatensysteme in einer Zeichnung zueinander vermessen zu lassen und in einer Tabelle als Koordinaten auszugeben. Sprich ich möchte eine Einzelteilzeichnung erstellen und die Koordinaten in einer Tabelle ausgeben lassen. Optimal wäre es wenn ich es zusätzlich in einer Zusammenbauzeichnung der Baugruppe die Koordinaten jedes Koordinatensystems zum Baugruppenkoordinatensystem ausgeben könnte. Kann mir hierzu jemand helfen? MfG
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
HenryV Mitglied Konstrukteur, Engineering
Beiträge: 813 Registriert: 18.05.2005 SolidWorks 2022 x64 SP5.0 Dell Precision 5820 Intel Xeon W-2125 4x4GHz NVIDIA Quadro P2000 5GB 32GB RAM 2x Dell U2412M, 24" TFT Windows 10 Enterprise x64 22H2 Microsoft 365 E5 Microsoft Visual Studio Enterprise 2022
|
erstellt am: 09. Jul. 2014 16:59 <-- editieren / zitieren --> Unities abgeben: Nur für BiesingerCAD
|
BiesingerCAD Mitglied Konstrukteur
Beiträge: 12 Registriert: 28.06.2011
|
erstellt am: 10. Jul. 2014 06:19 <-- editieren / zitieren --> Unities abgeben:
Hallo Andreas, vielen Dank für Deine Antwort. Jetzt habe ich nur noch eine Frage. Wie führe ich den Befehl aus? Ich habe da jetzt ja eine Excel-Datei mit einem, naja sagen wir mal Button, oder? Wenn ich diesen anklicke, kommt Laufzeitfehler '91' Objektvariable oder With-Blockvariable nicht festgelegt. Wie muss ich da genau in der Zeichnung vorgehen? Gruß Bernd Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
HenryV Mitglied Konstrukteur, Engineering
Beiträge: 813 Registriert: 18.05.2005 SolidWorks 2022 x64 SP5.0 Dell Precision 5820 Intel Xeon W-2125 4x4GHz NVIDIA Quadro P2000 5GB 32GB RAM 2x Dell U2412M, 24" TFT Windows 10 Enterprise x64 22H2 Microsoft 365 E5 Microsoft Visual Studio Enterprise 2022
|
erstellt am: 10. Jul. 2014 08:54 <-- editieren / zitieren --> Unities abgeben: Nur für BiesingerCAD
Hallo Bernd Wie gesagt ist gebastelt. Ich hatte in SolidWorks eine Baugruppe geöffnet. Diese Baugruppe enthielt ein Koordinatensystem und zwei Einzelteile, welche je auch ein Koordinatensystem enthielten. Und dann In Excel den Knopf gedrückt, Ergebnis siehe Bild. Gruss Andreas
------------------ 21 ist nur die halbe Antwort. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
BiesingerCAD Mitglied Konstrukteur
Beiträge: 12 Registriert: 28.06.2011
|
erstellt am: 10. Jul. 2014 09:48 <-- editieren / zitieren --> Unities abgeben:
Guten Morgen Andreas, es hat doch funktioniert. Hab auch im Hintergrund die Baugruppe aufgemacht und dann die Datei ausgeführt. Kam so raus wie bei Dir. Jetzt habe ich in der Baugruppe allerdings mehrere Koordinatensysteme. Lässt sich in dem Programm ein bestimmtes davon benutzen. Ich habe es immer gleich benannt, kann man in dem Programm nach dem Namen suchen lassen und dann das jeweilige Koordinatensystem verwenden? Ich habe die Koordinatensysteme, die es zu vermessen gilt in der Baugruppe "Erodiernullpunkt" und im Einzelteil "Elektrodennullpunkt" benannt. Diese sollen nun vermessen werden, lässt sich das machen? Danke für Deine Hilfe. Gruß Bernd Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bk.sc Ehrenmitglied V.I.P. h.c. Konstrukteur Sondermaschinenbau
Beiträge: 2776 Registriert: 18.07.2012 -Solid Works 2019 SP5 -Pro Engineer WF 3
|
erstellt am: 10. Jul. 2014 10:13 <-- editieren / zitieren --> Unities abgeben: Nur für BiesingerCAD
Hallo Bernd, das sollte möglich sein wenn du die If Anweisungen: Code: If Feature.GetTypeName2 = "CoordSys" Then
in Code: If Feature.GetTypeName2 = "CoordSys" and Feature.Name = "Erodiernullpunkt" Then 'in der Sub TraversModel
und Code: If Feature.GetTypeName2 = "CoordSys" and Feature.Name = "Elektrodennullpunkt" Then 'in der Sub TraversComponent
änderst. Hab es jetzt nicht getestet. EDIT: Nun hab ich es getestet und es hat funktioniert.
Gruß Bernd ------------------ --- Man muß nicht alles wissen, man muß nur wissen wo es steht --- Staatlich anerkannte Deutschniete [Diese Nachricht wurde von bk.sc am 10. Jul. 2014 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
BiesingerCAD Mitglied Konstrukteur
Beiträge: 12 Registriert: 28.06.2011
|
erstellt am: 10. Jul. 2014 10:27 <-- editieren / zitieren --> Unities abgeben:
Hallo Bernd, Danke für Deine Antwort. Ich erhalte gerade öfters den Fehler Laufzeitfehler '91' Objektvariable oder With-Blockvariable nicht festgelegt. Und im Debugger ist eine Zeile gelb markiert. Weiß nur nicht wo der Fehler sein soll. Gruß Bernd Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bk.sc Ehrenmitglied V.I.P. h.c. Konstrukteur Sondermaschinenbau
Beiträge: 2776 Registriert: 18.07.2012 -Solid Works 2019 SP5 -Pro Engineer WF 3
|
erstellt am: 10. Jul. 2014 11:01 <-- editieren / zitieren --> Unities abgeben: Nur für BiesingerCAD
Hallo Bernd, die Frage ist: Welche Zeile den markiert ist? Evtl. fehlt auch einfach nur ein Verweis, war bei mir vorhin glaub auch so. Gruß Bernd ------------------ --- Man muß nicht alles wissen, man muß nur wissen wo es steht --- Staatlich anerkannte Deutschniete Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
BiesingerCAD Mitglied Konstrukteur
Beiträge: 12 Registriert: 28.06.2011
|
erstellt am: 10. Jul. 2014 11:07 <-- editieren / zitieren --> Unities abgeben:
|
bk.sc Ehrenmitglied V.I.P. h.c. Konstrukteur Sondermaschinenbau
Beiträge: 2776 Registriert: 18.07.2012 -Solid Works 2019 SP5 -Pro Engineer WF 3
|
erstellt am: 10. Jul. 2014 11:17 <-- editieren / zitieren --> Unities abgeben: Nur für BiesingerCAD
Hallo Bernd, hast du am Code irgendetwas geändert in der Zwischenzeit, weil es lief doch schon? Hast du mal die Verweise gecheckt? Gruß Bernd ------------------ --- Man muß nicht alles wissen, man muß nur wissen wo es steht --- Staatlich anerkannte Deutschniete Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
BiesingerCAD Mitglied Konstrukteur
Beiträge: 12 Registriert: 28.06.2011
|
erstellt am: 10. Jul. 2014 11:34 <-- editieren / zitieren --> Unities abgeben:
Hallo Bernd, eigentlich nicht. Habe aber mal neu gestartet und die Datei neu entpackt. Dann ging es wieder. Mal ne andere Frage, wie/mit welchem Programm komm ich in die Makrodatei rein um sie zu bearbeiten? EDIT: habs hin bekommen. ALT+F11 öffnet die Entwicklungsumgebung. Soweit so gut. Wir kommen meinem Ziel näher. Jetzt muss das Ganze nur noch in einer Tabelle in der Zeichnung eingetragen werden. Sprich die Werte sollen als Tabelle in die Zeichnung rein geschrieben werden. Lässt sich das machen? Meine Vorstellung war, ich erstelle aus dem Einzelteil eine Zeichnung mit einer speziellen Zeichnungsvorlage, welche bereits eine Tabelle enthält welche dann beim Erstellen der Zeichnung die Felder ausfüllt. MfG Bernd Gruß Bernd [Diese Nachricht wurde von BiesingerCAD am 10. Jul. 2014 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bk.sc Ehrenmitglied V.I.P. h.c. Konstrukteur Sondermaschinenbau
Beiträge: 2776 Registriert: 18.07.2012 -Solid Works 2019 SP5 -Pro Engineer WF 3
|
erstellt am: 10. Jul. 2014 13:05 <-- editieren / zitieren --> Unities abgeben: Nur für BiesingerCAD
Hallo Bernd, du könntest zum Beispiel die Exceltabelle incl. Macro als OLE Objekt auf die Vorlage packen (siehe hierzu das Video im Archiv). Gruß Bernd ------------------ --- Man muß nicht alles wissen, man muß nur wissen wo es steht --- Staatlich anerkannte Deutschniete Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
BiesingerCAD Mitglied Konstrukteur
Beiträge: 12 Registriert: 28.06.2011
|
erstellt am: 10. Jul. 2014 13:21 <-- editieren / zitieren --> Unities abgeben:
Hallo Bernd, cool, das könnte funktionieren. Die Idee ist gar nicht schlecht. Ich denke so komm ich klar. Sollte ich noch Anliegen haben melde ich mich. Danke für Eure Unterstützung. Gruß Bernd Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |