Pytanie:
Jak mogę przyłożyć obciążenie temperaturą do powierzchni za pomocą interfejsu COM?
Odpowiedź:
Obciążenie temperaturą jest obciążeniem powierzchniowym i dlatego jest stosowane jak wszystkie inne obciążenia powierzchniowe. W tym celu należy najpierw połączyć interfejs z modelem, następnie z obciążeniami, a na końcu ze specjalnym przypadkiem obciążenia:
Sub surface_temp_load_test ()
' pobierz interfejs z otwartego modelu i zablokuj licencję/program
Dim iModel As RFEM5.IModel3
Set iModel = GetObject(, "RFEM5.Model")
iModel.GetApplication.LockLicense
On Error GoTo e
Dim iModelData As RFEM5.IModelData2
Ustaw iModelData = iModel.GetModelData
Dim iLoa As RFEM5.iLoads
Ustaw iLoa = iModel.GetLoads
Dim iLc As RFEM5.ILoadCase
Ustaw iLc = iLoa.GetLoadCase (1, AtNo)
Dim surfLoad As RFEM5.SurfaceLoad
surfLoad.no = 1
surfLoad.Type = TemperatureType
surfLoad.Distribution = UniformType
surfLoad.SurfaceList = "1"
surfLoad.Magnitude1 = 10
surfLoad.Magnitude4 = 40
iLc.PrepareModification
iLc.SetSurfaceLoad surfLoad
iLc.FinishModyfikacja
e: Jeżeli Err.Number 0 to MsgBox Err.description, , Err.Source
Ustaw iModelData = Nic
iModel.GetApplication.UnlockLicense
Ustaw iModel = Nic
End Sub
W przypadku obciążenia stałą temperaturą stosuje się parametry Wielkość 1 i Wielkość 4, gdzie Tc to Wielkość 1, a dT to Wielkość 4. W przypadku przyłożenia obciążenia zmiennego, dla pozostałych punktów narożnych dla Tc stosowane są Wielkość 2 i Wielkość 3, a dla dT wielkość 5 i 6.