Wireframe / Enhanced View on Startup

[dungbtl]

Im in 2020/21

It starts in Enhanced mode,

Any time in the beginning I do the Shift + F9 to go into wireframe it doesnt.
Shift F9 is Toggle View.

I'd either have to go to view > wireframe or right-click the mouse
and select wireframe (have it assigned there)

What and where would I put in some code upon startup to:
Start in Enhanced got wireframe and back to Enhanced.

Would this trigger it where I wouldnt notice and when I hit Shift F9
it will do the Wireframe?

Kinda sickening & getting old doing the above.



** Also, is it me or mousing over to edit the dialogs prevent input in 2020?
Like for font, & size etc? Always have to keep the pointer away each time.
Not in popup dialogs. Pretty much in property/tool bars.

Thanks all!

[shelbym]

You could use a macro for this and then assign it to your key combo instead of the default way:

Here is some code to get you started:

Sub ToggleView()
    If ActiveDocument Is Nothing Then MsgBox "Please open a document.": Exit Sub

    If ActiveWindow.ActiveView.Type = cdrEnhancedView Then
        ActiveWindow.ActiveView.Type = cdrWireframeView
    Else
        ActiveWindow.ActiveView.Type = cdrEnhancedView
    End If
End Sub

Happy coding,

-Shelby

[dungbtl]

Shel

Cool beans, something basic to tinker with.
I put it at the top of globalmacros if this matters.

I know it's cheezie but this works for now:
as I trip over me own feet here. Also need it for opened docs, not just new.

'  For a new document
Private Sub GlobalMacroStorage_DocumentNew(ByVal Doc As Document, ByVal FromTemplate As Boolean, ByVal Template As String, ByVal IncludeGraphics As Boolean)
If ActiveDocument Is Nothing Then MsgBox "Please open a document.": Exit Sub

    If ActiveWindow.ActiveView.Type = cdrWireframeView Then
        ActiveWindow.ActiveView.Type = cdrEnhancedView

    Else
        ActiveWindow.ActiveView.Type = cdrWireframeView
    End If
    
    ActiveWindow.ActiveView.Type = cdrEnhancedView
End Sub
'  For an Opened document
Private Sub GlobalMacroStorage_DocumentOpen(ByVal Doc As Document, ByVal FileName As String)
If ActiveDocument Is Nothing Then MsgBox "Please open a document.": Exit Sub

    If ActiveWindow.ActiveView.Type = cdrWireframeView Then
        ActiveWindow.ActiveView.Type = cdrEnhancedView

    Else
        ActiveWindow.ActiveView.Type = cdrWireframeView
    End If
    
    ActiveWindow.ActiveView.Type = cdrEnhancedView
End Sub

So upon a new document it does whatever it does and starts off Enhanced.
If I fill an object and do the Shft+F9 Toggle view it goes Wireframe

Lol... i tried all combos and got that, if there's a simpler method, do tell.

I had to add the last line after End If to get it to go back into Enhanced, kept going wire. Oh well... this stuff isnt my bag o' tea.

Thanx!