---

Hallo Zusammen,

ich habe ein CATDrawing mit 3 Blättern.

ich möchte in ein leeres geöffnetes CATDrawing den 2.Blatt von der oberen CATDrawing in den Background einfügen.
Bei der Makroaufzeichnung übernimmt er gar nichts.

Manuelle Vorgehensweise:
File-> PageSetup -> Insert BackgroundView -> Browse nach CATDrawing -> CATDrawing öffnen -> Sheet auswählen -> Insert -> SheetStyle auswählen -> OK

Bei dem unteren Code, macht er mir eine neue Zeichnung auf und selektiert das 2. Blatt:

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim drawingDocument1 As Document
Set drawingDocument1 = documents1.NewFrom("C:\Temp\123.CATDrawing")

Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets

Dim drawingSheet1 As DrawingSheet
Set drawingSheet1 = drawingSheets1.Item("Ra-E1-MF")

drawingSheet1.Activate

Kann mir bitte hier jemand einen Tip geben.

Danke schön.

------------------
Schöne Grüße
Feyza : )

[Diese Nachricht wurde von Feyza am 12. Apr. 2011 editiert.]

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

---

Servus
Versch es mal Copy&Paste.
Anbei der Mitschnitt des Makrorecorders:

Code:

---

Sub CATMain()

Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = CATIA.ActiveDocument

Set drawingDocument1 = CATIA.ActiveDocument

Dim selection2 As Selection
Set selection2 = drawingDocument1.Selection

selection2.Clear

Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets

Dim drawingSheet1 As DrawingSheet
Set drawingSheet1 = drawingSheets1.Item("Blatt .1")

Dim drawingViews1 As DrawingViews
Set drawingViews1 = drawingSheet1.Views

Dim drawingView1 As DrawingView
Set drawingView1 = drawingViews1.Item("Background View")

selection2.Add drawingView1

selection2.Copy

Dim drawingDocument2 As DrawingDocument
Set drawingDocument2 = CATIA.ActiveDocument

Dim selection3 As Selection
Set selection3 = drawingDocument2.Selection

selection3.Clear

Dim drawingSheets2 As DrawingSheets
Set drawingSheets2 = drawingDocument2.Sheets

Dim drawingSheet2 As DrawingSheet
Set drawingSheet2 = drawingSheets2.Item("Blatt .1")

selection3.Add drawingSheet2

selection3.Paste

End Sub

---

IMHO müssen nur die "drawingDocument1" bis "drawingDocument2" bereinigt/überarbeitet werden (und ggf noch die Seitenzahl).

Gruß
Bernd

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

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