Discussion Groups

Robot Structural Analysis

Reply
Active Contributor
samuel.pereira
Posts: 28
Registered: ‎01-02-2012

API Bracket definition

87 Views, 2 Replies
06-22-2012 03:01 AM

Hello,

 

I'm trying to create a bracket and assign to a bar using Robot steel API.

It’s possible provide a complete example to "Visual Basic -Microsoft Excel" for a “Bar” type?

 

Thanks

Please use plain text.
Product Support
Rafal.Gaweda
Posts: 5,048
Registered: ‎04-26-2010

Re: Bracket definition

06-22-2012 05:11 AM in reply to: samuel.pereira

Example

 

Dim RobApp As RobotApplication
Set RobApp = New RobotApplication


    Dim RBracket As RobotLabel
    Dim BracketData As RobotBarEndBracketData
    
    Set RBracket = RobApp.Project.Structure.Labels.Create(I_LT_BAREND_BRACKET, "Bracket")
    Set BracketData = RBracket.Data
    BracketData.Type = I_BEBT_PLATES
    BracketData.SetValue I_BEBDV_HEIGHT, 0.4, 0
    BracketData.SetValue I_BEBDV_LENGTH, 0.6, 0
    BracketData.SetValue I_BEBDV_THICKNESS_1, 0.01, 0
    BracketData.SetValue I_BEBDV_THICKNESS_2, 0.02, 0
    BracketData.SetValue I_BEBDV_WIDTH, 0.3, 0
    
    RobApp.Project.Structure.Labels.Store RBracket
    
    bar_number = 1
    
    Dim RBar As RobotBar
    Set RBar = RobApp.Project.Structure.Bars.Get(bar_number)
    
    Dim BarE As RobotBarEnd
    
    Set BarE = RBar.Start
    BarE.SetLabel I_LT_BAREND_BRACKET, "Bracket"
    
    Set BarE = RBar.End
    BarE.SetLabel I_LT_BAREND_BRACKET, "Bracket"

 



Rafal Gaweda
Please use plain text.
Active Contributor
samuel.pereira
Posts: 28
Registered: ‎01-02-2012

Re: Bracket definition

06-22-2012 07:25 AM in reply to: Rafal.Gaweda

Thank you!

Please use plain text.