Espectro de resposta no DYNAM Pro através da interface COM

A interface COM permite ler ou criar um espectro de resposta definido pelo utilizador no RFEM e no RSTAB.

Para a conversão, é necessário obter a interface para o módulo (IDynamModule) através da interface para o modelo RFEM (IModel). Esta interface é então utilizada para criar um caso de módulo (IModuleCase). O IModuleCase inclui a função GetRSParams que pode ser utilizada para ler os parâmetros para o espectro de resposta. Por outro lado, a função SetRSParams pode escrever os novos dados. O seguinte código de exemplo esclarece isso:

1. código.vb#

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

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

1. Set iMod = iApp.GetActiveModel

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

1. ' get module case interface
2. Dim iDynCase As IModuleCase
3. Set iDynCase = iDyn.GetData
5. ' set response spectra parameters
6. Dim rspara As RSParams
7. rspara = iDynCase.GetRSParams(rs_no)
9. Dim rs_spec(0 To 10) As RSTableRow
11. Dim index As Integer
12. index = 0
13. rs_spec(index).s = 0.6
14. rs_spec(index).T = 0
16. index = 1
17. rs_spec(index).s = 1.33
18. rs_spec(index).T = 0.153
20. index = 2
21. rs_spec(index).s = 1.33
22. rs_spec(index).T = 0.4
24. index = 3
25. rs_spec(index).s = 1.204
26. rs_spec(index).T = 0.443
28. index = 4
29. rs_spec(index).s = 1.07
30. rs_spec(index).T = 0.5
32. index = 5
33. rs_spec(index).s = 0.7
34. rs_spec(index).T = 0.761
36. index = 6
37. rs_spec(index).s = 0.508
38. rs_spec(index).T = 1.051
40. index = 7
41. rs_spec(index).s = 0.367
42. rs_spec(index).T = 1.453
44. index = 8
45. rs_spec(index).s = 0.267
46. rs_spec(index).T = 1.995
48. index = 9
49. rs_spec(index).s = 0.16
50. rs_spec(index).T = 2.584
52. index = 10
53. rs_spec(index).s = 0.16
54. rs_spec(index).T = 5

1. rspara.UserDefinedTable = rs_spec
2. rspara.Comment = "test rs"
3. rspara.DefinitionType = ResponseSpectraType.UserDefinedRS
4. rspara.description = "test rs via COM"
5. rspara.Number = rs_no
7. iDynCase.SetRSParams rs_no, rspara

e: If Err.Number <> 0 Then MsgBox Err.Description, , Err.Source

1. iMod.GetApplication.UnlockLicense
2. Set iMod = Nothing
3. Set iApp = Nothing

O espectro de resposta foi criado de acordo com a EN 1998‑1: 2010 e tem 11 pontos. Primeiro, foi criada uma matriz do tipo RSTableRow com 11 elementos, preenchida com dados e depois guardada na propriedade UserDefinedTable. A transferência é realizada utilizando o comando SetRSParams.

FAQ

[PT] FAQ 004622 | Como é que posso introduzir ou ler um espectro de resposta através da interface COM no DYNAM ...

Espectro de resposta definido pelo utilizador através do RF-COM