---

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

---

GetAllComponentCoordinateSystem.zip

Hallo

Kein einfaches Unterfangen.
Ich würde so vorgehen.

Die Baugruppe traversieren, und die Feature "Koordinatensysteme" selektieren und den Abstand dazwischen messen.

http://help.solidworks.com/2013/English/api/sldworksapi/Traverse_Assembly_At_Component_and_Feature_Level_Example_VB.htm

http://help.solidworks.com/2013/English/api/sldworksapi/Calculate_Closest_Distance_Between_Model_Components_Example_VB.htm

Habe da kurz was gebastelt. (
Getestet mit einer Baugruppe und zwei Teile.
(Jedes Dokument hatte ein Koordinatensystem.)

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

---

GetAllComponentCoordinateSystem.jpg

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

---

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

---

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

---

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

---

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

---

Hallo Bernd,

die Zeile in der folgendes steht:

    Set Configuration = AssemblyDoc.GetActiveConfiguration()

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

---

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

---

oleexcwima.zip

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

---

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