---

Hallo Zusammen : )

wie kann ich ein CATDrawing in ein CATDrawing einfügen?
Ich habe ein geöffnetes CATDrawing und möchte den Inhalt von einem anderen nicht geöffneten CATDrawing einfügen.

Wie könnte man das am einfachsten   ?

Vielen Dank für Eure Hilfe!

Schöne Grüße
Feyza  

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

[Diese Nachricht wurde von Feyza am 02. Sep. 2014 editiert.]

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

---

Servus
Was willst du ein einfügen?
zB kannst du ein Blatt in der Quellzeichnung kopieren und in der Zielzeichnung einfügen. (ggf mal mit Makrorekorder die Schritte aufzeichnen)

Gruß
Bernd

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

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

---

Hallo Bernd,

ich habe 5 CATDrawings, wo ich jeweils ein Zeichnungsrahmen und Schriftkopf im Hintergrund habe.

Per Combobox wähle ich die Größe aus z.B. A0. Dann soll er mir die gewünschte Datei, die ich hinter A0 habe, einfügen.

So würde ich z.B. ein neues Blatt öffnen, aber nicht in die aktuelle geöffnete CATdrawing einfügen:

Dim documents1 As Documents
Set documents1 = CATIA.Documents
Dim drawingDocument1 As DrawingDocument

If comZeichn_rah_groes.Text = "A0" Then
Set drawingDocument1 = documents1.NewFrom("V:\Zeichnungsnormalien\Schriftkopf\Zeichnungsrahmen_V5R19_A0.CATDrawing")
End If

Vielen Dank : )

Schönen Grüße
Feyza 

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

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

---

Dim drawingDocument1111 As DrawingDocument
Set drawingDocument1111 = CATIA.ActiveDocument

Dim documents1 As Documents
Set documents1 = CATIA.Documents
Dim drawingDocument1 As DrawingDocument

If comZeichn_rah_groes.Text = "A0" Then
Set drawingDocument1 = documents1.Open("C:\temp\A0.CATDrawing")

Dim selection1 As Selection
Set selection1 = drawingDocument1.Selection

selection1.Search "Type=*Line*,all"

  If (selection1.Count2 > 0) Then
    selection1.Copy
  Else
  MsgBox ("Keine Elemente zum Kopieren!")
 
  End If

'Leeres Blatt aktivieren
'------------------------

Dim qwer As Selection
Set qwer = drawingDocument1111.Selection
drawingDocument1111.Activate

Set oDraw_a = CATIA.ActiveDocument    'Zeichnung als aktives Dokument bestimmen
Set oSheets_a = oDraw_a.Sheets
Set oSheet_a = oSheets_a.ActiveSheet
oSheet_a.Activate

Set oViews_a = oSheet_a.Views
oSheet_a.Views.Item(2).Activate                ' BLATT001 aktivieren
Set oView_a = oViews_a.Item(2)
oView_a.Activate

Set drawingDocument2 = CATIA.ActiveDocument

Dim selection5 As Selection
Set selection5 = drawingDocument2.Selection

selection5.Paste <---------- Hier bricht das Programm ab

Elemente werden kopiert, aber beim Einfügen bricht es hier ab, mit der Fehlermeldung:

Laufzeitfehler '-2147467259 (80004005)':
The CSO ist empty. The PasteSpecial operation could not be performed.

ich habe auch so versucht:
selection5.PasteSpezial ""

geht leider auch nicht.

Könntest Du mir bitte hier weiterhelfen  ?

Danke schön!

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

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

---

Hallo,

Hier ist ein Marco, da kannst du bestimmt was von verwenden.

------------------
Sei Schlau bleib Dumm !!?!!

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

---

Guten Morgen K.Siebert  

vielen Dank für den Tipp!

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

[Diese Nachricht wurde von Feyza am 08. Sep. 2014 editiert.]

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