---

Wer hat schon was mit "Measurable"  gemacht
und kann mir da weiter helfen?

hier mein beispiel läuft nicht:

Dim TheSPAWorkbench
Dim TheMeasurable
Dim referenceObject

Dim coords(2)
Dim selectedElement

set selectedElement = selection.Item(i)
set referenceObject = selectedElement.Reference
Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")
Set TheMeasurable = TheSPAWorkbench.GetMeasurable(referenceObject)
TheMeasurable.GetPoint(coords)
msgBox "Measured Point, x= " & coords(0) &" y= " & coords(1) &" z= " & coords(2)

------------------
gruss
scheuche

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

---

Hallo Ute,

bist Du hier schon weiter ? Ich habe das gleiche Problem.

Vielen Dank !

Louis

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

---

Hallo Ute,

hab mal rumprobiert und bin auf folgende Lösung gekommen:

In VB läuft dieses Beispiel nur wenn Du

Dim TheSPAWorkbench as spaworkbench

definerst

und in der Zeile

TheMeasurable.GetPoint(coords)

ein 'Call' voranstellst.

Natürlich muss ein Verweis auf die entsprechende TBl vorhanden sein.

Gruss

Louis

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

---

Hallo,
könntet mir bitte jemand erlätern was TBI ist und wie kann ich drauf verweisen?

Danke schon mal im Voraus
Barbara

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

---

HAllo Barbara,

mit TBl ist der entsprechende Verweis auf die TBL-Datei im VB-Projekt gemeint. Habe das "L" nicht gross geschrieben - deshalb die Verwechslung.

Gruss

Louis

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