---

Wie kann ich die Optionen beim Speichern unter *.png-Format verändern?

Man kann im Dialog Speichern unter z.B.: bei x=3000 eingeben und kriegt ein schönes hochauflösendes png. Ich möchte dies automatisieren. Ohne Angabe der Option gibt er aber immer ein Bild aus, das der Bildschirmauflösung entspricht.

Unten mein Code:

Public Sub ExportToPng()
  ' Set reference to active document.
  Dim oDoc As Inventor.Document
  Set oDoc = ThisApplication.ActiveDocument

  'Überprüfung ob eine Baugruppe oder ein Einzelteil aktiv ist
  Set oDoc = ThisApplication.ActiveDocument
  If ((oDoc.DocumentType = kPartDocumentObject) Or (oDoc.DocumentType = kAssemblyDocumentObject)) Then
    'Überprüfung OK
  Else
    MsgBox "Eine Einzelteil- oder Baugruppenzeichnung muss aktiv sein"
    Exit Sub
  End If

 
 
  ' Filename generieren
Dim sDisplayName As String
Dim sFullName As String
Dim sSubFolderName As String
Dim sName As String
Dim sMyFolder As String
Dim sMySubFolder As String

sDisplayName = oDoc.DisplayName
    sFullName = oDoc.FullFileName
    sSubFolderName = Left$(sDisplayName, 4)
    sName = Left$(sDisplayName, Len(sDisplayName) - 4) + ".png"
sMyFolder = ""

sFname = sMyFolder + sName
   
  ' Do a 'Save Copy As' to Png format
 
  Call oDoc.SaveAs(sFname, True)
 
  Set oDoc = Nothing
End Sub

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

---

Hallo,

mM nach gar nicht - geht nur bei SavAsBitmap

HTH

------------------
Grüsse, Paul

Inventor-Programmierung, Inventor-Tools und Inventor API-Schulung

Online 3D-Ersatzteilkataloge

Meine Tochter auf Youtube

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

---

Mit Inventor 2012 ist es nun möglich auch bei einem png-export die Auflösung zu setzen:

lImgWidth = 4000
lImgHeight = 3000

Call oView.SaveAsBitmap(sFname, lImgWidth, lImgHeight)

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