---

Hallo Zusammen,
ich habe eine Frage zu den Achsensystemen in Catia V5 R18.
Es gibt 4 Arten (Typen) von Achsensystemen:

a) Standard
b) Achsendrehung
c) Eulersche Winkel
d) Explizit

Sie werden in meinem Skript mit

Für (a) oAxissystem.type = 0
Für (b) oAxissystem.type = 1
Für (c) oAxissystem.type = 2
Für (d) oAxissystem.type = 3

In meinem Skript gibt es viele Operationen, die in catia konstruiert werden.
Am Anfang von dem Skript sollen die Anwender ein Achsensystem selektieren (1.Selektion), dann sollen sie eine
Kante selektieren, um später ein Kreismuster um diese kante zu erzeugen.

Ich möchte, wenn die Anwender die Z-Achse selektiert haben, muss eine Fehlermeldung geben

MsgBox "Das Kreismuster kann nicht um die Z-Achse erzeugt werden. bitte nur die X- oder Y-Achse selektieren. Das Makro wird beendet"

Exit Sub

Wie kann ich in meinem Skript festlegen, welche Achse die Anwender selektiert haben?

Das sollte für alle Achsensystemen gelten.

Code:

Option Explicit
Public oAxissystem As Object
Public Const MacroID = "3D-DATA 1.0"

Sub CATMain()

Dim oSel
Dim sFilter(0)
Dim oSelection

' Selektion einer Achse
    Set oSel = CATIA.ActiveDocument.Selection
    sFilter(0) = "AxisSystem"
    oSelection = oSel.SelectElement2(sFilter, "Bitte selektiere ein Achsensystem", True)
    If oSel.Count2 = 0 Then
        MsgBox "kein Achsensystem wurde selektiert" & Chr(13) & "Das makro wird beendet!", vbOKOnly + vbCritical, MacroID
        Exit Sub
    End If
   
    If oSelection = "Normal" Then
        Set oAxissystem = oSel.Item2(1).Value
       
    End If   
   
    oSel.Clear
   
' Selektion einer Kante
    sFilter(0) = "TriDimFeatEdge"
   
    oSelection = oSel.SelectElement2(sFilter, "Bitte selektiere eine Kante, um das Kreismuster zu erzeugen", True)
    If oSel.Count2 = 0 Then
        MsgBox "keine Kante wurde selektiert" & Chr(13) & "Das makro wird beendet!", vbOKOnly + vbCritical, MacroID
        Exit Sub
    End If

        Set Achse = oSel.Item2(1).Value
    oSel.Clear
   
' Hier sollte das Ausschliessen von Z-Achse sein

'MsgBox "Das Kreismuster kann nicht um die Z-Achse erzeugt werden. bitte nur die X- oder Y-Achse selektieren. Das Makro wird beendet"
'Exit Sub

End Sub

Vielen Dank im Voraus

mit freundlichen Grüßen

Estafanos

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

---

Eine Möglichkeit wäre

oAchse.Name ergibt den BRep der Achse

z.B.

Code:

---

"Selection_REdge:(Edge:(Face:(Brp:(AxisSystem.58;3);None:();Cf11:());Face:(Brp:(AxisSystem.58;2);None:();Cf11:());None:(Limits1:();Limits2:());Cf11:());AxisSystem.58;Z0;G3491 )"

---

   kurz zu BRep
   die Achse ergibt sich aus der Schnittmenge von zwei Planes

Code:

