Export Pictures-function (for screenshots) need's a memory

[Anonymous]

When using the "Export" function, and choosing "image" I face the same klick.options-routine every time.

If Inventor would memorize for the session what I do the first time, it would help me a lot.

Usually I create a bunch of Pictures of my Model, just as a preview. When I do, I have to set the folder the picture is supposed to go to. But why do I have to do that  every time?. Please make inventor memorize the path used last, so in case I do 10 or more screenshots from different angles I don't have to select the folder 10 times. (I have a "Pictures Folder, so not everything ends up in the Project-Main folder)

Then, the Option button in the lower right gives me the idea, it only referres to bitmaps (see attatched file)  (in german it sais " Options für Bitmapspeicherung") so I had the idea this box has no value for me when exporting to JPG for instance. Turns out i'm wron onthat, might want to change the name on that..

Now that I found out I can control pixel size, I get much more use out of my screenshots, BUT the value I put in the box has a preset value of "0" wich re-appears every time I do a screenshot.. so I have to open the option, type  both values and close it every time.. doing that 10 times in a row makes you think this function might use a touchup too..

[dg2405]

Das Bildproblem habe ich mit einem Makro gelößt. Es macht ein Bild mit weißem Hintergrund, mit der Auflösung 3840x2160, schaltet in den Modus schattiert mit Kanten und legt das Bild auf den Desktop ab.

Sub png()

Dim oDoc As Document
Set oDoc = ThisApplication.ActiveDocument

Dim oView As View
Set oView = oDoc.Views(1)

Set oCamera = oView.Camera
oCamera.Apply

Dim oTO As TransientObjects
Set oTO = ThisApplication.TransientObjects
Dim oTop As Color
Set oTop = oTO.CreateColor(255, 255, 255)

Dim oBottom As Color
Set oBottom = oTO.CreateColor(255, 255, 255)

Dim dsplmode As String
Dim i As Integer
Dim i2 As String
Dim filename As String
Dim User As String
dsplmode = 0
If ThisApplication.ActiveView.DisplayMode = kShadedRendering Then
dsplmode = 1
ThisApplication.ActiveView.DisplayMode = kShadedWithEdgesRendering
End If
i = 0
For i = 1 To 99 Step 1
If i < 10 Then
i2 = "0" + CStr(i)
End If
If i > 9 Then
i2 = "" + CStr(i)
End If
User = Environ(" USERNAME ")
filename = "C:\Users\" + User + "\Desktop\Bild_" + i2 + ".png"
If Dir(filename) = "" Then Exit For
Next
oCamera.SaveAsBitmap filename, 3840, 2160, oTop, oBottom
If dsplmode = 1 Then
ThisApplication.ActiveView.DisplayMode = kShadedRendering
End If
End Sub

Vielleicht hilft dir das weiter.

[Anonymous]

Hilft SEHR weiter!

Danke danke!!!

...P.S. Hab's noch ein klein wenig Gepimpt, Ideen dazu von Hier

[inv.ideareview]

Thanks for sharing your Idea. We use this forum to guide product development and help users in the best way we can, based on voting. We occasionally merge Ideas or archive old ones to keep the forum working properly - it ensures there is room for people to review new Ideas and that the most relevant and meaningful ones can gain votes.

We’re archiving this Idea because it's been on the board for well over a year and hasn't received many votes from the community. If you want to raise it again and try to gain more support, you're welcome to do so. We’ve found that pictures and mock-ups can help get concepts across and win more votes from other users. If you have questions or see a connection between this Idea and others, let us know.

- Inventor product team (Inv.idea review)