---

hallo,
ich hoffe, dass mit eventuell jemand helfen kann.
Ich suche eine Möglichkeit, die mir die Funktion create Geometry oder eventuell sogar diese ist.

Ich hab zwei Flächen, ein Join von mehreren Flächen und die Oberfläche eines Solids. Der Solid soll an den Join in x-Richtung "heran" geschoben werden.

Danke schon mal für die konstruktiven Antworten

------------------
                  \\\\|////
                  \\ _ _ //
                   ( o o )
================oOOo-(_)-oOOo==================
    The next time you think you are perfect,
           try walking on water
========================Oooo===================
                  oooO  (  )
                  (  )  ) /
                   \ ( (_/
                    \_)

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

---

hat sich erledigt.
Measureable->GetMinimumDistancePoints

------------------
                  \\\\|////
                  \\ _ _ //
                   ( o o )
================oOOo-(_)-oOOo==================
    The next time you think you are perfect,
           try walking on water
========================Oooo===================
                  oooO  (  )
                  (  )  ) /
                   \ ( (_/
                    \_)

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

---

GetMinimumDistance funktioniert schon, aber unter VBA kommt nur die Meldung, dass diese restricted ist.
Hat jemand doch ne Idee, wie man das auch unter vba hin bekommt?

------------------
                  \\\\|////
                  \\ _ _ //
                   ( o o )
================oOOo-(_)-oOOo==================
    The next time you think you are perfect,
           try walking on water
========================Oooo===================
                  oooO  (  )
                  (  )  ) /
                   \ ( (_/
                    \_)

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

---

So funktionierts unter vba:

Code:

---

Dim firstGeometrie As Object
Set firstGeometrie = CATIA.activeDocument.Part.HybridBodies.Item("Flaeche.1")

Dim secondGeometrie As Object
Set secondGeometrie = CATIA.activeDocument.Part.HybridShapes.Item("Flaeche.2")

Dim reference1 As Reference
Set reference1 = CATIA.activeDocument.Part.CreateReferenceFromObject(firstGeometrie)
Dim reference2 As Reference
Set reference2 = CATIA.activeDocument.Part.CreateReferenceFromObject(secondGeometrie)

Dim TheSPAWorkbench As SPAWorkbench
Dim TheMeasurable As Object

Set TheSPAWorkbench = CATIA.activeDocument.GetWorkbench("SPAWorkbench")
Set TheMeasurable = TheSPAWorkbench.GetMeasurable(reference1)

Dim coords(8)
TheMeasurable.GetMinimumDistancePoints reference2, coords

---

------------------
                  \\\\|////
                  \\ _ _ //
                   ( o o )
================oOOo-(_)-oOOo==================
    The next time you think you are perfect,
           try walking on water
========================Oooo===================
                  oooO  (  )
                  (  )  ) /
                   \ ( (_/
                    \_)

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