---

Hallo CAD Forum,

ich suche eine Befehlszeile, mit der ich die komplette Geometrie von einer Skizze in eine andere kopieren kann.
Alle meine bisherigen Versuche führten zu keinem brauchbaren Erfolg. Vielleicht kann mir einer von euch weiterhelfen.

Gruß
djebk

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

---

Servus djebk

Wie sieht denn dein bisheriger Versuch aus?
ggf wäre es ja einfach die ganze Skizze zu kopieren und danach falls erforderlich die Ebene/Referenz der Skizze umbiegen
Schon mal den manuellen Weg probiert nach zu programmieren? (Skizze öffnen, Geometrie suchen, kopieren, in 2. Skizze wechseln, Skizze selektieren, einfügen)

Gruß
Bernd

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

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

---

Servus Bernd,

vielen Dank für Deine Rückmeldung. Die ganze Skizze kopieren funktioniert in meinem Anwendungsfall nicht, da ich eine vorhandene Skizze mit immer mehr Inhalt/Geometrie füllen möchte.

Meine bisherigen Bemühungen waren, über die Aufnahmefunktion zuvor ausgeführte Befehle zu dokumentieren und allgemeine Befehlszeilen daraus abzuleiten.

Als Ergebnis habe ich dadurch erreicht, die Geometrie einer vorhandenen Skizze in den Zwischenspeicher zu kopieren:

Dim Geo As Selection
Geo.Search "'Part Design'.Skizze.Name=123"
Geo.Search "CATSketchSearch.2DGeometry,sel"
Geo.Copy

Der Copy-Befehl funktioniert, jetzt versuche ich seit einiger Zeit, den Paste-Befehl zu programmieren.

Für andere Vorgehensweisen bin ich offen. Es wäre auch denkbar (sofern programmiertechnisch möglich), direkt auf die Skizzengeometrie zuzugreifen und zu kopieren, anstatt der Abfolge Suchen-Auswählen-Kopieren.

Gruß
djebk

[Diese Nachricht wurde von djebk am 18. Jul. 2018 editiert.]

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

---

Servus

Hier ein Beispiel:

Code:

---

Sub CATMain()

Dim oTargetSketch as Sketch
Dim oSourceSketch as Sketch
Dim oSel As Selection
dim oPart as Part

Set oSel = CATIA.ActiveDocument.Selection
Set oPart = CATIA.ActiveDocument.part

'sehr schlampiger Zugriff auf die Skizzen
Set oTargetSketch = oPart.HybridBodies.Item("Geometrisches Set.1").HybridSketches.Item("Skizze.2")
Set oSourceSketch = oPart.HybridBodies.Item("Geometrisches Set.1").HybridSketches.Item("Skizze.1")

'Geometrie suchen und selektieren
oSel.add oSourceSketch
oSel.Search "CATSketchSearch.2DGeometry,sel"
oSel.Copy

'Geometrie einfügen
oSel.Clear
oSel.add oTargetSketch
oSel.Paste

End Sub

---

Gruß
Bernd

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

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

---

Klasse! Funktioniert einwandfrei!

Gruß
djebk

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