Servus zusammen,
ich möchte ein Makro erstellen mit dem ich mein Drawing in verschiedenen Formaten abspeichern kann.
die Ausgangssituation ist flogende:
- die Drawing ist geöffnet,
- jede Drawing besteht mindestens aus Blatt "01" und eiem Detailblatt "Details",
- es können beliebig viele Blätter "02", "03" ... hinzukommen,
- es kann ein Blatt mit dem Namen "Schablone" vorhanden sein,
das Ergebniss:
- von jebem Blatt "01", "02" ... ein tif, dwg, pdf mit dem Speichername - Zeichnungsnummer_Blattname
- vom Blatt "Schablone" ein dxf mit dem Speichername - Zeichnungsnummer/B
Hier der Ansatz
Sub CATMain ()
'--- Zeichnungsnummer aus Textfeld "Text.74" auslesen
Dim Zeichnungsnummer As String
Dim Zeichnung As Document
Set Zeichnung = CATIA.ActiveDocument
Set Blatt = Zeichnung.Sheets.Item("Details")
Set Texte=Blatt.Views.Item("Standard Schriftfeld").texts
For n = 1 to Texte.Count
If Texte.Item(n).Name = "Text.74" then
Zeichnungsnummer = Texte.Item(n).Text
Exit For
End If
next
'--- Blattname ermitteln
Set oDoc = CATIA.ActiveDocument
Set oSheets = oDoc.Sheets
For i = 1 to oSheets.Count
Set Sheet = oSheets.item(i)
Blattname = Sheet.Name
Select Case Blattname
Case "Details"
'--- es soll nichts passieren
Case "Schablone"
' --- die Schablone als dxf
Speichername=Zeichnungsnummer & "/B"
Case Else
' --- alle restlichen Blätter as tif, dwg und pdf
Speichername = Zeichnungsnummer & "_" & Blattname
Dim ZeichnungPath As String
Dim ExportPath As String
ZeichnungPath = Zeichnung.Path
ExportPath = ZeichnungPath & "\" & (Speichername) & ".tif"
Zeichnung.ExportData ExportPath, "tif"
ExportPath = ZeichnungPath & "\" & (Speichername) & ".dwg"
Zeichnung.ExportData ExportPath, "dwg"
ExportPath = ZeichnungPath & "\" & (Speichername) & ".pdf"
Zeichnung.ExportData ExportPath, "pdf"
End Select
next
End Sub
kann mir bei diesem Makro jemand helfen
Gruß und Danke
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Foren auf CAD.de (alle Foren)
| 
