---

Hi
Ich suche nach einer Möglichkeit tif-Bilder in SWX auf Knopfdruck zu erstellen und in unterschiedlichen Namen abzuspeichern. Mit einem Makro habe ich es schon versucht, geht aber nicht, weil er immer den gleichen Namen vergibt und die vorige Datei überschreibt...

Danke

Frank

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

---

Hi Frank,
erst einmal herzlich willkommen in unserem Forum.
Schau mal unter folgendem Link nach:
http://solidworks.cad.de/prog_pac.htm
Das Programm ist von Stefan Berlitz (unserem "Guter Geist" Moderator  )
und kann wahrscheinlich mehr, als Ihr braucht!!!

------------------
Viele Grüße aus dem Schwarzwald
gismo

[Diese Nachricht wurde von gismo am 29. August 2002 editiert.]

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

---

Hallo Frank,

willkommen in unsere Gemeinde.

Ich bin gerade an einem ähnlichen Macro bei einem Kunden von uns.

Du kannst das ganze auf jeden Fall über ein Makro steuern. Auch den Dateiname kannst Du anpassen.
Im folgenden mal ein Auszug aus meiner Programmierung:

            ' ******************************************************************************
' Tif - Einstellungen
ok = objSldworks.SetUserPreferenceIntegerValue(swTiffScreenOrPrintCapture, 1) ' 1 = Aufnahme drucken ; 0 = Bildschrimausdruck
ok = objSldworks.SetUserPreferenceIntegerValue(swTiffImageType, swTiffImageBlackAndWhite) ' Bildtyp festlegen
ok = objSldworks.SetUserPreferenceIntegerValue(swTiffCompressionScheme, swTiffUncompressed) ' Komprimierungsschema
ok = objSldworks.SetUserPreferenceIntegerValue(swTiffPrintDPI, 300) ' DPI-Zahl
ok = objSldworks.SetUserPreferenceIntegerValue(swTiffPrintPaperSize, swDwgPaperA4sizeVertical) ' Papiergröße nur DINA4 vertikal
ok = objSldworks.SetUserPreferenceIntegerValue(swTiffPrintScaleFactor, 100) ' Skalierungsfaktor
           
            ' ******************************************************************************
strSavePath_and_Name_with_Extension = strPathName_without_Filename & "\" & strFolderName & "\" & strFileName_without_Extension & " - " & strCurrentSheetName & ".tif"
           
blnSaveErrors = objDrawing.SaveAs2(strSavePath_and_Name_with_Extension, 0, False, True)

Mit der Variablen "strSavePath_and_Name_with_Extension" stelle ich mir den Speichernamen für die Tif - Datei zusammen. Du siehst, die verschiedenen Variablen aus denen ich den Namen zusammensetze. Hier kannst du jetzt Euren Namen eintragen (z. Beispiel strSavePath_and_Name_with_Extension = "c:\Test.tif"). Wichig dabei ist die Dateiendung (tif) und das ein entsprechendes Verzeichnis exisitiert.
Unter dem Punkt tif-Einstellung habe ich unsere Einstellung zum Generieren von Tif-s kopiert, den Punkt musst Du natürlich auch an Eure Einstellungen anpassen.

Ich hoffe Du kommst weiter - es geht auf jeden Fall.

Gruß
Mathias

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

---

Hallo Frank,

Mathias hat dir ja die entscheidenden Befehle genannt, mit denen du dir das Makro selbst stricken kannst. Wenn du doch lieber ein fertiges Programm nehmen möchtest kannst du das von gismo vorgeschlagene PAC4SWX versuchen.

Falls dir das zu mächtig ist kannst du auch ein anderes Tool von mir versuchen, nennt sich ZNR-Tools und kann auf http://solidworks.cad.de/prog_znr_tools.htm runtergeladen werden. Ist sogar Freeware, das heißt du kannst es beliebig lange benutzen ohne eine Registrierung.

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite
http://solidworks.cad.de

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