---

Hi miteinander,

ich komme gerade mit meinem SW Makro nicht weiter. Ich möchte in ein bereits bestehendes Makro um eine Funktionalität erweitern. Es soll am Ende des Prgrammablaufs ein kleines Bild vom Modell (nur SLDPRT und SLDASM) abgespeichert werden. Diese sollen später mit auf die Stückliste gedruckt werden. Das ist ja erstmal relativ unkompliziert mit:

Call swModel.SaveAs(strImageSavePath)

wobei strImagePath natürlich der Pfad + Dateiname + Endung (.jpg oder .png) ist.

Für den Druck sind die Bilder allerdings suboptimal wegen des Hintergrunds in der Szene. Ein PNG mit transparentem Hintergrund wäre perfekt, aber auch einfach ein rein weißer Hintergrund würde ausreichen.

Was ich also brauche ist folgendes:

Entweder, das per API das Häkchen "Hintergrund entfernen" ansprechen, welches auswählbar ist wenn man als .png speichert --> ist mir bisher nicht gelungen. Nichteinmal über das Setzen der Registry-Einträge:

Set wshShell = CreateObject("WScript.Shell")
        'Damit das Bild nicht nach dem Speichern aufploppt
        wshShell.RegWrite "HKCU\Software\Solidworks\SOLIDWORKS 2015\Export Settings\View JPEG After Saving", "0", "REG_DWORD"
        'Eintrag für "Hintergrund entfernen"
        wshShell.RegWrite "HKCU\Software\Solidworks\SOLIDWORKS 2015\Export Settings\TIF Remove background", "1", "REG_DWORD"
        Set wshShell = Nothing

Wenn das gar nicht möglich ist, wäre die andere Variante, den Hintergrund auf reines Weiß zu setzen. Ich möchte dem User aber nicht seine Einstellung nehmen, also müsste die vorher ausgelesen werden, um sie nach der Bildausgabe zurückzuschreiben.

Hat da jemand eine Idee, wie ich die eine oder andere Variante hinbekommen könnte?

Vielen Dank!

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

---

Hallo azrenner,

hast Du schon mal den Makrorekorder bemüht?

Der liefert bei mir für einen weißen Hintergrund in etwa folgendes

Set swApp = Application.SldWorks
swApp.SetUserPreferenceIntegerValue(swUserPreferenceIntegerValue_e.swSystemColorsViewportBackground, 12632256)
swApp.SetUserPreferenceIntegerValue(swUserPreferenceIntegerValue_e.swColorsBackgroundAppearance, 3)

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

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

---

Systemoptionen-TIF-PNG.png

Hallo,
schaust du dir mein Makro an.

http://ww3.cad.de/foren/ubb/Forum2/HTML/023775.shtml

Außerdem solltest du die Einstellungen laut Bild vornehmen.
Die Option "Hintergrund entfernen" ist per API meines Wissens nicht zu erreichen.
Um transparenten Hintergrund zu erhalten, benötigst du eine CAD-Grafikkarte, ansonsten wird das schwarz.

Grüße, Andi

------------------
Hast du kein Problem?
Such dir eins. ( Und löse es )

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

---

Vielen Dank für die Antworten!

@nahe:
Der Hinweis ist gut. Das werde ich mal versuchen

@Andi
Danke, dein Makro hol ich mir auch mal. Vielleicht kann ich da was rausziehen. Vorher die Einstellungen machen haut aber leider nicht hin. Also zumindest nicht zuverlässig. Es sollen später 70 Konstrukteure nutzen und wenn einer davon irgendwann mal an dem Haken rumfummelt, kommen auf der Stüli "schlechte" Bilder an. Das ist mir etwas zu heikel.

Ich komme jetzt vor Weihnachten sowieso nicht mehr dazu. Ich mache da im Januar weiter und lasse es euch wissen, wenn ich eine Lösung habe. Die Teile ich dann gerne hier. Bis dahin ist jeder weiter Denkanstoß herzlich willkommen 

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