La configuración general de la malla de EF se puede modificar utilizando la interfaz IFeMeshSettings. Esta interfaz se encuentra en IModel> IModelData> ICalculation. La imagen 01 muestra qué elementos se pueden modificar/mostrar.
Aquí hay un ejemplo de código donde la longitud objetivo de los elementos de EF se establece en 100 mm. Además, se activa la división de las barras con el mismo tamaño de elemento y se establece la división mínima en 3 elementos:
Sub mesh_params ()
Dim iApp As RFEM5.Application
' obtener la interfaz para los datos del modeloDim iModel As RFEM5.modelSet iModel = GetObject(, "RFEM5.Model")
On Error GoTo e
Si no es iModel entonces ' obtener interfaz para la aplicación y bloquear la licencia Set iApp = iModel.GetApplication() iApp.LockLicense ' obtener la interfaz para los datos del modeloAtenuar iModdata como RFEM5.IModelData2Establecer iModdata = iModel.GetModelData ' get interface for calculationv Dim iCalc As RFEM5.ICalculation2Establecer iCalc = iModel.GetCalculation () ' obtener interfaz para la configuración de la mallaDim iMeshSet como RFEM5.IFeMeshSettingsEstablecer iMeshSet = iCalc.GetFeMeshSettings ' obtener la configuración general de la mallaDim meshGen As RFEM5.FeMeshGeneralSettingsmeshGen = iMeshSet.GetGeneral meshGen.ElementLength = 0.1 ' establecer una nueva configuración general de la mallaiModdata.PrepareModificationiMeshSet.SetGeneral meshGeniModdata.FinishModification ' obtener la configuración de la barra de la mallaDim meshMem como RFEM5.FeMeshMembersSettingsmeshMem = iMeshSet.GetMembers meshMem.DivideStraightMembers = TruemeshMem.ElementLength = 0.1meshMem.MinStraightMemberDivisions = 3 ' establecer una nueva configuración de barra de mallaiModdata.PrepareModificationiMeshSet.SetMembers meshMemiModdata.FinishModification iApp.UnlockLicenseEnd If
e: Si Err.Number <> 0 entonces MsgBox Err.description`` Err.SourceEnd IfiApp.UnlockLicense Establecer iApp = Nada iModel.GetApplication.UnlockLicense
End Sub
La subrutina también se completa con una rutina de intercepción de errores (On Error GoTo e) y se requiere el bloque Prepare-/FinishModification como en el caso de modificar otros elementos. Aquí, el bloque se crea a través de la interfaz IFeMeshSettings.