---

High,

Ich möchte gern in einer Baugruppe die Abstände einer Bohrung im Part1 zu einer weiteren Bohrung im Part2 messen.
Mit dem Catia-Tool "Messen zwischen" werden die Achsen angezeigt und deren Abstand gemessen-genau das bräuchte ich.
Die Bohrungen wurden mit dem Bohrungsassistenten erstellt.
Kann mir jemand einen Tip geben wie ich die beiden Bohrungen über ein Makro messen kann

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

---

Messen.jpg

Hallo! 
Wenn die Bohrungsgeometrie nicht „tot“ ist, dann kannst du zwischen zwei „Skizze Punkt“ messen.(Bild)

------------------
Mit freundlichen Grüßen,
JuPaV

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

---

High JuPaV

Ich bräuchte das ganze als Makro.
Ich will von allen vorhandenen Bohrungen die Abstände messen.
Eine Refernz auf die Zylinderflächen zu legen habe ich geschafft.
Jedoch die Abstände zu messen schaff ich nicht.
Help

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

---

Servus
Du könntest vielleicht für jede Bohrung eine temporäre Achse (aus dem GSD) mit "AddNewAxisLine" erzeugen, dann den Abstand messen und die Achsen wieder löschen.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo spidermat!

Code:

---

Sub CATMain()

Set odoc = CATIA.Documents
Set oPart_01 = odoc.Item("Part1.CATPart").Part
Set oBody_01 = oPart_01.MainBody
Set oHole_01 = oBody_01.Shapes.Item("Hole.1")
Set GeoElements = oHole_01.Sketch.GeometricElements
Set oPoint_01 = GeoElements.Item("Point.1") 'point Part.1

Set oref_01 = oPart_01.CreateReferenceFromObject(oPoint_01) ' Reference Point.1

Set oPart_02 = odoc.Item("Part2.CATPart").Part
Set oBody_02 = oPart_02.MainBody
Set oHole_02 = oBody_02.Shapes.Item("Hole.1")
Set GeoElements = oHole_02.Sketch.GeometricElements
Set oPoint_02 = GeoElements.Item("Point.1") 'point Part.2

Set oref_02 = oPart_02.CreateReferenceFromObject(oPoint_02) ' Reference Point.1

Set oProd = CATIA.ActiveDocument
Set TheSPAWorkbench = oProd.GetWorkbench("SPAWorkbench")
Set TheMeasurable = TheSPAWorkbench.GetMeasurable(oref_01)

MinimumDistance = TheMeasurable.GetMinimumDistance(oref_02) 'Deine Abstand

End Sub

---

------------------
Mit freundlichen Grüßen,
JuPaV

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

---

High JuPAV

Super-Danke
Habs probiert, und auch mit den Achsen hab ichs geschafft-aber !:
das Maß passt nur wenn ich die beiden Bauteile einfüge und nicht verschiebe .
Es misst mir immer das ursprüngliche Abstandsmaß, nicht das korrekte Maß nach dem Verschieben. Muß man hier etwas updaten?

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