topic Re: API Select panels by their properties in Robot Structural Analysis Forum

API Select panels by their properties

Anonymous — Mon, 29 May 2017 12:46:35 GMT

Hello to everyone!

I am trying to select all the panels in a model with a specified attribute, for example their thickness name using VBA. Unfortunately, I didn't found something similar to what is possibile to do with the GUI.

Moreover, I have not a complete sequence of panels numbers such as 1 to collection.count, but panels numbers are more or less random.

Can someone explain me the procedure or give me an example?

Thank you in advance

Re: API Select panels by their properties

Anonymous — Mon, 29 May 2017 14:29:44 GMT

Ok I found it by myself. 😉

Re: API Select panels by their properties

Artur.Kosakowski — Mon, 29 May 2017 14:56:15 GMT

Hi @Anonymous

Will you share it with others ?

Re: API Select panels by their properties

Anonymous — Mon, 29 May 2017 15:04:08 GMT

Obviously!

Dim Robot As RobotApplication
Set Robot = New RobotApplication
Dim Selection As RobotSelection
Dim SelectionText As String
Set Selection = Robot.Project.Structure.Selections.Get(I_OT_PANEL)
Dim Panel As RobotObjObject
Dim PanelCollection As RobotObjObjectCollection
Dim ii As Long
Dim DesiredPanels As String
    
Selection.FromText "all"
Set PanelCollection = Robot.Project.Structure.Objects.GetMany(Selection)
Selection.Clear
    
For ii = 1 To PanelCollection.Count
        Set Panel =_
        Robot.Project.Structure.Objects.Get(PanelCollection.Get(ii).Number)
        If Panel.GetLabelName(I_LT_PANEL_THICKNESS) = "THK30" Then
             Selection.AddOne Panel.Number
        End If
        Set Panel = Nothing
Next ii

Re: API Select panels by their properties

Artur.Kosakowski — Mon, 29 May 2017 15:06:28 GMT

Thank you

Re: API Select panels by their properties

Anonymous — Mon, 29 May 2017 15:57:44 GMT

You are welcome!