---

Hallo Profis,

ich habe ein merkwürdiges Problem:

Erstelle ich ein Product und packe dort 2 Parts rein (egal ob die Lage eindeutig definiert ist oder nicht) und erstelle z. B. in jedem Part ein Punkt und messe den Abstand mit:

Code:

---

Dim TheSPAWorkbench As Workbench
    Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")
   
   
    Dim product1 As Product
    Set product1 = CATIA.ActiveDocument.Product
   
    product1.Update
    Dim point1 As Point, point2 As Point
    Set point1 = product1.Products.Item(1).ReferenceProduct.Parent.Part.HybridBodies.Item(1).HybridShapes.Item("Point.1")
    Set point2 = product1.Products.Item(2).ReferenceProduct.Parent.Part.HybridBodies.Item(1).HybridShapes.Item("Point.1")

    Dim dblLength1 As Double
    dblLength1 = TheSPAWorkbench.GetMeasurable(point1).GetMinimumDistance(point2)

    MsgBox dblLength1

---

dann bekomme ich ein Messergebnis. Verschiebe ich allerdings das eine Part, so dass sich der Abstand ändert, dann kriege ich bei jeder Messung immer den alten Wert, den ich bei der 1. Messung erhielt.

Weiß jemand wodran das liegt?

Vielen Dank

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

---

High JuPaV
ist schon einige Zeit aus, aber ich habe die gleich Frage wie in Deinem Beitrag. Hat dazu schon jemand eine Antwort gefunden.

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