topic Re: Change of local Z axis sense with Robot API in Robot Structural Analysis Forum

Change of local Z axis sense with Robot API

LuisCRodrigues — Wed, 05 Oct 2011 19:16:58 GMT

I want to change the sense of local Z axis of a panel using Robot API.
I've searched the API help and I didn't found any method to do so.
It has a method to define the local X axis but not the Z axis.

Does anyone knows a way to do this?

Thanks in advance.

Re: Change of local Z axis sense with Robot API

Artur.Kosakowski — Thu, 06 Oct 2011 07:12:31 GMT

Try to use the following code which changes the orientation of the Z axis for the panel number 1:

Dim r As New RobotOM.RobotApplication
Dim o As RobotOM.RobotObjObject
o = r.Project.Structure.Objects.Get(1)
o.Main.Attribs.DirZ = 1
o.Update()

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: Change of local Z axis sense with Robot API

LuisCRodrigues — Sun, 09 Oct 2011 19:12:27 GMT

Problem solved!

Thanks for your help.

Re: Change of local Z axis sense with Robot API

Anonymous — Wed, 04 Apr 2018 03:01:17 GMT

Hi Artur,

Could you tell me how the z-axis and other axes (x and y)will be oriented if I use the snippet of code provided by you? I am unable to figure it out?

Thanks in advance!

Re: Change of local Z axis sense with Robot API

Anonymous — Wed, 04 Apr 2018 03:06:07 GMT

Hi,

Actually, I want my local coordinate axes for each panel to be such that the z-axis is always pointing outward.

Re: Change of local Z axis sense with Robot API

Anonymous — Wed, 04 Apr 2018 06:37:56 GMT

also, there is a syntax error with the following line:

o.Update()

Re: Change of local Z axis sense with Robot API

Rafal.Gaweda — Wed, 04 Apr 2018 08:20:04 GMT

Hi @Anonymous

Actually, I want my local coordinate axes for each panel to be such that the z-axis is always pointing outward.

You have to check local Z vector and change it according to your needs

Dim RSel As RobotSelection
    Set RSel = RobApp.Project.Structure.Selections.CreateFull(I_OT_PANEL)
    Dim PanelCol As RobotObjObjectCollection
    Set PanelCol = RobApp.Project.Structure.Objects.GetMany(RSel)

Dim X As RobotGeoPoint3D, Y As RobotGeoPoint3D, Z As RobotGeoPoint3D
    Dim Obj As RobotObjObject
    
    Set X = RobApp.CmpntFactory.Create(I_CT_GEO_POINT_3D)
    Set Y = RobApp.CmpntFactory.Create(I_CT_GEO_POINT_3D)
    Set Z = RobApp.CmpntFactory.Create(I_CT_GEO_POINT_3D)
        
        
        Set Obj = PanelCol.Get(1)
        Obj.Main.Attribs.GetLCS X, Y, Z

Re: Change of local Z axis sense with Robot API

Rafal.Gaweda — Wed, 04 Apr 2018 08:21:42 GMT

Hi @Anonymous

also, there is a syntax error with the following line:

o.Update()

This is C# code

In case of VBA : o.Update

Re: Change of local Z axis sense with Robot API

Rafal.Gaweda — Wed, 04 Apr 2018 08:24:07 GMT

Hi @Anonymous

Hint:

o.Main.Attribs.DirZ = 0 'default (assigned by program) local Z direction

o.Main.Attribs.DirZ = 1 ' opposite to default direction