[EN] FAQ 004622 | Wie kann ich über die COM-Schnittstelle in DYNAM Pro ein Antwortspektrum eingeben bzw. auslesen?

Erfahren Sie bequem, wie mit Dlubal-Programmen gearbeitet wird.

  • Dlubal Software | Videos

Video

Erste Schritte mit RFEM

Erste Schritte

Wir geben Ihnen Hinweise und Tipps, die Ihnen den Einstieg in das Basisprogramm RFEM erleichtern.

Please accept marketing-cookies to watch this video.

Frage

Wie kann ich über die COM-Schnittstelle in DYNAM Pro ein Antwortspektrum eingeben bzw. auslesen?

Antwort

Mit Hilfe der COM Schnittstelle kann sowohl in RSTAB als auch RFEM ein benutzerdefiniertes Antwortspektrum ausgelesen oder auch angelegt werden.

Für die Umsetzung muss zunächst über das Interface zum RFEM Modell (IModel) das Interface zum Modul geholt werden (IDynamModul). Über dieses Interface wird dann das zum Modulfall angelegt (IModuleCase). IModuleCase beinhaltet die Funktion GetRSParams mit deren Hilfe die Parameter für das Antwortspektrum zunächst ausgelesen werden können. Die Funktion SetRSParams als Gegenspieler kann die neuen Daten schreiben. Im Folgenden ein Beispielcode zur Verdeutlichung:

Dim iApp As RFEM5.Application
Dim iMod As RFEM5.model
Set iApp = GetObject(, "RFEM5.Application")

Dim rs_no As Integer
rs_no = 1

On Error GoTo e

    ' Checks RS-COM license and locks the application for using by COM.
    iApp.LockLicense

    Set iMod = iApp.GetActiveModel

    '  get module interface
    Dim iDyn As IDynamModule
    Set iDyn = iMod.GetModule("DynamPro")

    '  get module case interface
    Dim iDynCase As IModuleCase
    Set iDynCase = iDyn.GetData
    
    '  set response spectra parameters
    Dim rspara As RSParams
    rspara = iDynCase.GetRSParams(rs_no)
    
    Dim rs_spec(0 To 10) As RSTableRow
    
    Dim index As Integer
    index = 0
    rs_spec(index).s = 0.6
    rs_spec(index).T = 0
    
    index = 1
    rs_spec(index).s = 1.33
    rs_spec(index).T = 0.153
    
    index = 2
    rs_spec(index).s = 1.33
    rs_spec(index).T = 0.4
    
    index = 3
    rs_spec(index).s = 1.204
    rs_spec(index).T = 0.443
    
    index = 4
    rs_spec(index).s = 1.07
    rs_spec(index).T = 0.5
    
    index = 5
    rs_spec(index).s = 0.7
    rs_spec(index).T = 0.761
    
    index = 6
    rs_spec(index).s = 0.508
    rs_spec(index).T = 1.051
    
    index = 7
    rs_spec(index).s = 0.367
    rs_spec(index).T = 1.453
    
    index = 8
    rs_spec(index).s = 0.267
    rs_spec(index).T = 1.995
    
    index = 9
    rs_spec(index).s = 0.16
    rs_spec(index).T = 2.584
    
    index = 10
    rs_spec(index).s = 0.16
    rs_spec(index).T = 5
    

    rspara.UserDefinedTable = rs_spec
    rspara.Comment = "test rs"
    rspara.DefinitionType = ResponseSpectraType.UserDefinedRS
    rspara.description = "test rs via COM"
    rspara.Number = rs_no
    
    iDynCase.SetRSParams rs_no, rspara
    
e:  If Err.Number <> 0 Then MsgBox Err.description, , Err.Source
    
    iMod.GetApplication.UnlockLicense
    Set iMod = Nothing
    Set iApp = Nothing

Das Antwortspektrum wurde in Anlehnung an EN 1998-1:2010 erstellt und hat 11 Punkte. Es wurde zuerst ein Array von Typ RSTableRow mit 11 Elementen angelegt, mit Daten gefüllt und dann unter der Eigenschaft UserDefinedTable abgelegt. Die Übertragung erfolg mit dem Befehl SetRSParams.

Schlüsselwörter

