Call 3D Grips command

[fakeru]

Is it possible to call 3D Grips command with VBA?

[bobvdd]

I cannot directly find the command associated with 3D Grip (I am not even sure that there is any exposed through the API)

But why don't you use the "Direct Edit" command instead which does what 3D Grip does and much more.

Public Sub RunDirectEditCommand()
    ' Get the CommandManager object.
    Dim oCommandMgr As CommandManager
    Set oCommandMgr = ThisApplication.CommandManager
    
    ' Get control definition for the Direct edit command.
    Dim oControlDef As ControlDefinition
    Set oControlDef = oCommandMgr.ControlDefinitions.Item("PartDirectCmd")
                                                                                   
    ' Execute the command.
    Call oControlDef.Execute
End Sub

Cheers

Bob

[fakeru]

I need this in context of medium to large assemblies and then the direct edit commands are very slow... 

[bobvdd]

If you open the part document in a new window, performance should not mtter that much but it might hamper a more seamless flow of the app.

Bob

[fakeru]

You are right, but such the meaning of the addin I'm working on that it must call the command in assembly enviroment. And usually it will happen in large assemblies.