---

Hallo zusammen,

ich suche eine Möglichkeit, zu einer Ansicht, die aus dem 3D abgeleitet ist, die Projektionsebene zu ermitteln.

Leider habe ich in der Online-Doku nichts dazu gefunden. 

Habt ihr einen Tipp für mich?

Viele Grüße,

CEROG

------------------
Meine Firma

Wie stelle ich meine Fragen richtig?

---

Hallo CEROG,

ich weiß nicht, ob Dir folgendes weiterhilft. Ist mehr oder weniger aus der Doku.
Die Richtung der Ebene kann man auslesen, nicht aber den Punkt, durch der die Ebene geht.

Code:

---

    Dim oActDoc As Document
    Set oActDoc = CATIA.ActiveDocument

    Dim oSheet As DrawingSheet
    Set oSheet = oActDoc.Sheets.Item(1)

    Dim oView As DrawingView
    Set oView = oSheet.Views.Item(3)

    Dim oGenBeh As DrawingViewGenerativeBehavior
    Set oGenBeh = oView.GenerativeBehavior

    Dim oX1 As Double
    Dim oY1 As Double
    Dim oZ1 As Double
    Dim oX2 As Double
    Dim oY2 As Double
    Dim oZ2 As Double

    oGenBeh.GetProjectionPlane oX1, oY1, oZ1, oX2, oY2, oZ2

    Debug.Print oX1, oY1, oZ1
    Debug.Print oX2, oY2, oZ2

    Dim oXNormal As Double
    Dim oYNormal As Double
    Dim oZNormal As Double
   
    oGenBeh.GetProjectionPlaneNormal oXNormal, oYNormal, oZNormal

    Debug.Print oXNormal, oYNormal, oZNormal

---

Ist für VBA.
Methode GetAxisSysteme könnte vielleicht noch was bringen, habe es aber nicht zum Laufen bringen können. Es gab ständig die Fehlermeldung: Property write only. Anbei der Kode. Musst den oberehn Anhängen und Datentyp von oGenBeh ins Kommentar setzen.

Code:

---

    Dim oAxisSystem As Object
    Dim oProd As Object
   
    Set oProd = oGenBeh.Document
    oGenBeh.GetAxisSysteme oProd, oAxisSystem

---

Gruß,
Zoltan

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

---

Hallo Zoltan,

danke für den Tipp.

Viele Grüße,

CEROG

------------------
Meine Firma

Wie stelle ich meine Fragen richtig?