---

Hallo!!!

Kann mir denn wirklich niemand eine Antwort auf meine Frage geben?
Also hier nochmal das Problem:

Ich hab in einem Makro den User eine Achse auswählen lassen (über User Selection) und versuche nun Referenzen auf den Ursprung oder die XY-Ebene des gewählten Achsensystems zu erzeugen, nur funktioniert dies leider nicht.
Hat denn noch niemand von Euch eine Reference auf die Geometrischen Elemente eines Achsensystems erzeugt???

Würde mich sehr über eine Antwort freuen!!!

Danke
Thomas

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

---

Hallo,

habe mit AchsenSysteme auch schlechte Erfahrungen gemacht, da die Achsen und Ebenen BReps sind und keine Richtige Objekten.
Erzeug doch dein assoziatives Achsensystem mit 3D Lines (Point - Direction). Die sind stabil. Falls jemanden einen besseren Vorschlag hat...

Gruss
Chris

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

---

Hallo Thomas,

irgendwie habe ich Deinen Beitrag immer überlesen.
Hier die Lösung:

Der Zugriff auf Unterelelemente von Achsensystemen ist nur über BReps möglich (wie prosper schon schrieb).

'Achsenobjekt setzen:
Dim oPart As Part
Set oPart = CATIA.ActiveDocument.Part
Dim oSel As Selection
Set oSel = CATIA.ActiveDocument.Selection
Dim aSelElement(0)
aSelElement(0)="AxisSystem"
oSel.SelectElement2 aSelElement, "Achsensystem auswählen", False
Dim oAxisSystem As AxisSytem
Set oAxisSystem = oSel.Item(1).Value
Dim sAxisName As String
sAxisName = oAxisSystem.Name

'Jetzt die Referenzen

'Ursprung:
Set reference1 = oPart.CreateReferenceFromBRepName("FVertex Vertex Neighbours Face Brp " & sAxisName & ";2);None );Cf9 ));Face Brp " & sAxisName & ";3);None );Cf9 ));Face Brp " & sAxisName & ";1);None );Cf9 )));Cf9 ));WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR14)", oAxisSystem)

'Achsen:
'x:
Set reference1 = oPart.CreateReferenceFromBRepName("REdge Edge Face Brp " & sAxisName & ";1);None );Cf9 ));Face Brp " & sAxisName & ";3);None );Cf9 ));None Limits1 );Limits2 ));Cf9 ));WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR14)", oAxisSystem)
'y:
Set reference2 =oPart.CreateReferenceFromBRepName("REdge Edge Face Brp " & sAxisName & ";2);None );Cf9 ));Face Brp " & sAxisName & ";1);None );Cf9 ));None Limits1 );Limits2 ));Cf9 ));WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR14)", oAxisSystem)
'z:
Set reference3 = oPart.CreateReferenceFromBRepName("REdge Edge Face Brp " & sAxisName & ";3);None );Cf9 ));Face Brp " & sAxisName & ";2);None );Cf9 ));None Limits1 );Limits2 ));Cf9 ));WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR14)", oAxisSystem)

'Ebenen:
'xy:
Set reference1 = oPart.CreateReferenceFromBRepName("RSur Face Brp " & sAxisName & ";1);None );Cf9 ));WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR14)", oAxisSystem)
'yz:
Set reference1 = oPart.CreateReferenceFromBRepName("RSur Face Brp " & sAxisName & ";2);None );Cf9 ));WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR14)", oAxisSystem)
'xz:
Set reference1 = oPart.CreateReferenceFromBRepName("RSur Face Brp " & sAxisName & ";3);None );Cf9 ));WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR14)", oAxisSystem)

Gruß
Steffen

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

---

Code_Axis.txt

Verdammt!!!

Kann hier jemand mal die Smilies im Programmierforum abschalten????

Das sieht ja gräßlich aus, wenn hier alle traurig sind.

anbei nochmal der Code per txt-Datei.

Gruß Steffen

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

---

Hallo Steffen,
vielen Dank für den Code!
Hat mich echt richtig weitergebracht!
Nur leider funktioniert er nur bei Achsen die auch unter Achsensysteme stehen.
Wie kann ich denn Referenzen setzten auf Achsen bzw.deren Unterelemente (Z-Achse etc.) die ich z.B. durch Translation versetzt habe?
Die heissen dann ja nicht mehr AxisSystem sondern z.B. "Translation.1" und stehen ja auch in einem OpenBody.

Gruß
Thomas

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

---

Hallo Thomas,

da ich mir selbst erst die BReps erzeugen muß, kann ich Dir aus dem Hut nicht sagen, wie die genaue Bezeichnung ist.

Daher gebe ich Dir nur ein Tip. Starte den Makrorekorder. Erzeuge Dir ein Punkt im Ursprung des gewünschten Achsensystems. Verwende diesen Punkt und nacheinander alle 3 Achsen, um drei Linien vom Typ Punkt-Richtung zu erzeugen. Zu guter letzt erzeugts Du Dir 3 Offset-Ebenen auf Basis der 3 Achsneebenen. Und sieh da, im Makro stehen alle Referenzen vom Achsensystem drinn. Jetzt mußt Du diese Referenzen nur noch verallgemeinern, indem der jeweilige Bezeichner des Referenzobjektes durch eine Variable ersetzt wird.

So habe ich es auch mit den reinen Achsensystemen gamacht, die im Knoten "Achsensysteme" stehen.

Gruß
Steffen

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