SolidWorks MakroMania - Modelle als Bitmap speichern

SolidWorks MakroMania ist eine Beispielsammlung einiger Makros, die Ihnen eine Vorstellung davon geben soll, was man auch schon mit Makros in SolidWorks alles anstellen kann. Der Code des Makros sollte so gut dokumentiert sein, dass Sie damit ohne weitere Anleitung verstehen, was gemacht wird.

< voriges
MakroMania
Übersicht


nächstes >

Nummer 16
Modelle als Bitmap speichern

Download
ZIP, 1 KB

Ich übernehme keine Haftung für die korrekte Funktion der Routinen oder irgendwelcher Schäden bei der Anwendung dieser Beispiele. Das gesamte Risiko trägt der Benutzer selbst. - Sorry, muss sein.

' **********************************************************************
' * Makro speichert aktuelles Dokument als Bitmap mit vorgegebener
' * Höhe und Breite. Insbesondere gedacht für Teile und Baugruppen
' * um größere Bitmaps als Bildschirmauflösung zu bekommen.
' *
' * ACHTUNG: funktioniert erst ab SolidWorks 2001Plus, Pfade und
' * Höhe/Breite müssen unten angepaßt werden
' *
' * 06.06.2002 Stefan Berlitz (stefan.berlitz@solidworks.cad.de)
' * http://solidworks.cad.de
' * http://swtools.cad.de
' *
' **********************************************************************

Dim swApp As Object
Dim ModelDoc2 As Object
Dim filenameIn As String
Dim widthIn As Long
Dim heightIn As Long

Sub main()

    Set swApp = CreateObject("SldWorks.Application")
    Set ModelDoc2 = swApp.ActiveDoc

    ' erstmal den Namen inklusive Pfad, muss gültig sein
    filenameIn = "f:\temp\test.bmp"
    ' dann gewünschte Breite und Höhe der Bitmap
    widthIn = 400
    heightIn = 400

    ' ausführen und Rückgabewert überprüfen oder
    ' einfach ignorieren
    If ModelDoc2.SaveBMP(filenameIn, widthIn, heightIn) Then
        MsgBox filenameIn & " erfolgreich gespeichert"
    Else
        MsgBox "Hupps, ein Fehler beim speichern"
    End If

End Sub

Zurück zum Seitenanfang

hr.gif (4491 Byte)

counter Kritik und Anregungen bitte an Stefan Berlitz. Letzte Änderung dieser Seite am Donnerstag, 01. Februar 2007 17:40