Ogólne ustawienia siatki ES można modyfikować za pomocą interfejsu IFeMeshSettings. Ten interfejs znajduje się w IModel> IModelData> ICalculation. Rysunek 01 pokazuje, które elementy można zmodyfikować/wyświetlić.
Oto przykład kodu, w którym docelowa długość elementów ES jest ustawiona na 100 mm. Ponadto aktywowany jest podział prętów o takim samym rozmiarze elementu, a minimalny podział jest ustawiony na 3 elementy:
Sub mesh_params ()
Dim iApp As RFEM5.Application
' pobierz interfejs dla danych modeluDim iModel As RFEM5.modelSet iModel = GetObject(, "RFEM5.Model")
On Error GoTo e
Jeśli nie iModel jest niczym, to ' pobranie interfejsu do aplikacji i zablokowanie licencjiUstaw iApp = iModel.GetApplication ()iApp.LockLicense ' pobierz interfejs do danych modeluDim iModdata As RFEM5.IModelData2Ustaw iModdata = iModel.GetModelData ' pobierz interfejs do obliczeńDim iCalc As RFEM5.ICalculation2Ustaw iCalc = iModel.GetCalculation () ' Pobierz interfejs do ustawień siatkiDim iMeshSet As RFEM5.IFeMeshUstawieniaUstaw iMeshSet = iCalc.GetFeMeshUstawienia ' uzyskać ogólne ustawienia siatkiDim meshGen As RFEM5.FeMeshGeneralSettingsmeshGen = iMeshSet.GetGeneral meshGen.ElementLength = 0,1 ' wstawić nowe ogólne ustawienia siatkiiModdata.PrepareModificationiMeshSet.Set General meshGeniModdata.FinishModification ' uzyskać ustawienia pręta siatkiDim meshMem As RFEM5.FeMeshMembersUstawieniameshMem = iMeshSet.GetMembers meshMem.DivideStraightMembers = TruemeshMem.ElementLength = 0,1siatkiMem.MinStraightMemberDivisions = 3 ' wstawić nowe ustawienia pręta siatkiiModdata.PrepareModificationiMeshSet.SetMembers meshMemiModdata.FinishModification iApp.UnlockLicenseEnd If
e: Jeżeli Err.Number <>0 WtedyMsgBox Err.description, , Err.SourceEnd IfiApp.UnlockLicenseUstaw iApp = NicUstaw iModel = Nic
Zakończ sub
Podprogram jest również uzupełniany o procedurę przechwycenia błędu (On Error GoTo e) i podobnie jak w przypadku modyfikacji innych elementów wymagany jest blok Prepare-/FinishModification. Tutaj blok jest tworzony za pomocą interfejsu IFeMeshSettings.