---

Hallo,

ich habe ein CATPart in dem der User eine beliebige Fläche selektieren soll, die dann im Drawing als FrontView verwendet werden soll. Mein Problem ist, wie bekomme ich die Daten für die Vektoren (V1, V2), die ich für die Funktoin DefineFrontView benötige.

Wenn ich das ganze aufzeichen, bekomme ich z.B. folgende Zeile:

Code:

---

drawingViewGenerativeBehavior1.DefineFrontView 0.376460, -0.000000, -0.926433, 0.000000, 1.000000, 0.000000

---

Aber wie kann ich die Vektoren für die 'FrontView-Ebene' aus dem CATPart auslesen?

Gruß
  Markus

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

---

Hallo,

hast du schon die UserSelection (z.B. mit Type="PlanarFace") erstellt?

Die selektierte Ebene kannst du mit
Ebene.getfirstaxis Koord
Ebene.getsecondaxis Koord2
auslesen.

Grüsse Dominik

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

---

Hallo Dominik,

die UserSelection war ein super Tipp!!!
Auf die Idee wäre ich in 100 Jahren nicht gekommen, ich suchte immer nach GetVector o.ä.

Die Auswahl über die UserSelection, sowie das Auslesen der Vektoren über getFirstAxis, getSecondAxis funktioniert einwandfrei.

Vielen Dank für deine Hilfe!!!

Gruß
  Markus

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

---

Kein Problem.

Du darfst deine Erkenntnisse gerne an einem kleinen Beispiel hier veröffentlichen, um zukünftig auch anderen zu helfen.

Grüsse Dominik

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

---

Hallo,

also hier ist die Funktion:

- Auswahl einer PlanarFace durch eine UserSelection
- Rückgabe der Vektoren V1 u. V2 (zusammengefasst ein einem Array),
  oder False wenn das aktive Dokument kein PartDocument ist

Code:

---

Public Function fctPlanarFaceVector() As Variant

      If TypeName(CATIA.ActiveDocument) <> "PartDocument" Then
     
            fctPlanarFaceVector = False
            Exit Function
     
      Else
     
            Dim sUserSel As String
            Dim aVector1(2)
            Dim aVector2(2)
            Dim aVector(5)
            Dim aSelectionType(0)
            Dim oSelection As Object
            Dim oPlanarFace As Object
           
            Set oSelection = CATIA.ActiveDocument.Selection
            oSelection.Clear
            aSelectionType(0) = "PlanarFace"
       
            sUserSel = oSelection.SelectElement2(aSelectionType, _
                                                      "Select planar face", False)
           
            If sUserSel = "Normal" Then
                   
                  Set oPlanarFace = oSelection.Item(1).Value
                  oPlanarFace.GetFirstAxis aVector1
                  oPlanarFace.GetSecondAxis aVector2
                 
                  aVector(0) = aVector1(0)
                  aVector(1) = aVector1(1)
                  aVector(2) = aVector1(2)
                  aVector(3) = aVector2(0)
                  aVector(4) = aVector2(1)
                  aVector(5) = aVector2(2)
                 
                  fctPlanarFaceVector= aVector
             
            End If
       
      End If
 
End Function

---

Gruß
  Markus

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