(API) Bar type

[t.sautierr]

Has someone already implemened a spreasheet or a little API to define and update easely the bar types in big models? 

If not, I think I will try to code that.

Thx

[Rafal.Gaweda · Accepted solution]

Example for steel bar

    Dim LabelCol As RobotLabelCollection
    
    Set LabelCol = RobApp.Project.Structure.Labels.GetMany(I_LT_MEMBER_TYPE)
    
    Dim RLabel As IRobotLabel
    Dim RdimLabelData  As IRDimMembDefData
    
    Dim i As Integer
    i = 1
    
    While Cells(9 + i, 1) <> ""
        Set RLabel = LabelCol.Get(i)
        Set RdimLabelData = RLabel.Data
        RdimLabelData.SetDeflYZRelLimit I_DMDDDT_DEFL_Y, CDbl(Cells(9 + i, 2))
        RdimLabelData.SetDeflYZRelLimit I_DMDDDT_DEFL_Z, CDbl(Cells(9 + i, 3))
        RdimLabelData.SetDisplXYRelLimit I_DMDDDT_DISP_X, CDbl(Cells(9 + i, 4))
        RdimLabelData.SetDisplXYRelLimit I_DMDDDT_DISP_Y, CDbl(Cells(9 + i, 5))
        RobApp.Project.Structure.Labels.Store RLabel
        i = i + 1
        Set RLabel = Nothing
    Wend