COM-Schnittstelle in VBA | 4.2 Optimierung eines Rahmens

Fachbeitrag

In Teil 4.1 ging es um die Anbindung des Zusatzmoduls RF-/STAHL EC3 und es wurden bereits die Stäbe und die zu bemessenden Lastkombinationen definiert. In diesem Teil geht es jetzt insbesondere um die Optimierung von Querschnitten im Modul und die Übergabe an RFEM. Auf die Elemente, welche in vorangegangenen Teilen bereits erläutert wurden, wird nicht nochmal eingegangen.

Ablauf der Optimierung

Ziel soll es sein, dass nur Stäbe eines bestimmten Querschnitts in die Bemessung des EC3-Moduls übernommen werden. Für das folgende Beispiel sollen alle Stäbe mit dem Querschnitt "IPE 300" optimiert werden. Die Stabnummern werden als bekannt vorausgesetzt.

Bild 01 - System
Dim iStec3_cs As STEEL_EC3.CROSS_SECTION
count = iStec3Case.moGetCrossSectionsCount
Dim crsc_ec3_idx As Long
crsc_ec3_idx = -1

For i = 0 To count - 1
 iStec3_cs = iStec3Case.moGetCrossSection(i, AT_INDEX)
 If InStr(LCase(iStec3_cs.Description), LCase(crsc_desc)) > 0 Then
  iStec3_cs.Optimization = True
  iStec3Case.moSetCrossSection i, AT_INDEX, iStec3_cs
  crsc_ec3_idx = i
  Exit For
 End If
Next i

' Berechnung durchführen
iStec3Case.moCalculate

Nachdem die Optimierung aktiviert wurde, wird danach die Berechnung des Modulfalls eingeleitet.

Querschnitt an RFEM übergeben

Die Übergabe des Querschnitts erfolgt anhand der Querschnittsnummer. Dazu wird das Interface des RFEM-Querschnitts geholt und dann die neue TextID beziehungsweise der neue Querschnittsbezeichner eingetragen. RFEM erkennt den Bezeichner und holt den entsprechenden Querschnitt aus der Bibliothek nach der Übergabe.

' Querschnitt an RFEM übergeben
' neue Querschittsbezeichnung von RF-STAHL EC3 holen
iStec3_cs = iStec3Case.moGetCrossSection(crsc_ec3_idx, AT_INDEX)

' Querschnittsinterface und -daten von RFEM holen
Dim iCrsc As RFEM5.ICrossSection
Set iCrsc = iModelData.GetCrossSection(crsc_no, AtNo)
Dim crsc As RFEM5.CrossSection
crsc = iCrsc.GetData

' Änderung des Querschnitts zu neuem Querschnitt aus RF-STAHL EC3
crsc.Description = ""
crsc.TextID = iStec3_cs.Description

' Querschnittsdaten übergeben
iModelData.PrepareModification
iCrsc.SetData crsc
iModelData.FinishModification

Zusammenfassung

Gerade für wiederkehrende Strukturen stellt die Optimierungsmöglichkeit in RF-/STAHL EC3 eine große Arbeitserleichterung dar. Wichtig ist, dass die Struktur mit den optimierten Querschnitten über eine Neuberechnung in RFEM geprüft werden muss. Ein iterativer Prozess wäre hier über die COM-Schnittstelle leicht realisierbar. Derart automatisierte Optimierungen können Arbeitsabläufe stark vereinfachen und beschleunigen.

Downloads

Links

Kontakt

Kontakt zu Dlubal

Haben Sie Fragen oder brauchen Sie einen Rat? Kontaktieren Sie uns über unseren kostenlosen E-Mail-, Chat- bzw. Forum-Support oder nutzen Sie die häufig gestellten Fragen (FAQs) rund um die Uhr.

+49 9673 9203 0

info@dlubal.com

RFEM Hauptprogramm
RFEM 5.xx

Basisprogramm

Das FEM-Programm RFEM ermöglicht die schnelle und einfache Modellierung, Berechnung und Bemessung von Tragkonstruktionen mit Stab-, Platten-, Scheiben-, Faltwerk-, Schalen- und Volumen-Elementen aus verschiedenen Materialien.

Erstlizenzpreis
3.540,00 USD
RFEM Stahl- und Aluminiumbau
RF-STAHL EC3 5.xx

Zusatzmodul

Bemessung von Stahlstäben nach EC 3

Erstlizenzpreis
1.480,00 USD
RFEM Sonstige
RF-COM 5.xx

Zusatzmodul

Programmierbare COM-Schnittstelle

Erstlizenzpreis
580,00 USD