[Archived] MicroStation V8i VBA Forum Setting level overrides and saving settings via vba code with V8i

Setting level overrides and saving settings via vba code with V8i

Adam Otero Mon, Apr 2 2012 1:43 PM

Hello all,

I'm attempting to turn level overrides "on" in the view attributes in V8i and then save the settings using a piece of VBA code. I know there is a setting to save settings upon exit, but would like to save them via the code. Any assistance would be greatly appreciated.

Best Regards,

Adam O.

Offline Bear Mon, Apr 2 2012 1:53 PM
To save settings, you can use vb to send the keyin 'filedesign'.
Cancel
Up 0 Down

Cancel
Adam Otero Mon, Apr 2 2012 2:49 PM in reply to Bear

Thanks Bear!

Is there a keyin to turn the Level Overrides "ON"? I've tried passing the following keyin but I must have the wrong one: .SendKeyin "set refleveloverrides on; selview 1; update 1".

Please clue this rookie in!

Thanks,
Cancel
Up 0 Down

Cancel
Matt Phillips Mon, Apr 2 2012 4:54 PM

Try this line,

view1.DisplaysLevelSymbology = True

Matt
Cancel
Up 0 Down

Cancel
Matt Phillips Mon, Apr 2 2012 4:56 PM in reply to Matt Phillips

I did not add this first prior to posting, sorry

Set view1 = ActiveDesignFile.Views(1)

view1.DisplaysLevelSymbology = True (False)
Cancel
Up 0 Down

Cancel
Adam Otero Mon, Apr 2 2012 5:26 PM in reply to Matt Phillips

Beautiful Matt...Thank you!!!
Cancel
Up 0 Down

Cancel