---

    Face:(Brp:(AxisSystem.58;3);
    Face:(Brp:(AxisSystem.58;2);

---

    Plane wird bescheiben durch: Face : (Brp : (achsenname;planenummer)

    wenn PlaneNr. 2 und 3 geschnitten werde ergibt sich die z-Achse

Du kannst den String oAchse.Name nun aufsplitten und testen ob Plane2 und Plane3 verwendet werden

Viel Spaß dabei
Gruß Lutz

[Diese Nachricht wurde von LuNo am 26. Sep. 2013 editiert.]

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

---

Servus
Du könntest die Richtung der Z-Achse (Methode GetZAxis des Achsensystems) mit der Richtung der Linie/Kante vergleichen (zB GetDirection des Measureable-Objekts) und dann entsprechend eine Msgbox ausgeben

Gruß
Bernd

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

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

---

Hallo Bernd,
vielen vielen Dank für die sehr gute Idee. Ich habe es umgesetzt und es hat sehr gut funktioniert.

@ Lutz: Herzlichen Dank für den Vorschlag. leider steht bei uns den nächsten Realse von Catia in Diskustion. Bei den neuen Realse vielleicht heissen die Achsen anderes.

Super herzlichen Dank für euch.

Gruß Estafanos

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

---

Servus Estafanos
ggf musst du beim Vergleich der Richtungen noch den Fall beachten wenn diese genau entgegengesetzt sind (also zB die Beträge der einzelnen Vektorkomponenten vergleichen)

Gruß
Bernd

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

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

---

Hallo Bernd,
das habe ich auch berücksichtigt. Die einzelen Richtungen in einem Array, dann die einzelen Werte als Variable reingeschieben.
Ich habe eine Linie mit der gleichen Richtung wie meine Achse (die selektiert ist) erzeugt und die beiden Richtungen miteinander verglichen.

Hier ist meine code nach der selektion:
------------------------------------------------------------------------------------
    oAxissystem.GetOrigin aCoord2
    xa = aCoord2(0)
    ya = aCoord2(1)
    za = aCoord2(2)

'Add of HybridBody in the part
    Set oHB = oPart.HybridBodies.Add
    oHB.Name = "Geometrical Set." & strFileName
    Set oHSF = oPart.HybridShapeFactory ' creation of hybrid shapes in the part
    Set oPT = oHSF.AddNewPointCoord(xa, ya, za)
    oHB.AppendHybridShape oPT
    Set refoPT = oPart.CreateReferenceFromObject(oPT)

'Drehachse fuer Kreismuster
    Set hybridShapeDirection2 = oHSF.AddNewDirection(Achse)
    Set hybridShapeLinePtDir1 = oHSF.AddNewLinePtDir(refoPT, hybridShapeDirection2, 0, 20, True)
 
    oHB.AppendHybridShape hybridShapeLinePtDir1

    oAxissystem.GetXAxis XAxisCoord
    oAxissystem.GetYAxis YAxisCoord
    oAxissystem.GetZAxis ZAxisCoord
    directionX = hybridShapeLinePtDir1.dir.GetXVal
    directionY = hybridShapeLinePtDir1.dir.GetYVal
    directionZ = hybridShapeLinePtDir1.dir.GetZVal

'Ausschliessen von Verzahnung um Z-Achse
    If directionZ = ZAxisCoord(2) Or directionZ = (-1 * ZAxisCoord(2)) Then
        MsgBox "Z Axis is wrong" & Chr(13) & "Macro will be finshed!", vbOKOnly + vbCritical, MacroID
        Exit Sub
    End If
----------------------------------------------------------------------------------------
Ich habe das Code hier geladen, damit die Skripter eine andere Idee im Hinterkopf haben.

Vielen Dank.
Gruß Estafanos

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

---

Das ist, glaube ich, nicht ganz richtig.

Für mich sieht es so aus, als würdest Du nur den Z-Wert von zwei Vektoren miteinander vergleichen, Du müsstest aber den kompletten Vektor miteinander vergleichen.

Also je die X,Y,Z Werte der beiden Vektoren, wobei es recht unwahrscheinlich ist, dass beimselben Achsensystem 2 Achsen denselben Z-Wert haben.

Mich würde aber prinziell mal interessieren wozu der Anwender überhaupt noch die Achse selektieren muss? Du hast doch bereits alle 3 Achsen des Achsensystems.

Edit: Den Vektorvergleich würde ich eine separate Funktion auslagern, welcher man 2 Arrays übergibt.

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

[Diese Nachricht wurde von HoBLila am 26. Sep. 2013 editiert.]

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