Dlubal FAQ Antwortspektrum COM RSParams RSTableRow DynamPro Häufig gestellte Frage FAQ zu Dlubal Frage und Antwort zu Dlubal

Links

Schreiben Sie einen Kommentar...

Schreiben Sie einen Kommentar...

  • Aufrufe 114x
  • Aktualisiert 19. Februar 2021

Kontakt

Kontakt zu Dlubal

Haben Sie Fragen zu unseren Produkten oder brauchen Sie einen Rat zur Auswahl der Produkte zur Bearbeitung Ihrer Projekte? 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

Event Invitation

30. Dresdner Brückenbausymposium (DBBS)

Seminar/Konferenz 8. März 2021 - 9. März 2021

CSA S16: 19 Stahlbemessung in RFEM

Webinar 10. März 2021 14:00 - 15:00 EST

Online Training | German

Eurocode 5 | Holztragwerke nach DIN EN 1995-1-1

Online-Schulung 15. März 2021 8:30 - 12:30 CET

Online Training | German

Eurocode 3 | Stahltragwerke nach DIN EN 1993-1-1

Online-Schulung 16. März 2021 8:30 - 12:30 CET

Online-Schulung | Englisch

Eurocode 5 | Holzbau nach EN 1995-1-1

Online-Schulung 17. März 2021 8:30 - 12:30 CET

Online-Schulung | Englisch

Eurocode 3 | Stahlbau nach DIN EN 1993-1-1

Online-Schulung 18. März 2021 8:30 - 12:30 CET

Plattenbeulen und Schalenbeulen mit Dlubal-Software

Plattenbeulen und Schalenbeulen mit Dlubal-Software

Webinar 23. März 2021 14:00 - 14:45 CET

Online-Schulung | Englisch

RFEM | Dynamik | USA

Online-Schulung 23. März 2021 13:00 - 16:00 EST

Platten- und Schalenbeulen mit Dlubal -Software

Platten- und Schalenbeulen mit Dlubal -Software

Webinar 30. März 2021 14:00 - 14:45

Online Training | German

RSTAB | Grundlagen

Online-Schulung 15. April 2021 8:30 - 12:30

Online Training | German

RFEM | Grundlagen

Online-Schulung 16. April 2021 8:30 - 12:30

RFEM für Studenten | USA

Online-Schulung 21. April 2021 13:00 - 16:00 EST

Online Training | German

Eurocode 3 | Stahltragwerke nach DIN EN 1993-1-1

Online-Schulung 4. Mai 2021 8:30 - 12:30

Online Training | German

RFEM | Baudynamik und Erdbebenbemessung nach EC 8

Online-Schulung 5. Mai 2021 8:30 - 12:30

RFEM | Holz | USA

Online-Schulung 5. Mai 2021 13:00 - 16:00 EST

Online-Schulung | Englisch

Eurocode 3 | Stahlbau nach DIN EN 1993-1-1

Online-Schulung 6. Mai 2021 8:30 - 12:30

Online Training | German

Eurocode 2 | Stahlbetontragwerke nach DIN EN 1992-1-1

Online-Schulung 7. Mai 2021 8:30 - 12:30

Online-Schulung | Englisch

Eurocode 2 | Betonbauten nach DIN EN 1992-1-1

Online-Schulung 11. Mai 2021 8:30 - 12:30

Online Training | German

Eurocode 5 | Holztragwerke nach DIN EN 1995-1-1

Online-Schulung 18. Mai 2021 8:30 - 12:30

Online-Schulung | Englisch

Eurocode 5 | Holzbau nach DIN EN 1995-1-1

Online-Schulung 20. Mai 2021 8:30 - 12:30

RFEM | Strukturdynamik und Erdbebenbemessung nach EC 8

Online-Schulung 2. Juni 2021 8:30 - 12:30

Online -Schulung | Englisch

RFEM | Grundlagen | USA

Online-Schulung 17. Juni 2021 9:00 - 13:00 EST

Event Invitation

40. Deutscher Stahlbautag

Seminar/Konferenz 29. September 2022 - 30. September 2022

Die häufigsten Anwenderfehler mit RFEM und RSTAB

Die häufigsten Anwenderfehler mit RFEM und RSTAB

Webinar 4. Februar 2021 14:00 - 15:00 CET