---

Hallo Zusammen,

hat von euch jemand ein Makro, das einen Zeichnungsrahmen in eine CATDrawing einfüget, der in einer anderen CATDrawing gespeichert ist.

Ich würde mich über eure antworten freun.

------------------
MfG

N4426

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

---

Hallo n4426,

hier das Makro.

Language="VBSCRIPT"
+++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub CATMain()

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim drawingDocument1 As Document
Set drawingDocument1 = documents1.NewFrom("D:\DATEN\Catia\Drawing_Vorlage.CATDrawing")

Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets

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

drawingSheet1.Activate

End Sub
+++++++++++++++++++++++++++++++++++++++++++++++++++

MFG
Filippo

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

---

Hallo Filippo,

kann es sein, das man nach dem Ausführen des Macros nicht mehr in der Arbeitsansicht ist sondern in der Hintergrundansicht. Muss ich da nochwas im Macro ergänzen, damit er wieder in die Arbeitsansicht wechselt?

Hast du vieleicht noch ein Macro, mit dem man den Zeichnungskopf ausfüllen kann?

------------------
MfG

N4426

[Diese Nachricht wurde von n4426 am 19. Mai. 2004 editiert.]

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

---

wir haben das in unserem büro, aufgrund fehlender makro-programmier-kenntnissen so geregelt, daß wir für jede zeichnungsgröße (A0-A4) eine "formatvorlage", inkl. eigenem schriftkopf gebastelt haben. in diesem drawing sind auch unsere standardeigenschaften wie z.b. bei der bemaßung mit abgespeichert.
wenn wir nun eine neue zeichnung machen wollen, laden wir das richtige format mit "neu aus" und leiten darauf unsere parts ab.

leider müssen wir schriftart, sowie "benutzerstandardeigenschaften" jedes mal neu einstellen. zumindest dafür wäre ein makro gefragt...

------------------
Gruß,
Cooba

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