965x
004184
2019-11-01

Pytanie

Jak ustawić parametry obliczeń za pomocą interfejsu COM?


Odpowiedź:
Poniższy kod pokazuje, w jaki sposób uzyskać różne parametry obliczeń za pomocą interfejsu COM. Pokazuje również, w jaki sposób określić ustawienie dezaktywacji sztywności na ścinanie:

' pobierz interfejs modelu
Ustaw iApp = iModel.GetApplication ()
iApp.LockLicense
    
' pobierz interfejs obliczeniowy
Dim iCalc As RFEM5.ICalculation2
Set iCalc = iModel.GetCalculation
    
' - zdobądź teorię zginania powierzchniowego
Dim calc_bend As RFEM5.BendingTheoryType
calc_bend = iCalc.GetBending Theory
    
' pobierz ustawienia dla nieliniowości
Dim calc_nl As RFEM5.Nieliniowości obliczeń
calc_nl = iCalc.GetNonlinearities
    
' uzyskać ustawienia dokładności i tolerancji
Dim calc_prec As RFEM5.PrecisionAndTolerance
calc_prec = iCalc.GetPrecisionAndTolerance
    
' pobierz ustawienia obliczeń
Dim calc_sets As RFEM5.CalculationSettings
calc_sets = iCalc.GetSettings
    
' uzyskaj opcje obliczeń
Dim calc_opts As RFEM5.CalculationOptions
calc_opts = iCalc.GetOptions
    
' ustawiono Sztywność na ścinanie na fałsz
calc_opts.ShearStiffness = False
iCalc.SetOptions calc_opts

W sekcji Pobrane znajduje się makro EXCEL.