| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für CATIA & Co. |
| | |
 | KISTERS 3DViewStation: 3D-Visualisierung für After Sales, Service und Ersatzteile, eine Pressemitteilung
|
|
Autor
|
Thema: Makro (Ändern des Formats der Zeichnung) (991 mal gelesen)
|
n4426
Mitglied
CAx-Administration, Technischer Zeichner (Maschinen- und Anlagentechnik)
   Beiträge: 65
Registriert: 17.01.2003 Windows 7 Prof. 64-Bit
CATIA V5-6 R2014 SP04
|
erstellt am: 06. Jun. 2004 22:20  <-- editieren / zitieren -->   Unities abgeben:          
Hallo Zusammen, kann mir einer von euch sagen, ob es geht, das man das Format der Zeichnung per Makro ändern kann? (A0, A1, A2, A3 oder A4 - Hochformat) würde mich über antworten freun. mfg n4426 ------------------
MfG N4426 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
michaelroesch
Mitglied
Systemadministrator SAP-Basis & CAD
Beiträge: 39
Registriert: 20.02.2002
|
erstellt am: 18. Jun. 2004 15:01 <-- editieren / zitieren --> Unities abgeben: Nur für n4426 
Hallo, Dim drawingDocument1 As Variant
Set drawingDocument1 = CATIA.ActiveDocument
Dim drawingSheets1 As Variant
Set drawingSheets1 = drawingDocument1.Sheets
Dim drawingSheet1 As Variant
Set drawingSheet1 = drawingSheets1.ActiveSheet 'genormte formate
drawingSheet1.PaperSize = catPaperA1 'für nicht genormte Formate
drawingSheet1.PaperSize = catPaperUser
drawingSheet1.SetPaperHeight 1000
drawingSheet1.SetPaperWidth 300 Gruß Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
n4426
Mitglied
CAx-Administration, Technischer Zeichner (Maschinen- und Anlagentechnik)
Beiträge: 65
Registriert: 17.01.2003 Windows 7 Prof. 64-Bit
CATIA V5-6 R2014 SP04
|
erstellt am: 18. Jun. 2004 19:37 <-- editieren / zitieren --> Unities abgeben:
|
n4426
Mitglied
CAx-Administration, Technischer Zeichner (Maschinen- und Anlagentechnik)
Beiträge: 65
Registriert: 17.01.2003
|
erstellt am: 18. Jun. 2004 21:05 <-- editieren / zitieren --> Unities abgeben:
Hat sich erledigt. Geht mit dem Befehl (drawingSheet1.Orientation = catPaperLandscape), den man einfach Beispiel: Dim drawingDocument1 As Variant
Set drawingDocument1 = CATIA.ActiveDocument
Dim drawingSheets1 As Variant
Set drawingSheets1 = drawingDocument1.Sheets
Dim drawingSheet1 As Variant
Set drawingSheet1 = drawingSheets1.ActiveSheet 'genormte formate
drawingSheet1.PaperSize = catPaperA1
drawingSheet1.Orientation = catPaperLandscape ------------------
MfG N4426 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Stoffel
Mitglied
Student
Beiträge: 322
Registriert: 09.10.2002 R6/V2010
|
erstellt am: 25. Jun. 2004 11:31 <-- editieren / zitieren --> Unities abgeben: Nur für n4426
|
Foren auf CAD.de (alle Foren)
| 
