---

Hallo Forum,
ich würde gerne mit einem Makro die Ursprungs XYZ Koordinaten der Einzelteile die in einer Baumgruppe verbaut sind, auslesen und in eine Datei (txt oder ini) abspeichern.
z.B.: Baugruppe 1 (x=0; y=0; z=0)
Einzelteil 1(x=100; y=50; z=0)
Einzelteil 2(x=150; y=50; z=0)
Einzelteil 3(x=150; y=50; z=10)
        usw.
Hat jemand eine Idee?

Danke
Alex

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

---

Klar.

Mit der TraverseComponent-Routine durch die Einzelteile gehen.
Mit SelectByID2 den Ursprung der Einzelteile auswählen.
Mit ClosestDistance den jeweiligen Abstand zum Ursprung der Baugruppe bestimmen.
Mit Open *** For Output As eine Textdatei öffnen.
Mit Print Daten in diese Datei schreiben.

Gruß, Torsten

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

---

Messen.JPG

Hallo Torsten,

danke für dein Tipp.

Ich hab es statt ClosestDistance mit Measure gelöst.

Das Makro habe ich beigefügt, vielleicht findet auch jemand Verwendung dazu.

Gruß und Dank
Alex

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

---

Wollte das Makro gleich mal ausprobieren ...

Doch schon hat es angestellt!
Laufzeitfehler 9, Index ausserhalb des gültigen Bereichs in Zeile "Koordinaten(0, x - 1) = Component.Name"

Ich glaube, dass diese Zeile "ReDim Koordinaten(3, UBound(RootComponent.GetChildren))" nicht alle Komponenten in allen Unterbaugruppen berücksichtigt.

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

---

Messen.JPG

du hast vollkommen recht, ich hab mich nur auf die oberste Baugruppe konzentriert.

Die Zeile „ReDim Koordinaten(3, UBound(RootComponent.GetChildren))“ habe ich jetzt auf „ReDim Preserve Koordinaten(3, x)“ geändert und diese in die „TraverseComponent“ Funktion verschoben.

Auch habe ich die Zeile  „boolstatus = AssemblyDoc.Extension.SelectByID2("Point1@Ursprung@" & Component.Name & "@" & AssemblyName,  "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing, 0)“  in “boolstatus = AssemblyDoc.Extension.SelectByID2("Point1@Ursprung@" & Component.GetSelectByIDString, "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing, 0)” geändert.

Bei mir hat es jetzt mit 3 Unterbaugruppen Verschachtelungen funktioniert.

Gruß
Alex

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

---

Ok! Jetzt gehts durch alle Unter-Unter-Unter-Unter-Unter-Unter-Unter-Baugruppen (118 Unterbaugruppen, 515 Teile, Maximaltiefe 7)! 

Doch die Koordinaten sind etwas fragwürdig ... Das Messen scheint noch nicht ganz zu funktionieren oder geht das bei Dir?

Code:

---

490          123_Streifen-2              0            0            0

---

Diese verbaute Baugruppe (123_Streifen-2) sollte eigentlich X=0, Y=193.8 und Z=0 zum Baugruppennullpunkt sein.
Und sowieso sind ALLE Koordinaten bei mir auf 0,0,0. 

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

---

Hallo,

habe das Makro jetzt an 5 Baugruppen getestet (mit der Maximaltiefe 4), bei mir funktioniert es ohne probleme.

Mit welchen Einheiten arbeitet ihr (m,cm,mm,µm,...)?

Wir arbeiten mit Meter, das Makro wandelt den gemessenen Wert in Milimeter um.

Measure.x * 1000
Measure.y * 1000
Measure.z * 1000

vielleicht liegt es ja daran?!

gruß
Alex

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

---

Und trotzdem sollten andere Werte als 0 dabei herauskommen.
Wir arbeiten in mm.

Schon komisch....
Von wo noch wo tut Dein Makro messen, wenn ich mich in der 3. Unterbaugruppe befinde?

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

---

Messen.JPG

Es misst von dem Master Ursprung (der Obersten Baugruppe) zum jeweiligen Einzelteil- oder Unterbaugruppenursprüngen.

Eigentlich macht das Makro das gleiche, wenn du in der Obersten Baugruppe den Ursprung des Einzelteils bzw. der Baugruppe selektierst und dann mit dem Werkzeug "Messen" ausmisst.

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

---

Ich glaube wir haben den "Fehler" gefunden...
Wir SolidWorks 2009, Du SolidWorks 2010 

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

---

Hallo Alex,
ich würde Dein Makro gerne testen.
Hast Du es noch?

Danke.

Viele Grüße
Thomas

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

---

Thomas,

Leider weiss ich nicht mehr wie das Makro damals geheissen hat.
So auf die Schnelle kann ich leider nichts finden. Sorry.

------------------
 
http://www.worldcommunitygrid.org

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

---

@GDawg
Schade, aber trotzdem danke.

Falls jemand ein solches Makro hat, bitte melden.

Danke.

Viele Grüße
Thomas

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