Discussion Groups

Robot Structural Analysis

Reply
Product Support
Rafal.Gaweda
Posts: 5,207
Registered: ‎04-26-2010

Re: Command VBA Projection Capture of a view

11-20-2012 07:37 AM in reply to: mateaus

Try this with rtd file and if it works fine please send me whole macro + str file

 

Sub robot_donnees()

' ouverture de robot, la session s'appellera robapp
Set Robapp = New RobotApplication

' ce sera une structure de type panneaux
Robapp.Project.New (I_PT_SHELL)
    


Robapp.Project.Open "c:\RG\Fichier structure.rtd"


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)


'Vue mise a jour
mavueRobot.Projection = I_VP_3DXYZ
mavueRobot.Redraw (True)
mavueRobot.ParamsDisplay.SymbolSize = 2 'marche uniquement avec ROBOT 2012
Robapp.Project.ViewMngr.Refresh

Robapp.Project.SaveToFormat I_PSF_RTD, "c:\RG\Fichier structure_1.rtd"

MsgBox "QUITTER APPLICATION ROBOT"

Robapp.Quit I_QO_DISCARD_CHANGES  ' Quitter sans sauvegarde


End Sub

 

 



Rafal Gaweda
Please use plain text.
Distinguished Contributor
mateaus
Posts: 120
Registered: ‎10-10-2011

Re: Command VBA Projection Capture of a view

11-21-2012 12:51 AM in reply to: Rafal.Gaweda

It's not really a solution to remove line of command in the macro because this macro was working before.

 

Since I have done an update of RSA 2012 it's not working  the command is not working anymore.

 

Maybe it's my computer ?

 

Robapp.Quit I_QO_DISCARD_CHANGES
Please use plain text.
Product Support
Rafal.Gaweda
Posts: 5,207
Registered: ‎04-26-2010

Re: Command VBA Projection Capture of a view

11-21-2012 01:47 AM in reply to: mateaus
 

Maybe it's my computer ?

 

Maybe. That's why I asked for complete macoro \ xls file together with str file.

 



Rafal Gaweda
Please use plain text.
Distinguished Contributor
mateaus
Posts: 120
Registered: ‎10-10-2011

Re: Command VBA Projection Capture of a view

11-22-2012 02:59 AM in reply to: Rafal.Gaweda
Sub quit_robot()

Robapp.Quit I_QO_DISCARD_CHANGES  ' Quitter sans sauvegarde

End Sub

 I have made a simple macro which was working before and you don't need the xls file.

Please use plain text.
Distinguished Contributor
mateaus
Posts: 120
Registered: ‎10-10-2011

Re: Command VBA Projection Capture of a view

11-22-2012 08:40 AM in reply to: mateaus

Ok I have reinstalled robot without any sp and it works.

Please use plain text.