Set SheetColor

[Anonymous]

Good morning,

I am working on setting my sheetcolor in my drawing document to White, and having complications.

Here's what I've got:

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

ThisApplication.ActiveDocument.SheetSettings.SheetColor = oColor

I've tried other things like setting it to "White" and such, but no luck.

Any help?

Thanks,

Kyle

[Curtis_Waguespack]

Hi kyle.akers,

Have a look at the code posted at this link:

http://forums.autodesk.com/t5/Inventor-Customization/change-color-of-drawing-sheet/m-p/1207650#M1123...

Note that you'll want to use these values for white:

Set oColor = ThisApplication.TransientObjects.CreateColor(255, 255, 255)  'white

I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com

[GosponZ]

Format:HTML Format
Version:1.0
StartHTML: 165
EndHTML: 3367
StartFragment: 314
EndFragment: 3335
StartSelection: 314
EndSelection: 314

SyntaxEditor Code Snippet

DimoDocAsDrawingDocument
  oDoc=ThisApplication.ActiveDocument

 DimoSheetSettingsAsSheetSettings
  oSheetSettings=oDoc.SheetSettings

 DimoColorAsColor
 oColor=ThisApplication.TransientObjects.CreateColor(250, 250, 250)

 oSheetSettings.SheetColor=oColor