Drawing Sheet background color toggle

[kennyjohnson1]

I like working on the default sheet color in the .idw/.dwg drawing format for Inventor - I feel it is easier on the eyes, especially on a large monitor.

But I often need to send a quick screen grab to share with others and the sepia color does not look good in crops or PowerPoint presentations.  I would like a way to toggle the sheet color between white and the default color without having to print to PDF or similar.  Also, the default tone is not available in the color swatch options, so trying to return it to default after making it white is not easy - it will be darker or lighter if you don't know the RGB numbers.

I would love a Toggle to White on/off option for the sheet I'm working on.

Thank you,

Kenny

[Anonymous]

@kennyjohnson1

There is an add-on available for free for the inventor and it's called Screen Grab, this will help you to take a snapshot in a white background and you don't need to change your current background.

use this it will help you for sure

https://apps.autodesk.com/INVNTOR/en/Detail/Index?id=99891395473620492&appLang=en&os=Win32_64

Thanks

Mahendra

[Genicee]

A couple macros I made (or found I can't remember) to change between white and defualt.

Sub SheetWhite()
Dim odoc As DrawingDocument
Set odoc = ThisApplication.ActiveDocument

Dim oSheetSettings As SheetSettings
Set oSheetSettings = odoc.SheetSettings

'Default Color:
'   HUE: 40
'   SAT: 94
'   LUM: 212
'   RED: 237
'   GREEN: 237
'   BLUE: 214

'Mod Color:
'   HUE: 160
'   SAT: 0
'   LUM: 240
'   RED: 255
'   GREEN: 255
'   BLUE: 255

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

oSheetSettings.SheetColor = oColor
End Sub

Sub SheetDefault()
Dim odoc As DrawingDocument
Set odoc = ThisApplication.ActiveDocument

Dim oSheetSettings As SheetSettings
Set oSheetSettings = odoc.SheetSettings

'Default Color:
'   HUE: 40
'   SAT: 94
'   LUM: 212
'   RED: 237
'   GREEN: 237
'   BLUE: 214

'Mod Color:
'   HUE: 160
'   SAT: 0
'   LUM: 240
'   RED: 255
'   GREEN: 255
'   BLUE: 255

Dim oColor As Color
Set oColor = ThisApplication.TransientObjects.CreateColor(237, 237, 214)

oSheetSettings.SheetColor = oColor
End Sub

[kennyjohnson1]

@Genicee,

Thank you!  A little cut / paste (remove the "Set"(s) and add Sub Main; create a Form to switch between and life is golden (or Sepia) when I want!  Kudos!  Now if Autodesk will just add this to the program, a little toggle at the bottom of the page - Life is good!

Thank you!

Kenny

[pasi.annila]

Export function should have selection to set "transparent" or white backround.

And watermark option would be nice too.