---

Hi zusammen,

ich lese mit VBA diverese Informationen von Constraints aus, unter anderem auch Origins und Directions. Bisher hat das auch alles super funktioniert. Jetzt ist mir allerdings aufgefallen, dass ich keine Infos bekomme, wenn z.B. eine Kongruenz für zwei Ebenen gegeben ist. Folgender Code liefert zwar keinen Fehler, das Array Origin bleibt allerdings komplett leer?! Weiß jemand wie ich sonst an die Lage der Ebenen komme?

obj ist in diesem Fall einfach das Item aus CATIA.ActiveDocument.Product.Connections("CATIAConstraints").Item

Code:

---

    Dim oCST
    Set oCST = obj.GetConstraintElement(1)
   
    'Declare object for the SPA Workbench
    Dim objSPAWorkbench
    Set objSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")
   
    'Declare measurement object
    Dim objMeasurable
    Set objMeasurable = objSPAWorkbench.GetMeasurable(oCST)
   

    'Declare variable for direction with space for additional data
    Dim Origin(9)

    'Readable if constraint is point type
    objMeasurable.GetPlane (Origin)

---

Vielen Dank schon einmal!

Beste Grüße
Chris

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

---

Servus
Bei mir läuft dein Code ohne Probleme und der Array wird befüllt. (auf R19 getestet)
Hast du spezielle Ebenen? Passiert dies nur bei manchen?

Gruß
Bernd

PS: Der Array ist ausreichend wenn du ihn mit "Origin(8)" dimensionierst.

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

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