[EN] FAQ 004337 | W jaki sposób można obliczyć tylko określone przypadki obciążeń, kombinacje obciążeń lub kombinacje wyników ...

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