---

Tag Leute,

Arbeite mich gerade in Makroprogrammierung ein.
Wie kann ich die Z-Achse eines Achsenkreuzes selektieren?

Ich habe bereits folgendes:

Sub Selektion_Z_Ax()

Dim Was(0)
Was(0) = "AxisSystem"

'Selektion definieren und leeren
Dim UserSel As Object
Set UserSel = CATIA.ActiveDocument.Selection
UserSel.Clear

'Selektion durchführen
Dim E As String
E = UserSel.SelectElement2(Was, "Achse angeben", False)
If E = "Normal" Then
MsgBox (UserSel.Item(1).Value.Name)

Set Z_Ax = UserSel.Item(1).Value

Else
MsgBox ("Abbruch")
End If

'Selektion freigeben
UserSel.Clear

End Sub

Was muss ich anstatt "axissystem" angeben?

Gruß Martin

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

---

Servus
Leider kann die Suche/Selektion da nicht richtig einschränken.
Die Achsen werden wie Kanten behandelt (ReclinearTriDimFeatEdge).

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Wenn ich AxisSytem durch ReclinearTriDimFeatEdge bekomme ich einen Fehler bei SelectElement2.
Muss ich da noch mehr beachten?

Gruß Martin

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

---

Servus
Schau mal in der Doku nach "CATSelectionFilter" und such dir einen passenden raus.
(vermutlich "RectilinearMonoDimInfinite")

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Servus

CATIA mit English menu.

Sub CATMain()

Dim Was(0)
Was(0) = "AnyObject"

'Selektion definieren und leeren
Dim UserSel As Object
Set UserSel = CATIA.ActiveDocument.Selection
UserSel.Clear

'Selektion durchführen
Dim E As String
E = UserSel.SelectElement2(Was, "Select an Axis System to get the value name", False)

If E = "Normal" Then
MsgBox (UserSel.Item(1).Value.Name)
End If

'Selektion freigeben
UserSel.Clear

End Sub

Gruß
Fernando

------------------
Best regards
Fernando

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

---

Servus Fernando
Dann lässt sich aber jedes beliebige Objekt selektieren und nicht nur eine Achse des Achsensystems wie gewünscht.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hi,
vielleicht hilft das weiter.
Die unterschiedlichen Achsen können, bei bekanntem Achsensystem folgendermassen angesprochen werden:

Code:

---

   'refs der schenkel des neuen achsensystems bilden
      Set X_Axis = oParent.CreateReferenceFromBRepName("REdge:(Edge:(Face:(Brp:(" & oAxSysCos.Name & ";1);None:();Cf11:());Face:(Brp:(" _
         & oAxSysCos.Name & ";3);None:();Cf11:());None:(Limits1:();Limits2:());Cf11:());WithPermanentBody;WithoutBuildError;" & _
         "WithSelectingFeatureSupport;MFBRepVersion_CXR15)", oAxSysCos)
     
      Set Y_Axis = oParent.CreateReferenceFromBRepName("REdge:(Edge:(Face:(Brp:(" & oAxSysCos.Name & ";2);None:();Cf11:());Face:(Brp:(" _
         & oAxSysCos.Name & ";1);None:();Cf11:());None:(Limits1:();Limits2:());Cf11:());WithPermanentBody;WithoutBuildError;" & _
            "WithSelectingFeatureSupport;MFBRepVersion_CXR15)", oAxSysCos)
     
      Set Z_Axis = oParent.CreateReferenceFromBRepName("REdge:(Edge:(Face:(Brp:(" & oAxSysCos.Name & ";3);None:();Cf11:());Face:(Brp:(" _
         & oAxSysCos.Name & ";2);None:();Cf11:());None:(Limits1:();Limits2:());Cf11:());WithPermanentBody;WithoutBuildError;" & _
            "WithSelectingFeatureSupport;MFBRepVersion_CXR15)", oAxSysCos)

---

wobei oAxSysCos definiert ist mit

Code:

---

   Dim oAxSysCos  As AxisSystem                 'axis system for measuring angles
   Dim X_Axis As Reference                      'ref axis of oAxSysCos
   Dim Y_Axis As Reference
   Dim Z_Axis As Reference
und
  oParent As Part

---

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

Hallo,

Das war die Idee.

------------------
Best regards
Fernando

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

---

Tag Leute,

Danke für eure Hilfe. Der Vorschlag von Joehz funktioniert hervorragend.

@ Joehz
Wie könnte ich hier noch die Ebenen ansprechen?

Gruß Martin

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

---

Hi Martin,

welche Ebenen meinst Du; die Systemebenen?

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

Ich meine die Ebenen des selektierten Achsenkreuzes.

Gruß Martin

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

---

Hi Martin,

ich bin die nächsten Tage afk.

Ich muss das selbst erst ausprobieren.

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

Servus
Dann springe ich mal für Joe ein.

Code:

---

Dim XY_Plane As Reference
Set XY_Plane = part1.CreateReferenceFromBRepName("RSur:(Face:(Brp:(" & oAxSysCos.Name & ";1);None:();Cf11:());WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", oAxSysCos)

Dim XZ_Plane As Reference
Set XZ_Plane = part1.CreateReferenceFromBRepName("RSur:(Face:(Brp:(" & oAxSysCos.Name & ";3);None:();Cf11:());WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", oAxSysCos)

Dim YZ_Plane As Reference
Set YZ_Plane = part1.CreateReferenceFromBRepName("RSur:(Face:(Brp:(" & oAxSysCos.Name & ";2);None:();Cf11:());WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", oAxSysCos)

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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