topic Re: Compound 2HEB section through API in Robot Structural Analysis Forum

Compound 2HEB section through API

Anonymous — Thu, 26 Mar 2015 12:07:08 GMT

Quick and presumably simple question that I couldn't resolve by myself tough.

Can anybody please provide VBA sintaxis for creating a 2 HEB compound section? 4 lines example should suffice.

Thank you in advance.

Re: Compound 2HEB section through API

Rafal.Gaweda — Thu, 26 Mar 2015 12:58:54 GMT

    Dim RLabel As RobotLabel
        
    Dim RLabelData As RobotBarSectionData
    Dim RLabelComplexData As RobotBarSectionComplexData

    Set RLabel = RobApp.Project.Structure.Labels.Create(I_LT_BAR_SECTION, "my_section")
    Set RLabelData = RLabel.Data
    
    RLabelData.Type = I_BST_COMPLEX
    RLabelData.ShapeType = I_BSST_COMP_2I
  
    Set RLabelComplexData = RLabelData.Members
    RLabelComplexData.Set I_BSCS_I, "EURO", "HEA 100"
    RLabelComplexData.D = 0.5

    
    RobApp.Project.Structure.Labels.Store RLabel

Re: Compound 2HEB section through API

Anonymous — Thu, 26 Mar 2015 13:57:00 GMT

Much appreciated.

Best Regards.