---

Hallo,

hat jemand einen Tip für mich, wie man eine vorhandene View in einem CATDrawing mit komplettem Inhalt kopieren kann.
Ziel soll es seine eine anfänglich manuell erstellte View in einer rechtwinkligen Anordnung auf den Sheet zu kopieren.
Ich habe auch nach längerem Suchen hier nichts dergleichen gefunden.

Danke
RAA

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

---

Servus
Sollte vom Ablauf wie "von Hand gehen". Also Ansicht selektieren, kopieren, Zielblatt selektieren einfügen. Der Makrorekorder liefert folgendes (muss ggf noch an deine Randbedingungen angepasst werden):

Code:

---

Sub CATMain()

Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = drawingDocument1.Selection

selection1.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("FRONT VIEW")

selection1.Add drawingView1

selection1.Copy

selection1.Clear

Dim drawingSheet2 As DrawingSheet
Set drawingSheet2 = drawingSheets1.Item("Blatt .2")

selection1.Add drawingSheet2

selection1.Paste

End Sub

---

Hilft das weiter?

Gruß
Bernd

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

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

---

Hallo Bernd,

vielen Dank für Deine schnelle Antwort.
Das der Makrorekorder hier etwas sinnvolles erzeugt,
habe ich nicht vermutet.
Das ist ein guter Ansatz zum Weitermachen.

Danke und schöne Feiertage

Gruß Rainer

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