---

Hallo zusammen,
wenn zu diesem Thema bereits ein Thread besteht, den meine SuFu nicht ausgespuckt hat, dann bitte ich dies zu entschuldigen.

Zu meiner Frage: Gibt es eine Möglichkeit die Funtion "Zusammenfügen"  mit ihrem Attribut "Abstand bei der Zusammenführung" in einem CatScript zu verarbeiten?
Ich erzeuge Geometrien mit Linien und Kreisbögen, dabei entstehen zwischen den Start- und Endpunkten kleine Abstände durch die Umrechnungen von Polar- und kartesischen Koordinaten. Die Abstände mit der o.g. Funktion schließen um eine geschlossene Kontur zu erzeugen.

Makro aufnehmen hat nicht funktioniert, selbst wenn ich das Makro direkt wieder ablaufen lasse, funktioniert es nicht.

Noch eine Frage: Muss für jede Kontur (angenommen ich habe zwei von einander entfernte Geometrien) eine einzelne Skizze erzeugt werden?

Vielen Dank im voraus!

Gruß
Chuk

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

---

Hi chuk,

Zitat:

---

Makro aufnehmen hat nicht funktioniert, selbst wenn ich das Makro direkt wieder ablaufen lasse, funktioniert es nicht.

---

bei mir funktioniert das wieder-ablaufen-lassen.
Hast Du daran gedacht zuvor den Ausgangszustand wieder herzustellen?

Tschau,
Joe

PS: Das mitgeschnittene Makro verbindet zwei Linien mit einem Viertelkreis:

Code:

---

Sub CATMain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim hybridShapeFactory1 As HybridShapeFactory
Set hybridShapeFactory1 = part1.HybridShapeFactory

Dim hybridBodies1 As hybridBodies
Set hybridBodies1 = part1.hybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("Geometrical Set.1")

Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = hybridBody1.HybridShapes

Dim hybridShapeLinePtPt1 As HybridShapeLinePtPt
Set hybridShapeLinePtPt1 = hybridShapes1.Item("Line.1")

Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromObject(hybridShapeLinePtPt1)

Dim hybridShapeLinePtPt2 As HybridShapeLinePtPt
Set hybridShapeLinePtPt2 = hybridShapes1.Item("Line.2")

Dim reference2 As Reference
Set reference2 = part1.CreateReferenceFromObject(hybridShapeLinePtPt2)

Dim hybridShapeAssemble1 As HybridShapeAssemble
Set hybridShapeAssemble1 = hybridShapeFactory1.AddNewJoin(reference1, reference2)

Dim hybridShapeCorner1 As HybridShapeCorner
Set hybridShapeCorner1 = hybridShapes1.Item("Corner.1")

Dim reference3 As Reference
Set reference3 = part1.CreateReferenceFromObject(hybridShapeCorner1)

hybridShapeAssemble1.AddElement reference3

hybridShapeAssemble1.SetConnex 1

hybridShapeAssemble1.SetManifold 1

hybridShapeAssemble1.SetSimplify 0

hybridShapeAssemble1.SetSuppressMode 0

hybridShapeAssemble1.SetDeviation 0.05

hybridShapeAssemble1.SetAngularToleranceMode 0

hybridShapeAssemble1.SetAngularTolerance 0.5

hybridShapeAssemble1.SetFederationPropagation 0

hybridBody1.AppendHybridShape hybridShapeAssemble1

part1.InWorkObject = hybridShapeAssemble1

part1.Update

End Sub

---

------------------
Inoffizielle Catia Hilfeseite

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

---

Hi Joe,

Zitat:

---

Hast Du daran gedacht zuvor den Ausgangszustand wieder herzustellen?

---

Das war das eine Problem..

Zitat:

---

hybridShapeAssemble1.SetDeviation 0.05

---

Und das war die Lösung, die ich suchte. Bei mir war

Code:

---

Dim hybridShapeAssemble1 As HybridShape
Set hybridShapeAssemble1 = hybridShapes1.Item("Verbindung.1")

body1.InsertHybridShape hybridShapeAssemble1

part1.InWorkObject = hybridShapeAssemble1

---

da Schluss und der Zugriff bzw. Name des Attributes wurde nicht mitgeloggt.
Danke!

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