COM Interface in VBA 5: Frame Optimization 1

Technical Article

The fifth and sixth part of this article series describes the optimization of a frame using the RF-/STEEL EC3 add-on module. The fifth part explains how to link the module and get the relevant members. The elements already explained in the previous parts are not described again.

Figure 01 - System

Filtering Relevant Members

The aim is to only transfer the members of a certain cross-section to the RF-/STEEL EC3 design. In the following example, all members with the 'IPE 300' cross-section should be filtered. For this, it is necessary to get all cross-sections from the main program first:

' Create a string of a desired cross-section
Dim crsc_desc As String
crsc_desc = "IPE 300"

' Get all cross-sections from RFEM
Dim crscs() As RFEM5.CrossSection
crscs = iModelData.GetCrossSections

' Lopp over all cross-sections
Dim crsc_no As Long
crsc_no = -1
Dim i As Long
For i = 0 To UBound(crscs, 1)
 ' If the cross-section description is right, save the cross-section number
 If InStr(LCase(crscs(i).Description), LCase(crsc_desc)) > 0 Then
  crsc_no = crscs(i).No
  Exit For
 End If
Next i

' Quit the program if the desired cross-section was not found
If crsc_no = -1 Then
 Err.Raise 513, "Get cross-section number", "No cross-section with "" " & crsc_desc & " "" within its description found!"
End If

The cross-section description should be synchronized as generally as possible. For this, the cross-section description as well as the string to be searched is set to lower-case letters via 'LCase' first, and then the string is searched for in the cross-section description. If no suitable cross-section is found, the cross-section number remains at -1, which can then be requested and acknowledged by an abort.

After this step, the cross-section number is known and the members with this cross-section number can be searched for. Only the member with this cross-section at the member start and the end should be adopted:

' Create string for the list of members and set it to zero
Dim mems_str As String
mems_str = vbanullstr

' Get all members from RFEM
Dim mems() As RFEM5.Member
mems = iModelData.GetMembers

' Lopp over all members
For i = 0 To UBound(mems, 1)
 ' If a member has this cross-section number at the start and the end,
 ' then take this number in the string
 If mems(i).EndCrossSectionNo = crsc_no Then
  If mems(i).EndCrossSectionNo = mems(i).StartCrossSectionNo Then
   mems_str = mems_str & mems(i).No & ","
  End If
 End If
Next i

' Quit the program if no member was found
If mems_str = vbanullstr Then
 Err.Raise 514, "Get members", "No member with cross-section "" " & crsc_desc & " "" found!"
End If

Getting Add-on Module Interface

The link to a module is exactly the same as the link to RFEM or RSTAB. The only difference is that there is no difference between opening an already open instance or opening a new instance, since there is always one already open instance:

' Get interface for the module
Dim iStec3 As STEEL_EC3.Module
Set iStec3 = iModel.GetModule("STEEL_EC3")

Next, all existing module cases are removed:

' Get number of existing module cases
Dim count As Long
count = iStec3.moGetCaseCount

' If there are any cases, always delete the first one in the table
If count > 0 Then
 For i = 0 To count - 1
  iStec3.moDeleteCase i, AT_INDEX
 Next i
End If

Now, you can create the desired case and enter the member to be designed by using the previously created string.

' Create the 'Optimization' module case
Dim iStec3Case As STEEL_EC3.ICase
Set iStec3Case = iStec3.moSetCase(1, "Optimization")

' Set members for design
iStec3Case.moSetMemberList mems_str

Last but not least, you can enter the desired load combinations:

' Set load combinations
Dim iStec3_uls_loads(0 To 2) As STEEL_EC3.ULS_LOAD

iStec3_uls_loads(0).DesignSituation = DS_FUNDAMENTAL
iStec3_uls_loads(0).No = 1
iStec3_uls_loads(0).Type = ILOAD_GROUP

iStec3_uls_loads(1).DesignSituation = DS_FUNDAMENTAL
iStec3_uls_loads(1).No = 2
iStec3_uls_loads(1).Type = ILOAD_GROUP

iStec3_uls_loads(2).DesignSituation = DS_FUNDAMENTAL
iStec3_uls_loads(2).No = 3
iStec3_uls_loads(2).Type = ILOAD_GROUP

iStec3Case.moSetULSLoads iStec3_uls_loads

Summary and Overview

The procedures described in this article can be used for all modules that can be controlled by COM. The source code and the Excel file help so you can better understand the subject matter. In my next article, I would like to delve deeper into this matter and explain the link between the elements in the module and in the main program.



Contact us

Contact to Dlubal

Do you have any questions or need advice?
Contact us or find various suggested solutions and useful tips on our FAQ page.

+49 9673 9203 0