API Accessing Member Type Definitions in Robot Structural Analysis with Excel VBA: Seeking Guidance

[vidas.zaltauskas]

Hello,

I am seeking assistance in extracting specific information related to "Member type definitions" for selected members in Robot Structural Analysis. This involves properties such as member buckling length, buckling coefficient, lateral buckling, and more. If there is anyone with experience in this area who could provide guidance, your assistance would be greatly appreciated.

Thank you for your help.

[Stephane.kapetanovic]

hi @vidas.zaltauskas 

You can find some examples of settings here

[API] Define Membertype Adjoin Params 

[API] Steel Code Params Buckling Diagram 

Steel design report 

Dynamic Member type creation with API 

you can get help through the approved solutions on the forum, for example by searching for API. 

Note that you also have files, getting started guide, Robot API SteelDesign.pdf and example delivered with the SDK located in the installation subdirectory ...\SDK.

You can also find information such as the API tutorial, videos (1, 2) and useful addins already developed and the app store.

Best Regards

[vidas.zaltauskas]

Thank you for all the information @Stephane.kapetanovic . I've been through numerous tutorials and forum threads on this topic, and they all seem to focus on assigning parameters to elements. What I really need is to retrieve these parameters. I'm still quite new to VBA, and I can only manage to get 'Bar' parameters like name and length. I would greatly appreciate it if you could provide a brief example code on how to obtain the 'SteelCodeTypeDefinition' parameter. Thank you very much.

[Stephane.kapetanovic · Accepted solution]

Hi @vidas.zaltauskas

I'll answer you more briefly. 

The parameters are saved in labels not in bars as you can see in the examples. From the bars, you can apply or read them with the set and get label methods.

Best regards 

Dim Bars As RobotBarServer, Bar As RobotBar
Set Bars = RobApp.Project.Structure.Bars
Set Bar = Bars.Get(1)
Lenght = Bar.Length
  
Dim Label As RobotLabel, LabelData As IRDimMembDefData, mParams As IRDimMembParamsE32
Set Label = Bar.GetLabel(I_LT_MEMBER_TYPE)
Set LabelData = Label.Data
Set mParams = LabelData.CodeParams
With mParams
  LfY = Lenght * .BuckLengthCoeffY
  Lfz = Lenght * .BuckLengthCoeffZ
End With

[vidas.zaltauskas]

I've successfully achieved my goal, and I owe it all to your help. Thank you so much! By the way, could you kindly share the names of the parameters in the attached image? I'm having a bit of trouble finding them.

[vidas.zaltauskas]

Never mind, I managed to do it 🙂