(API) Command VBA Projection Capture of a view

[Anonymous]

Hi,

I have a problem with my macro. The command of projection in 3D doesn't work. My view stay in XZ plane.

robapp.Window.Activate
Set mavueRobot = robapp.Project.ViewMngr.CreateView(1)
mavueRobot.Projection = I_VP_3DXYZ


mavueRobot.Visible = True
mavueRobot.Redraw (True)

I want also make a capture of my model with diagram of results. Have you an example of code for it ?

I would like to get for final result the exemple in attachment.

[Anonymous]

Maybe you can find the solution in my VBA codes.

I send you the file text of the model.

[Rafal.Gaweda]

As far as I can see there are no loads is case 1 and case 3 in model.

For the model on movie I have created sw in case 1 and some loads in casse 3.

Your code works fine.

[Anonymous]

The case 1 and 2 are defined in the text file. The case 3 is defined in VBA. Do you need Excel file to verify ? 

[Rafal.Gaweda]

---

mateaus wrote:

The case 1 and 2 are defined in the text file.

Yes, but loads assigned directly to FEs are no displayed

The case 3 is defined in VBA. Do you need Excel file to verify ? 

Please attach.

[Anonymous]

I would like to have the moment My on the view, I suppose it's a command like 

mavueRobot.ParamsFeMap.CurrentResult = I_VFMRT_COMPLEX_REINFORCE_TOP_MXX

maybe 

mavueRobot.ParamsFeMap.CurrentResult = I_VBMRT_NTM_MY

Sub cree_vues_resultats()

Dim mavueRobot As IRobotView3 ' this is important to set IRobotView3 if you want to make screen capture of this view

Set mavueRobot = robapp.Project.ViewMngr.GetView(1) ' it seems CreateView makes this strange affect, use GetView instead

mavueRobot.ParamsDisplay.Set I_VDA_OTHER_RULER, True


mavueRobot.Visible = True
mavueRobot.Redraw (True)
robapp.Project.ViewMngr.Refresh

' displaying map

mavueRobot.ParamsFeMap.WithDescription = True
mavueRobot.ParamsDisplay.Set I_VDA_SECTIONS_SYMBOLS, False

mavueRobot.ParamsFeMap.CurrentResult = I_VBMRT_NTM_MY

For i = 1 To 26
mavueRobot.Selection.Get(I_OT_CASE).FromText (i) ' selecting case for results display
ecran_capture = "moments My - Cas " & i
mavueRobot.Redraw (0)
robapp.Project.ViewMngr.Refresh

Call screen_capture
Next i


End Sub

[Rafal.Gaweda]

---

@Anonymous wrote:

I would like to have the moment My on the view, I suppose it's a command like 

mavueRobot.ParamsFeMap.CurrentResult = I_VFMRT_COMPLEX_REINFORCE_TOP_MXX

maybe 

mavueRobot.ParamsFeMap.CurrentResult = I_VBMRT_NTM_MY

VFMRT means ViewFEMapResultsType -> this works for  mavueRobot.ParamsFeMap.CurrentResult 

VBMRT means ViewBarMapResultType

so I guesss you look for :

I_VFMRT_COMPLEX_REINFORCE_TOP_MYY    or 

I_VFMRT_COMPLEX_REINFORCE_BOTTOM_MYY     or

I_VFMRT_DETAILED_MOMENT_YY

[Anonymous]

My project is a Portique Plan with bar so I looking for My (Diagrams).

Can you correct my macro ?

Do you know the command to clean all the screen captures ?

[Rafal.Gaweda]

---

mateaus wrote:

My project is a Portique Plan with bar so I looking for My (Diagrams).

---

' displaying My diagram
mavueRobot.ParamsDiagram.Set I_VDRT_NTM_MY, True

[Rafal.Gaweda]

---

mateaus wrote:

Do you know the command to clean all the screen captures ?

---

For i = 1 To robapp.Project.PrintEngine.ScreenCaptures.Count
robapp.Project.PrintEngine.ScreenCaptures.Remove robapp.Project.PrintEngine.ScreenCaptures.Get(1)
Next i

[Anonymous]

Hi this commands don't work

mavueRobot.ParamsDisplay.Set I_VDA_STRUCTURE_NODE_NUMBERS = True
mavueRobot.ParamsDisplay.Set I_VDA_STRUCTURE_BAR_NUMBERS = True

[Rafal.Gaweda]

Try this:

mavueRobot.ParamsDisplay.Set I_VDA_STRUCTURE_NODE_NUMBERS, True
mavueRobot.ParamsDisplay.Set I_VDA_STRUCTURE_BAR_NUMBERS, True
RobApp.Project.ViewMngr.Refresh

[Anonymous]

It doesn't work

error

I would like also change the size of symbols like :

mavueRobot.ParamsDisplay.SymbolSize = 5

This command doesn't change anything.

[Rafal.Gaweda]

I asked you to use this syntax:

mavueRobot.ParamsDisplay.Set I_VDA_STRUCTURE_NODE_NUMBERS, True
mavueRobot.ParamsDisplay.Set I_VDA_STRUCTURE_BAR_NUMBERS, True

[Anonymous]

Ok sorry and for the syze of symbols ?

[Anonymous]

Re SymbolSize; is it correct that this only takes an integer, and that the symbolsize represented in Robot is ten times of this?

E.g. SymbolSize = 2 gives a symbol size in robot of 20. 

Similarly SymbolSize = 1.5 gives 20, and SymbolSize = 1.4 give 10.

[Rafal.Gaweda]

---

sorgjee wrote:

Re SymbolSize; is it correct that this only takes an integer,

and that the symbolsize represented in Robot is ten times of this?E.g. SymbolSize = 2 gives a symbol size in robot of 20. 

Similarly SymbolSize = 1.5 gives 20, and SymbolSize = 1.4 give 10.

Yes it is like that. 1 in API coresponds to 10 in Robot.

[Anonymous]

It doesn't work, can you send me an example ?

'mavueRobot.ParamsDisplay.Set I_VDA_STRUCTURE_NODE_NUMBERS = True
'mavueRobot.ParamsDisplay.Set I_VDA_STRUCTURE_BAR_NUMBERS = True
mavueRobot.ParamsDiagram.Set I_VDRT_NTM_FX, False
mavueRobot.ParamsDiagram.Set I_VDRT_NTM_FZ, False
mavueRobot.ParamsDiagram.Set I_VDRT_NTM_MY, False
'mavueRobot.ParamsDisplay.Set I_VDA_ADVANCED_OFFSETS, True
mavueRobot.ParamsDisplay.Set I_VDA_SECTIONS_SHAPE, True
mavueRobot.ParamsDisplay.Set I_VDA_ADVANCED_ELASTIC_FOUNDATION, True 'afficher sol elastique
'mavueRobot.ParamsDisplay.Set I_VDA_FE_PANEL_THICKNESSES, True
'mavueRobot.ParamsDisplay.Set I_VDA_SECTIONS_COLORS, True


mavueRobot.Redraw (0)
mavueRobot.ParamsDisplay.SymbolSize = 2
robapp.Project.ViewMngr.Refresh

[Rafal.Gaweda]

Check here:

http://forums.autodesk.com/t5/Autodesk-Robot-Structural/Display-bar-length-graphically/td-p/3259208/...

[Anonymous]

Hi,

I'd like to ask in the view this :

Reaction Fx

How can I make it ?

[Rafal.Gaweda]

I'd like to ask in the view this :

Reaction Fx

Unfortunately it is not implemented in API.