topic Re: Command VBA Projection Capture of a view in Robot Structural Analysis Forum

(API) Command VBA Projection Capture of a view

Anonymous — Thu, 15 Oct 2015 07:42:46 GMT

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.

Re: Command VBA Projection Capture of a view

Artur.Kosakowski — Wed, 12 Oct 2011 10:31:23 GMT

Seems like one line is missing:

mavueRobot.Projection = I_VP_3DXYZ

robapp.Project.ViewMngr.Refresh

mavueRobot.Visible = True

If you find your post answered press the Accept as Solution button please. This will help other users to find solutions much faster. Thank you.

Re: Command VBA Projection Capture of a view

Anonymous — Wed, 12 Oct 2011 17:22:17 GMT

Ok but it's not working.

See my attachment

Re: Command VBA Projection Capture of a view

Artur.Kosakowski — Thu, 13 Oct 2011 07:01:54 GMT

It seems like you missed the attachment.

Re: Command VBA Projection Capture of a view

Anonymous — Thu, 13 Oct 2011 08:01:19 GMT

Attachments

Re: Command VBA Projection Capture of a view

Rafal.Gaweda — Thu, 13 Oct 2011 08:08:41 GMT

Take a look at attached movie

Re: Command VBA Projection Capture of a view

Rafal.Gaweda — Thu, 13 Oct 2011 09:11:51 GMT

It seems it is related to your computer graphics card (and maybe also 64 bit Robot).

On one of our computers I have the same bahavior.Switching between views (several times), refreshing them manualy etc refreshes view on this viewport.

Re: Command VBA Projection Capture of a view

Anonymous — Thu, 13 Oct 2011 09:24:11 GMT

The excel file has been created 5 years ago, I don't think this is a problem related to 64 bit Robot.

Re: Command VBA Projection Capture of a view

Rafal.Gaweda — Thu, 13 Oct 2011 09:28:16 GMT

@Anonymous wrote:

The excel file has been created 5 years ago,

No, it was created 09.2001 🙂

Re: Command VBA Projection Capture of a view

Rafal.Gaweda — Thu, 21 May 2020 13:50:16 GMT

Update to "your" macro to set map display on view and to make screen capture

Read comments in code below

Public Sub CreeVueRM()
' définition d'une vue

robapp.Interactive = True
robapp.Visible = True
robapp.Window.Activate

robapp.Project.CalcEngine.Calculate ' calculate model

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.Selection.Get(I_OT_CASE).FromText ("3") ' selecting case for results display
mavueRobot.Redraw (True)

mavueRobot.Projection = I_VP_3DXYZ

' displaying map
mavueRobot.ParamsFeMap.CurrentResult = I_VFMRT_GLOBAL_DISPLACEMENT_Z

mavueRobot.Visible = True
mavueRobot.Redraw (True)

robapp.Project.ViewMngr.Refresh

' making screen capture
Dim ScPar As RobotViewScreenCaptureParams
Set ScPar = robapp.CmpntFactory.Create(I_CT_VIEW_SCREEN_CAPTURE_PARAMS)

ScPar.Name = "My screen capture"
ScPar.UpdateType = I_SCUT_UPDATED_UPON_PRINTING
mavueRobot.MakeScreenCapture ScPar

robapp.Project.PrintEngine.SaveReportToOrganizer

End Sub

Re: Command VBA Projection Capture of a view

Anonymous — Thu, 13 Oct 2011 14:42:23 GMT

Ok thanks a lot,

I would like lo have only the screen capture in a file like .jpeg.

In Robot, I can only make a world file and the picture is in a bad quality.

Can we save the capture in a better quality.

I would like to make a macro saving many capture in C:Autodesk.

Is it possible ?

Re: Command VBA Projection Capture of a view

Rafal.Gaweda — Thu, 13 Oct 2011 15:29:23 GMT

yes it is possible :

to create png screen capture with highest reolution

ScPar.UpdateType = I_SCUT_CURRENT_VIEW
ScPar.Resolution = I_VSCR_4096

then you have to export printout to word or save as rtf

or copy directly screen shot to clipboard

ScPar.UpdateType = I_SCUT_COPY_TO_CLIPBOARD
ScPar.Resolution = I_VSCR_4096

then paste clipboard contents in Word

Re: Command VBA Projection Capture of a view

Anonymous — Thu, 13 Oct 2011 17:25:15 GMT

Ok but I would like the macro export herself the printout in a folder like C:Autodesk/output.

Re: Command VBA Projection Capture of a view

Rafal.Gaweda — Thu, 21 May 2020 13:50:51 GMT

Dim ScPar As RobotViewScreenCaptureParams
Set ScPar = robapp.CmpntFactory.Create(I_CT_VIEW_SCREEN_CAPTURE_PARAMS)

ScPar.Name = "My screen capture"
ScPar.UpdateType = I_SCUT_CURRENT_VIEW
ScPar.Resolution = I_VSCR_4096
mavueRobot.MakeScreenCapture ScPar

robapp.Project.PrintEngine.AddScToReport "My screen capture"

robapp.Project.PrintEngine.SaveReportToOrganizer

' saving printout \ report to file

robapp.Project.PrintEngine.SaveReportToFile "c:\Autodesk\output\rr.rtf", I_OFF_RTF_JPEG

'or directly opening printout in Word

robapp.Project.PrintEngine.ExternalPreviewReport EPF_MS_OFFICE

Re: Command VBA Projection Capture of a view

Anonymous — Fri, 14 Oct 2011 07:50:10 GMT

Ok thank you. There is just one command who don't work.

ScPar.Resolution = I_VSCR_4096

I didn't find it in the ROS manual V9.0.

Is there a mistake or is it no more available ?

Re: Command VBA Projection Capture of a view

Rafal.Gaweda — Fri, 14 Oct 2011 07:54:11 GMT

This command is from ARSA 2012, ROS 12

Re: Command VBA Projection Capture of a view

Anonymous — Fri, 14 Oct 2011 08:08:45 GMT

I have Autodesk Robot Structural Analysis Professional 2011.

Does it work with this software ?

Re: Command VBA Projection Capture of a view

Rafal.Gaweda — Fri, 14 Oct 2011 08:22:45 GMT

You already know it does not.

It is implemented in ARSA 2012, Robot Object Modeler 12

Re: Command VBA Projection Capture of a view

Anonymous — Fri, 14 Oct 2011 09:14:55 GMT

I only find the manual of ROS V9. Do you have the manual of ROS V11 ?

Re: Command VBA Projection Capture of a view

Rafal.Gaweda — Fri, 14 Oct 2011 09:42:46 GMT

it should be there:

"C:\Program Files\Common Files\Autodesk Shared\Structural\Help\2011\robotom.pdf"