---

Hallo Zusammen,

als erstes: "Ich kann kein VBA"
So, jetzt ist es raus ... 

Dennoch hab ich mir das Macro von aus Stefans Makro-Tauschbörse
zum Erstellen von DWG's heruntergeladen und so modifiziert, das
der Dateiname ohne "- Blatt1" erscheint und alles in einem vorgegebenen
Verzeichnis als *.tif gespeichert wird.

Wie Stefan schon im Makro beschrieben hat, werden beim Erstellen eines
*.tif's die vorhandenen Option übernommen und nicht angepasst.

Ich habe versucht die Einstellung des Blattformates mit in das Makro
einzubinden, bin aber kläglich gescheitert und muss nun mit gesenktem
Kopf das Feld verlassen.

Wie kann ich das Makro so modifizieren, das das *.tif immer im Format
A3 erzeugt wird? Mag mir jemand weiterhelfen?

Vielen Dank
Dat Nordlicht
*seltenaktivaberimmernochda*

------------------
"Mächtiges Badabum"

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

---

Hallo Beere

ich würd es mal mit
"SetUserPreferenceIntegerValue" und "swTiffPrintPaperSize" und "swDwgPaperA3size" versuchen
also

z.B.:
(kommt aber drauf an in welcher Variable das SolidWorks Objekt gespeichert ist)
swapp.SetUserPreferenceIntegerValue(swTiffPrintPaperSize, swDwgPaperA3size)

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

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

---

Hallo Beere,

im Prinzip ist es so wie Heinz es beschrieben hat. Da ich aber auch meine Probleme mit VBA hab, schick ich mal das ganze Makro welches ich benutze. Es speichert Tif in A3, Dxf und PDF und schreibt die Revision mit an den Dateinamen.

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Dim saveFileName As String
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditSketch

boolstatus = swApp.SetUserPreferenceIntegerValue(swUserPreferenceIntegerValue_e.swTiffPrintPaperSize, swDwgPaperSizes_e.swDwgPaperA3size)

If (swApp.ActiveDoc.GetPathName = "") Then          'Abfrage ob Name vergeben wurde
    MsgBox ("Bitte zuerst Zeichnung speichern!")
    Exit Sub
End If

Revision = Part.GetCustomInfoValue("", "Revision")
saveFileName = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) & "-R" & Revision & ".pdf"  ' Speichern als PDF-Datei
Part.SaveAs2 saveFileName, 0, True, False
saveFileName = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) & "-R" & Revision & ".tif"  ' Speichern als Tif-Datei
Part.SaveAs2 saveFileName, 0, True, False
saveFileName = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) & "-R" & Revision & ".dxf"  ' Speichern als Dxf-Datei
Part.SaveAs2 saveFileName, 0, True, False
Set swApp = Application.SldWorks
End Sub

------------------
mfg Olli

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

---

Hallo Heinz
Hallo Olli,

mit der Zeile von Heinz bin ich nicht klargekommen, obwohl sie mir
bekannt war. Eingefügt in das Makro von Stefan hat sie allerdings kein
zufriedenstellendes Ergebnis erbracht.

@Olli
Da ich gerade Urlaub habe kann ich das Makro noch nicht ausproboieren, denke
aber das es genau das ist, was ich gesucht habe. Nächsten Montage werde ich
das Makro sofort einbauen.

Mein Danke gilt euch beiden und Unities sind überwiesen  

Dat Nordlich
*imUrlaubabernichtweg*

------------------
"Mächtiges Badabum"

[Diese Nachricht wurde von Beere am 15. Okt. 2013 editiert.]

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