子 test_results_member_axis()
Dim iApp As RFEM5.Application
Set iApp = GetObject(, "RFEM5.Application")
iApp.LockLicense
Dim iMod As RFEM5.IModel3
设置 iMod = iApp.GetActiveModel
出错时转到 e
'get 计算接口
Dim iCalc As RFEM5.ICalculation2
设置 iCalc = iMod.GetCalculation
'结果获取接口
将 iRes 变暗为 RFEM5.IResults2
设置 iRes = iCalc.GetResultsInFeNodes(LoadCaseType, 1)
' 获取局部坐标系下的变形
Dim memDefs_L() As RFEM5.MemberDeformations
memDefs_L = iRes.GetMemberDeformations(1, AtNo, LocalMemberAxes)
' 获取全局坐标系中的变形
Dim memDefs_G() As RFEM5.MemberDeformations
memDefs_G = iRes.GetMemberDeformations(1, AtNo, GlobalAxes)
' 获取主坐标系中的变形
Dim memDefs_P() As RFEM5.MemberDeformations
memDefs_P = iRes.GetMemberDeformations(1, AtNo, LocalPrincipalAxes)
e:
如果 Err.Number <> 0 那么 MsgBox Err.description, vbCritical, Err.Source
iMod.GetApplication.UnlockLicense
设置 iMod = 无
末端接头