---

Hallo!

Mein Problem: Ich habe einen unbekannten Körper und muss die Koordinaten aller Eckpunkte davon auslesen. Ich bin schon dank dieses Forums ziemlich weit gekommen: Ich kann mit

Sel.Search "Topology.CGMVertex, all"
Set Ref = Sel.Item(1).Reference
Dim RefName As String
RefName = Ref.DisplayName

automatisch alle Eckpunkte selektieren und dann diese unglaublich lange Wurst in ein String umwandeln. Danach möchte ich mit

Dim TheSPAWorkbench As Workbench
Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")
Dim TheMeasurable As Measurable
Set TheMeasurable = TheSPAWorkbench.GetMeasurable(RefName)

Dim coords(2)

TheMeasurable.GetPoint coords

die Koordinaten auslesen. Aber es scheint ein Problem mit der Referenz zu sein. Irgendwie kann das Measurable mit dem RefName nix anfangen... HILFE  Ich hock schon so ewig dran 

Gruss Brolk

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

---

Hallo brolk,
versuch doch mal:

Set TheMeasurable = TheSPAWorkbench.GetMeasurable(Ref)

Ciao, Günther

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

---

Habe ich schon ausprobiert. Bringt leider nichts... 

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

---

Hallo Brolk,

mit welchem Release arbeitest du denn?
Ich arbeite mit der R12 und nach der Online-Doku ist die Eigenschaft "Reference" deprecated!:

o Property Reference( ) As CATIAReference (Read Only)

Deprecated. Obsolete property.
Use the Part.CreateReferenceFromObject method.

Ciao, Günther

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

---

Ich habe auch V5R12.

Bedeutet das, dass ich es so vergessen kann? Das wäre übel. Weil diese Eckpunkte existieren ja im Strukturbaum links nicht. Ich muss aber genau an diese 3D Eckpunkte (Vertex) ran...

Oh je...

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

---

Hallo Brolk,

ich weiß nicht genau, ob es überhaupt an dieser Eigenschaft liegt,
da du ja anscheinend erst später Probleme mit der Referenz hast.
Aber ich würde noch folgendes versuchen:

Set Ref = Part.CreateReferenceFromObject(Sel.Item(1).Value)

Vielleicht bringt das ja was,
Günther

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

---

leider auch nix...

dieser Beitrag scheint mir sehr vielversprechend, weil es da um fast das gleiche Problem geht.
http://ww3.cad.de/foren/ubb/Forum137/HTML/000363.shtml#000000

Leider weiss ich nicht in welcher Form das String manipuliert werden muss....

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