---

Hallo,

ich möchte in einem Part einen Punkt (hybridshape) messen und die Koordinaten ausgeben.

  Dim myPoint  As HybridShapePointCoord
  Set myPoint = myHypridshapes.Item("Point.1")                                 
       
  Dim myReference As Reference
  Set myReference = myPart.CreateReferenceFromObject(myPoint)

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

  Dim coords(2) As Object

  TheMeasurable.GetPoint coords  <--Fehler *siehe unten*
  MsgBox "Measured Point, x= " & coords(0) & " y= " & coords(1) & " z= " & coords(2)

Die Fehlermeldung, die ich erhalte lautet:
Funktion oder Schnittstelle kann nur eingeschränkt verwendet werden oder verwendet einen Typ der Automatisierung, der von VB nicht unterstützt wird.

Kann mir jemand sagen, wo mein Fehler liegt. Fehlt mir eventl. ein Verweis auf eine CATIA-Objektbibliothek?

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

---

Hallo
Versuch doch einfach mal:
Dim TheMeasurable As Object
oder ohne Typ
Dim TheMeasurable
Bei mir hat das geholfen

------------------
Grüße TStone

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

---

Hat geklappt :-)

Vielen Dank!!!!

Weiß jemand, warum das Objekt als 'Object' deklariert werden muss?

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