---

Hallo,
ich habe ein Drawing aus einem Part in CATIA abgeleitet. Jetzt möchte ich einen Bereich von diesem 2-D Ansicht ausschneiden (z.B einem Rechteck der Abmaß 20x20 mm, in dem eine Schraube sich streckt), und dann diese als PDF oder als JPG Format abspreichern. Kennt jemand irgend einen Befehl von Macro, der diese Aufgabe machen kann.

VG

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

---

Servus
Willkommen im Forum. Bitte Systeminfo ausfüllen.
Wie würdest du das manuell machen?
Für die Erstellung eines Ausbruchs liefert dir der Makrorekorder solch einen Code:

Code:

---

Sub CATMain()

Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = CATIA.ActiveDocument

Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets

Dim drawingSheet1 As DrawingSheet
Set drawingSheet1 = drawingSheets1.ActiveSheet

Dim drawingViews1 As DrawingViews
Set drawingViews1 = drawingSheet1.Views

Dim drawingView1 As DrawingView
Set drawingView1 = drawingViews1.ActiveView

Dim drawingViewGenerativeBehavior1 As DrawingViewGenerativeBehavior
Set drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior

Set drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior

Dim arrayOfVariantOfDouble1(9)
arrayOfVariantOfDouble1(0) = -16.945633
arrayOfVariantOfDouble1(1) = 12.119488
arrayOfVariantOfDouble1(2) = -28.14183
arrayOfVariantOfDouble1(3) = 12.119488
arrayOfVariantOfDouble1(4) = -28.14183
arrayOfVariantOfDouble1(5) = -15.002697
arrayOfVariantOfDouble1(6) = -16.945633
arrayOfVariantOfDouble1(7) = -15.002697
arrayOfVariantOfDouble1(8) = -16.945633
arrayOfVariantOfDouble1(9) = 12.119488
Dim arrayOfVariantOfDouble2(8)
arrayOfVariantOfDouble2(0) = 0#
arrayOfVariantOfDouble2(1) = 0#
arrayOfVariantOfDouble2(2) = 0#
arrayOfVariantOfDouble2(3) = 1#
arrayOfVariantOfDouble2(4) = -0#
arrayOfVariantOfDouble2(5) = 0#
arrayOfVariantOfDouble2(6) = 0#
arrayOfVariantOfDouble2(7) = 0#
arrayOfVariantOfDouble2(8) = -1#
Dim arrayOfVariantOfDouble3(8)
arrayOfVariantOfDouble3(0) = 0#
arrayOfVariantOfDouble3(1) = 43.544765
arrayOfVariantOfDouble3(2) = 0#
arrayOfVariantOfDouble3(3) = 1#
arrayOfVariantOfDouble3(4) = -0#
arrayOfVariantOfDouble3(5) = 0#
arrayOfVariantOfDouble3(6) = 0#
arrayOfVariantOfDouble3(7) = 0#
arrayOfVariantOfDouble3(8) = -1#
Set drawingViewGenerativeBehavior1Variant = drawingViewGenerativeBehavior1
drawingViewGenerativeBehavior1Variant.DefineBreakout arrayOfVariantOfDouble1, arrayOfVariantOfDouble2, arrayOfVariantOfDouble3

Set drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior

drawingViewGenerativeBehavior1.ForceUpdate

End Sub

---

Gruß
Bernd

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

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