Display reactions/forces on bars (API) VBA

[kambed91]

Hi,

I would like to make some shortcuts to open "Diagrams for members" window with selected reactions and labels .

When i use this code:

Dim ViewMngr As RobotViewMngr
Dim MyView As IRobotView3
  
Set ViewMngr = RobApp.Project.ViewMngr
Set MyView = ViewMngr.GetView(1)

GraphicalResults = Array(I_VDRT_REACTION_FX, I_VDRT_REACTION_FY, I_VDRT_REACTION_FZ)
For I = 0 To UBound(GraphicalResults)
  MyView.ParamsDiagram.Set GraphicalResults(I), True
Next I
MyView.Redraw 1
ViewMngr.Refresh

Nothing happend but when i open "diagrams for members" window i see the FX FY FZ are selected by api but the "description" mode is not selected. Do you know the code to select this checkbox to true and the way to open the window "Diagrams for members". I make it thousend times a day so i though this app could be usefull.

Thanks for advices.

[Stephane.kapetanovic · Accepted solution]

hi @kambed91 

to add force symbols and descriptions

  GraphicalResults = Array(I_VDRT_REACTION_FX, I_VDRT_REACTION_FY, I_VDRT_REACTION_FZ, _
                           I_VDRT_REACTION_FORCES, _
                           I_VDRT_REACTION_DESC)

Best Regards 

[kambed91]

Hi @Stephane.kapetanovic Thank you for your help. Do you know if there is possible to open the "Diagrams for members" window? I search in hotkeys menu to add some shortcuts but it doesn't here. 

[teixeiranh]

"I make it thousend times a day so i though this app could be usefull."

100% useful. Might look like something simple, but if you repeat that a lot of times, automate it!