---

Hallo Catia-Gemeinde!

Per CATScript-Makro möchte ich Text als Abzugskörper für eine Zylindermantelfläche erstellen.
Die forlaufenden Zeichen sind mit mittels Punkt und Ebene ihrer Skizze im Raum definiert.
Will ich z.B. im Zeichen3 (mit "SkizzeZeichen3") den Buchstaben K durch R austauschen,
wäre das durch Löschen des Inhalts der "SkizzeZeichen3" und anschließendem Kopieren des Inhalts der "SkizzeR" vorstellbar.

Bei meiner Suche im Forum bin ich auf nichts passendes gestoßen.

Habt Ihr dazu Erfahrungen?

Für Eure Hilfe im Voraus dankend
Stephan

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

---

Es geht doch noch einfacher:

Das Feature Tasche.x (das mit der Skizze.3) aufrufen und editieren, also die neue Skizze komplett als Referenz zuweisen.

Sub CATMain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim bodies1 As Bodies
Set bodies1 = part1.Bodies

Dim body1 As Body
Set body1 = bodies1.Item("Hauptkörper")

Dim shapes1 As Shapes
Set shapes1 = body1.Shapes

Dim pocket1 As Pocket
Set pocket1 = shapes1.Item("Tasche.1")

Dim sketches1 As Sketches
Set sketches1 = body1.Sketches

Dim sketch1 As Sketch
Set sketch1 = sketches1.Item("Skizze.R")

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

pocket1.SetProfileElement reference1

part1.Update

End Sub

------------------
Grüße aus dem Thurgau
Thomas

+++++++++++++++++++++++++++++++++

CATIA - eine Laune der Natur ...

"Phase 2 in CATIA V5"  - www.tobeplus.de

         tberger@tobeplus.de

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

---

Präge-Rad-Text.zip

@ Thomas:

Deinen Vorschlag habe ich dankbar umzusetzen versucht.

Den Fehler in Zeile 215
Set sketch1 = sketches1.Item(aktuSkizzeflach)
habe ich nicht gefunden.
Auch Set sketch1 = sketches1.Item("aktuSkizzeflach") geht nicht.

Da ich nicht weiter weiß, bitte ich Dich, Dir das Makro anzusehen.
Vielleicht nur eine simple Ursache?

Danke
Stephan

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

---

Servus
Bitte Systeminfo ausfüllen.
Keine Sonderzeichen oder Umlaute im Dateinamen des Anhangs verwenden.

Gruß
Bernd

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

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

---

Hallo Pietzonka,

kann es sein, dass Deine Skizzen (z.B. "aktuSkizzeflach") gar nicht Betandteil des Body "ZeichenNummerkplflach" sind? Das würde eine Fehlermeldung erklären.

Wäre natürlich schön gewesen, auch den genauen Wortlaut des Fehlers hier gepostet zu bekommen. Das hilft manchmal ungemein! 

Vielleicht auch mal kurz den Aufbau Deines CATParts erklären...

mfg,
Lusilnie

------------------
Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!

frei nach größeren Geistern

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