Macro to launch Marking Menu?

[amarcoc]

Hi.

I need a macro to launch the Marking Menu ("Radial Menu Only" verion, if possible, as the picture attached)

I have tried this, but didn't work:

ThisApplication.CommandManager.ControlDefinitions.Item("AppViewMarkingMenuCmd ").Execute

Any suggestion?

It would be almost same as a right click on window.

Thanks in advance.

[YuhanZhang]

If your purpose is to set the Overflow Menu to Radial Menu Only, currently no API to do this, you can log a wish to IdeaStation. But a workaround is to use the APIs to hide the linear marking menu, below is a VBA code sample:

' Copy below to a module
Sub test()
    Dim oCls As New clsMarkingMenu
    oCls.Init
End Sub

' Copy below to a Class Module, and rename the class module to clsMarkingMenu
Private WithEvents mUserInputEvents As UserInputEvents


Public Sub Init()
    Set mUserInputEvents = ThisApplication.CommandManager.UserInputEvents
    
    Do
        ThisApplication.UserInterfaceManager.DoEvents
    Loop
    
End Sub

Private Sub mUserInputEvents_OnLinearMarkingMenu(ByVal SelectedEntities As ObjectsEnumerator, ByVal SelectionDevice As SelectionDeviceEnum, ByVal LinearMenu As CommandControls, ByVal AdditionalInfo As NameValueMap)
    ' clear the linear marking menu
    Dim oControl As CommandControl
    For Each oControl In LinearMenu
        oControl.Delete
    Next
End Sub

Run the VBA code you can see only the radial menu is displayed. Hope this helps.

[amarcoc]

Hi.

Thanks you for the reply.

On line:

Dim oCls As New clsMarkingMenu

I get error:

Compile error:
User-defined type not defined.

How can this be fixed?

Thanks!