---

Hallo zusammen,

ich exportiere mit untenstehendem Code PDFs und DXFs an verschiedene Speicherorte.

Ich möchte bei mehreren Blättern gerne alle in einem PDF haben, aber die Blätter die als "nicht zählen" oder "nicht drucken" (z.B. Brennschablonen) markiert sind ignorieren.

Gibt es dazu eine einfache Möglichkeit?

'Addins für PDF- und DXF-Export aktivieren
PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
DXFAddIn = ThisApplication.ApplicationAddIns.ItemById("{C24E3AC4-122E-11D5-8E91-0010B541CD80}")

'Strings für PDF / DXF Export erstellen
oContext = ThisApplication.TransientObjects.CreateTranslationContext
oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
oOptions = ThisApplication.TransientObjects.CreateNameValueMap
oDataMedium = ThisApplication.TransientObjects.CreateDataMedium
oDataMediumDXF = ThisApplication.TransientObjects.CreateDataMedium
oDataMedium2 = ThisApplication.TransientObjects.CreateDataMedium
oDataMediumDXF2 = ThisApplication.TransientObjects.CreateDataMedium

'Einstellungen für PDF
oOptions.Value("All_Color_AS_Black") = 1
oOptions.Value("Remove_Line_Weights") = 0
oOptions.Value("Vector_Resolution") = 400
oOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintAllSheets

[...] nach Einstellungen abgeschnitten

Danke!

------------------
FÌr jede Fehlermeldung gibt es eine Lösung

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

---

Hallo

Der PDF-Export mit dem Translator Addin ignoriert die auf nicht Drucken gestellten Blätter. Die auf nicht Zählen gestellten Blätter werden mit gedruckt. Wenn beides nicht gedruckt werden soll, geh vorher in einer Schleife durch alle Blätter und stell die mit nicht Zählen zusätzlich auch auf nicht Drucken und mach es hinterher genauso rückgängig.

------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

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

---

Hier erstmal herzlichen Dank! Da haben wir selbst nicht aufgepasst und das nicht drucken nicht gespeichert.

Allerdings hier noch die Anschlussfrage wie ist es bei DXF-Dateien? Gibt es da auch eine Möglichkeit das so einzustellen im Export?

------------------
FÌr jede Fehlermeldung gibt es eine Lösung

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

---

Hallo

Aber besser so eine Ursache mit einfacher Lösung.

Bei DXF gibt es in der ini-Datei eine Option "ALL_SHEETS=No", aber dann muss du selbst jedes Blatt als einzelnen Auftrag zum Translator schicken. Inventor macht das intern meiner Meinung genauso. Es kommt so oder so je Blatt eine DXF.

------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

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

---

Zitat:

---

Original erstellt von rkauskh:
Hallo

  Aber besser so eine Ursache mit einfacher Lösung.

Bei DXF gibt es in der ini-Datei eine Option "ALL_SHEETS=No", aber dann muss du selbst jedes Blatt als einzelnen Auftrag zum Translator schicken. Inventor macht das intern meiner Meinung genauso. Es kommt so oder so je Blatt eine DXF.

---

Okay wenn das so ist lassen wir es einfach und löschen die überzähligen DXF halt manuell auch damit kommen wir klar  Ist eh nur der Einkäufer der sich dann aufregt weil er auf einmal Brennschablonen bekommt   

------------------
FÌr jede Fehlermeldung gibt es eine Lösung

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

---

Zitat:

---

Original erstellt von chense:

Okay wenn das so ist lassen wir es einfach und löschen die überzähligen DXF halt manuell auch damit kommen wir klar     Ist eh nur der Einkäufer der sich dann aufregt weil er auf einmal Brennschablonen bekommt         

---

Hier vielleicht noch nachträglich die Info wir haben es hinbekommen - Warum der Code nicht strukturiert dargestellt wird keine Ahnung :)

Code:

---

Dim osheetname As String

If DXFAddIn.HasSaveCopyAsOptions(oDrawDoc, oContext, oDXFOptions)
oDXFOptions.Value("DwgVersion") = 25
    Dim strIniFile As String
    strIniFile = "J:\Software\Autodesk\Inventor Makros\Automatisierung_Freigabe\NotAllSheetsIni\AI2012_to_DXF2004_NotAllSheets.ini"
    oDXFOptions.Value("Export_Acad_IniFile") = strIniFile
End If

'Abfrage und Erstellung DXF
If Left(Dateiname,3) = "ZUS" Or Left(Dateiname,3) = "Zus" Or Left(Dateiname,2) = "ÜB" Or Left(Dateiname,2) = "Üb"
Else
For Each oSheet In oSheets
oSheet.Activate
If oSheet.ExcludeFromPrinting = False
osheetname = oSheet.Name
osheetname = Replace(osheetname,":","-")
If revCount = 0
DXFName = Pfad & Znr & "-" & Dateiname & "-" & osheetname & "-" & Datum2 & ".dxf"
DXFName2 = Pfad2 & Znr & "-" & Dateiname & "-" & osheetname & "-" & Datum2 & ".dxf"
Else
DXFName = Pfad & Znr & revStand & "-" & Dateiname & "-" & osheetname & "-" & Datum2 & ".dxf"
DXFName2 = Pfad2 & Znr & revStand & "-" & Dateiname & "-" & osheetname & "-" & Datum2 & ".dxf"
End If
oDataMediumDXF.FileName = DXFName
oDataMediumDXF2.FileName = DXFName2
If Not xhigherref = "j"
If Not System.IO.File.Exists(DXFName)
DXFAddIn.SaveCopyAs(oDrawDoc, oContext, oDXFOptions, oDataMediumDXF)
DXFAddIn.SaveCopyAs(oDrawDoc, oContext, oDXFOptions, oDataMediumDXF2)
Else
MessageBox.Show("DXF existiert bereits - Kopie des Originals wird in Datenaustausch verschoben")
System.IO.File.Copy(DXFName,DXFName2)
End If
Else
DXFAddIn.SaveCopyAs(oDrawDoc, oContext, oDXFOptions, oDataMediumDXF)
DXFAddIn.SaveCopyAs(oDrawDoc, oContext, oDXFOptions, oDataMediumDXF2)
End If
End If
Next
End If

---

------------------
FÌr jede Fehlermeldung gibt es eine Lösung

[Diese Nachricht wurde von chense am 06. Apr. 2023 editiert.]

[Diese Nachricht wurde von chense am 06. Apr. 2023 editiert.]

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