---

Hallo zusammen

Ich habe mithilfe von Tips und und euren Vorarbeiten im Forum ein Makro für den DXF/PDF-Export für unsere Verhältnisse erstellt/angepasst.

Für Zeichnungen mit mehreren Blättern wird für jedes Blatt eine DXF-Datei erstellt. Das funktioniert auch einwandfrei - aber nur solange in den Exportoptionen "nur das aktive Blatt exportieren" eingestellt ist.  Ist dort "Alle Blätter in separate Dateien" aktiviert,  wird das Makro zum Schwanzbeisser. Es resultieren nun z.B. bei 7 Blättern 49 DXF-Dateien! (also 7x7).

Lange Rede kurzer Sinn - Ich möchte aus dem Makro heraus die Exportoption "nur das aktive Blatt exportieren" sicherstellen.

Danke für eure Hilfe

Gruss Bean

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

---

Hallo bean

das geht über "SetUserPreferenceIntegerValue"

siehe dazu in der API-Online Hilfe unter "DXF/DWG files, settings"
und dann unter "Multiple sheet drawing - Export active sheet only"

------------------
Grüße
Heinz

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

---

Hallo Heinz

Ich habs hinbekommen. Vielen Dank für den Tipp!
Dazu habe ich gleich noch den Ausgabemassstab auf 1:1 festgelegt

Falls es sonst noch wer gebrauchen kann, hier der Code:

-----------------------------------------------
Dim dxfmassstab As Integer
Dim dxfeinzel As Integer
Set SwApp = CreateObject("SldWorks.Application")
   
dxfmassstab = SwApp.SetUserPreferenceIntegerValue(swUserPreferenceIntegerValue_e.swDxfOutputNoScale, 1)
dxfeinzel = SwApp.SetUserPreferenceIntegerValue(swUserPreferenceIntegerValue_e.swDxfMultiSheetOption, swDxfMultisheet_e.swDxfActiveSheetOnly)
-----------------------------------------------   

Gruss Bean

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