Interfejs COM umożliwia odczytanie lub utworzenie zdefiniowanego przez użytkownika spektrum odpowiedzi w programach RFEM i RSTAB.
Do konwersji niezbędne jest uzyskanie interfejsu do modułu (IDynamModule) poprzez interfejs do modelu RFEM (IModel). Ten interfejs jest następnie używany do tworzenia przypadku modułu (IModuleCase). IModuleCase zawiera funkcję GetRSParams, za pomocą której można odczytać parametry spektrum odpowiedzi. Z drugiej strony funkcja SetRSParams może zapisywać nowe dane. Poniższy przykładowy kod wyjaśnia to:
Dim iApp As RFEM5.ApplicationDim iMod As RFEM5.modelUstaw iApp = GetObject(, "RFEM5.Application")
Dim rs_no As Integerrs_no = 1
On Error GoTo e
' Sprawdza licencję RS-COM i blokuje korzystanie z aplikacji przez COM.iApp.LockLicense
Set iMod = iApp.GetActiveModel
' Pobierz interfejs modułuDim iDyn As IDynamModuleUstaw iDyn = iMod.GetModule("DynamPro")
' Pobierz interfejs obudowy modułuDim iDynCase As IModuleCaseUstaw iDynCase = iDyn.GetData ' ustawić parametry spektrum odpowiedziDim rspara As RPSaramsrspara = iDynCase.GetRSParams (rs_no) Dim rs_spec (0 do 10) As RSTableRow Indeks dim As Integerindeks = 0rs_spec (indeks).s = 0,6rs_spec(indeks).T = 0 indeks = 1rs_spec(indeks).s = 1,33rs_spec(indeks).T = 0,153 indeks = 2rs_spec(indeks).s = 1,33rs_spec (indeks).T = 0,4 indeks = 3rs_spec (indeks).s = 1,204rs_spec(indeks).T = 0,443 indeks = 4rs_spec(indeks).s = 1,07rs_spec (indeks).T = 0,5 indeks = 5rs_spec (indeks).s = 0,7rs_spec (indeks).T = 0,761 indeks = 6rs_spec(indeks).s = 0,508rs_spec(indeks).T = 1,051 indeks = 7rs_spec(indeks).s = 0,367rs_spec (indeks).T = 1,453 indeks = 8rs_spec(indeks).s = 0,267rs_spec(indeks).T = 1,995 indeks = 9rs_spec(indeks).s = 0,16rs_spec (indeks).T = 2,584 indeks = 10rs_spec(indeks).s = 0,16rs_spec(indeks).T = 5
rspara.UserDefinedTable = rs_specrspara.Comment = "przetestuj rs"rspara.DefinitionType = ResponseSpectraType.UserDefinedRSrspara.description = "przetestuj rs przez COM"rspara.Number = rs_no iDynCase.SetRSParams rs_no, rspara e: Jeżeli Err.Number <> 0 to MsgBox Err.description, , Err.Source iMod.GetApplication.UnlockLicenseUstaw iMod = NicUstaw iApp = NicSpektrum odpowiedzi zostało utworzone zgodnie z normą EN 1998-1:2010 i obejmuje 11 punktów. W pierwszej kolejności została utworzona 11-elementowa tablica typu RSTableRow, wypełniona danymi, a następnie zapisana pod właściwością UserDefinedTable. Przenoszenie odbywa się za pomocą polecenia SetRSParams.
.png?mw=600&hash=49b6a289915d28aa461360f7308b092631b1446e)
