---

Hallo
Folgende Aufgabenstellung:
- Texteingabe über ein Eingabefeld im Ausgangspart (erledigt)
- Als Dxf in eine Datei herausschreiben (erledigt)
- Einlesen in eine Zeichnung als Geometrie (erledigt)
- Zurückschreiben in das Ausgangspart als Sketch-Geometrie (NOCH NICHT erledigt)
Folgendes CATScript (bereits als Copy bekommen) bis hierhin:

Sub CATMain()
Eingabe = InputBox("Bitte geben Sie den Text fuer die Gravur ein.", "CATIA Text-Gravur", "")
Set varDocs = CATIA.Documents
Set varPart = CATIA.ActiveDocument
Set varDrawing = varDocs.Open("C:\DRW_TEMPL.CATDrawing")
Set varSheet = varDrawing.Sheets.ActiveSheet
Set varView = varSheet.Views.Add("Front View")
Set varText = varView.Texts.Add("ComplexText", 10, 10)
varText.Text = Eingabe
buffer = varDrawing.ExportData("C:\TEST.dxf", "dxf")
varDrawing.Close
Set varDXF = varDocs.Open("C:\TEST.dxf")
End Sub

Wer kann den fehlenden Code hinzufügen?
Danke schon im Vorraus.

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

---

hmm, der code kommt wohl von dort http://ww3.cad.de/foren/ubb/Forum139/HTML/001393.shtml#000027

Schon mal mit einer Makro-Aufzeichnung versucht? -ist ganz einfach

Grob bekommst du dann sowas wie unten stehend, an einigen Stellen muss man dann den Code bearbeiten...
Dieser liest ein dxf-File auf C ein, sucht die Ansicht, kopiert, Erstellt ein neues Part und fügt die Skizze im Partbody ein :

Code:

---

Sub dxftest()
Set documents1 = CATIA.Documents
Set document1 = documents1.Open("C:\D1.dxf")

Set drawingDocument1 = CATIA.ActiveDocument

Set dxfselection = drawingDocument1.Selection
dxfselection.Search "Name=Main View,all" '"Name=Hauptansicht,all"
dxfselection.Copy

Dim partDocument1 'As Document
Set partDocument1 = documents1.Add("Part")

Dim partDocument2 ' As Document
Set partDocument2 = CATIA.ActiveDocument

Dim selection2 'As Selection
Set selection2 = partDocument1.Selection
selection2.Clear

Dim part1 'As Part
Set part1 = partDocument2.Part

Dim bodies1 'As Bodies
Set bodies1 = part1.Bodies

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

selection2.Add body1
selection2.Paste

End Sub

---

den Rest kannst du dann erledigen?

[Diese Nachricht wurde von Thomas Harmening am 22. Aug. 2010 editiert.]

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

---

Ein fertiges und gutes Makro für die DXF-methode steht doch im Kochbuch, da braucht man doch fast gar nicht mehr drüber nachdenken. 

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

---

Hallo
Danke für die Code-Ergänzungen. Das recordern hatte ich wohl aus einem nicht
richtigem Ansatz heraus gestartet. Man lernt gerne dazu. Danke für den Hinweis!
Mein Script funktioniert nun nach kleinen Anpassungen.
PS:
Das Kochbuch-Script werde ich mir ebenso noch anschauen.

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