子 mesh_params()
Dim iApp As RFEM5.Application
' 获取模型数据接口
Dim iModel As RFEM5.model
Set iModel = GetObject(, "RFEM5.Model")
出错时转到 e
如果不是 iModel 那么
' 获取申请和加锁许可证接口
设置 iApp = iModel.GetApplication()
iApp.LockLicense
' 获取模型数据接口
Dim iModdata As RFEM5.IModelData2
设置 iModdata = iModel.GetModelData
' 获取计算接口
Dim iCalc As RFEM5.ICalculation2
设置 iCalc = iModel.GetCalculation()
' 获取网格设置接口
Dim iMeshSet As RFEM5.IFeMeshSettings
设置 iMeshSet = iCalc.GetFeMeshSettings
' 获取一般网格设置
Dim meshGen As RFEM5.FeMeshGeneralSettings
meshGen = iMeshSet.GetGeneral
meshGen.ElementLength = 0.1
' 设置新的网格设置
iModdata.PrepareModification
iMeshSet.SetGeneral meshGen
iModdata.FinishModification
' 获取网格杆件设置
Dim meshMem As RFEM5.FeMeshMembersSettings
meshMem = iMeshSet.GetMembers
meshMem.DivideStraightMembers = True
meshMem.ElementLength = 0.1
meshMem.MinStraightMemberDivisions = 3
' 设置新的网格杆件
iModdata.PrepareModification
iMeshSet.SetMembers meshMem
iModdata.FinishModification
iApp.UnlockLicense
End If
e: 如果 Err.Number <> 0 则
MsgBox Err.description, , Err.Source
End If
iApp.UnlockLicense
设置 iApp = 无
设置 iModel = 无
末端接头