Pytanie:
W jaki sposób można obliczyć tylko określone przypadki obciążeń, kombinacje obciążeń lub kombinacje wyników za pomocą polecenia z interfejsem COM?
Odpowiedź:
Aby obliczyć tylko określone przypadki obciążeń, kombinacje obciążeń lub kombinacje wyników w taki sam sposób, jak przy użyciu polecenia "Obliczenia ..." (patrz Rysunek 01), można użyć metody ObliczeniaWsad interfejsu ICalculation. Do przeniesienia metoda oczekuje pola o typie obciążenia Obciążenie. Obciążenie to obejmuje numer obciążenia i jego typ (na przykład kombinację obciążeń):
Sub batch_test ()
'pobierz interfejs z otwartego modelu i zablokuj licencję/program
Dim iModel Jak w RFEM5.IModel3
Set iModel = GetObject(, "RFEM5.Model")
iModel.GetApplication.LockLicense
On Error GoTo e
'get interfejs do obliczeń
Dim iCalc As ICalculation2
Set iCalc = iModel.GetCalculation
'utwórz tablicę z typami wczytywania
Obciążenia wymiarowe (3) Jako Obciążenie
obciążenia (0) .no = 1
loadings (0) .Type = LoadCaseType
obciążenia (1). nie = 4
loadings (1) .Type = LoadCaseType
obciążenia (2). nie = 4
loadings (2) .Type = LoadCombinationType
'obliczyć jednocześnie wszystkie obciążenia z tablicy
iCalc.CalculateBatchloads
e: Jeżeli Błędny Numer 0 Wtedy MsgBox Błędny Opis,, Błędne Źródło
Ustaw iModelData = Nothing
iModel.GetApplication.UnlockLicense
Ustaw iModel = Nic
End Sub