(API) App section beam and colum.

[Anonymous]

I want creative Líp API section beam and colum.

[Rafal.Gaweda]

I want creative Líp API section beam and colum.

BEAM:

    Set RobApp = New RobotApplication
    Dim RLabel As RobotLabel
    Dim RBSD As RobotBarSectionData
    Dim RBSCRD As RobotBarSectionConcreteData

    Set RLabel = RobApp.Project.Structure.Labels.Create(I_LT_BAR_SECTION, "MY RC BEAM")
    
    Set RBSD = RLabel.Data
    RBSD.ShapeType = I_BSST_CONCR_BEAM
    Set RBSCRD = RBSD.Concrete
    
    RBSCRD.SetValue I_BSCDV_BEAM_B, 0.2
    RBSCRD.SetValue I_BSCDV_BEAM_H, 0.5
    
    
    RobApp.Project.Structure.Labels.Store RLabel

[Rafal.Gaweda]

I want creative Líp API section beam and colum.

COLUMN:

Set RobApp = New RobotApplication
    
    Dim RLabel As RobotLabel
    Dim RBSD As RobotBarSectionData
    Dim RBSCRD As RobotBarSectionConcreteData

        Set RLabel = RobApp.Project.Structure.Labels.Create(I_LT_BAR_SECTION, "MY RC COLUMN")
    
    Set RBSD = RLabel.Data
    RBSD.ShapeType = I_BSST_CONCR_COL_R
    Set RBSCRD = RBSD.Concrete
    
    RBSCRD.SetValue I_BSCDV_COL_B, 0.2
    RBSCRD.SetValue I_BSCDV_COL_H, 0.5
    
    
    RobApp.Project.Structure.Labels.Store RLabel

[Anonymous]

thanks you.

So i want creative section beam and colum rectang same picture.

[Rafal.Gaweda · Accepted solution]

Private Sub CommandButton1_Click()

Dim RobApp As RobotApplication
Set RobApp = New RobotApplication

    Dim RLabel As RobotLabel
        
    Dim RLabelData As RobotBarSectionData
    Dim RLabelNSData As RobotBarSectionNonstdData
    idx = 2
    While Not IsEmpty(Cells(idx, 1).Value)
        Set RLabel = RobApp.Project.Structure.Labels.Create(I_LT_BAR_SECTION, Cells(idx, 1).Value)
        Set RLabelData = RLabel.Data
        Set RLabelNSData = RLabelData.CreateNonstd(0)
    
        RLabelData.Type = I_BST_NS_II
        RLabelData.ShapeType = I_BSST_USER_I_MONOSYM
        RLabelNSData.SetValue I_BSNDV_II_B1, CDbl(Cells(idx, 3).Value) / 1000
        RLabelNSData.SetValue I_BSNDV_II_B2, CDbl(Cells(idx, 4).Value) / 1000
        RLabelNSData.SetValue I_BSNDV_II_TF1, CDbl(Cells(idx, 5).Value) / 1000
        RLabelNSData.SetValue I_BSNDV_II_TF2, CDbl(Cells(idx, 6).Value) / 1000
        RLabelNSData.SetValue I_BSNDV_II_H, CDbl(Cells(idx, 2).Value) / 1000
        RLabelNSData.SetValue I_BSNDV_II_TW, CDbl(Cells(idx, 7).Value) / 1000
    
        RobApp.Project.Structure.Labels.Store RLabel
        idx = idx + 1
    Wend

Set RobApp = Nothing
End Sub

[Anonymous]

But I want beam and colum same picture.

 

[Rafal.Gaweda · Accepted solution]

Private Sub CommandButton1_Click()

Dim RobApp As RobotApplication
Set RobApp = New RobotApplication

    Dim RLabel As RobotLabel
    Dim RBSD As RobotBarSectionData
    Dim RBSCRD As RobotBarSectionConcreteData

    idx = 3
    While Not IsEmpty(Cells(idx, 1).Value)
        Set RLabel = RobApp.Project.Structure.Labels.Create(I_LT_BAR_SECTION, "RC BEAM " + Str(Cells(idx, 1)) + "x" + Str(Cells(idx, 2)))
    
        Set RBSD = RLabel.Data
        RBSD.ShapeType = I_BSST_CONCR_BEAM
        Set RBSCRD = RBSD.Concrete
    
        RBSCRD.SetValue I_BSCDV_BEAM_B, CDbl(Cells(idx, 1).Value) / 100
        RBSCRD.SetValue I_BSCDV_BEAM_H, CDbl(Cells(idx, 2).Value) / 100
    
        RobApp.Project.Structure.Labels.Store RLabel
        idx = idx + 1
    Wend
    
    idx = 3
    While Not IsEmpty(Cells(idx, 4).Value)
        Set RLabel = RobApp.Project.Structure.Labels.Create(I_LT_BAR_SECTION, "RC COLUMN " + Str(Cells(idx, 4)) + "x" + Str(Cells(idx, 5)))
    
        Set RBSD = RLabel.Data
        RBSD.ShapeType = I_BSST_CONCR_COL_R
        Set RBSCRD = RBSD.Concrete
    
        RBSCRD.SetValue I_BSCDV_COL_B, CDbl(Cells(idx, 4).Value) / 100
        RBSCRD.SetValue I_BSCDV_COL_H, CDbl(Cells(idx, 5).Value) / 100
     
        RobApp.Project.Structure.Labels.Store RLabel
        idx = idx + 1
    Wend
    
End Sub

File attached.