Domanda:
Come posso calcolare solo casi di carico specifici, combinazioni di carico o combinazioni di risultati utilizzando un comando con l'interfaccia COM?
Risposta:
Per calcolare solo casi di carico specifici, combinazioni di carico o combinazioni di risultati nello stesso modo del comando "Da calcolare ..." (vedi Figura 01), è possibile utilizzare il metodo CalculateBatch dell'interfaccia ICalculation. Per il trasferimento, il metodo prevede un campo con il tipo di carico di Caricamento. Questo carico include il numero del carico e il tipo (ad esempio, una combinazione di carico):
Sub batch_test ()
' get interface from the opened model and lock the licence/program
Dim iModel As RFEM5.IModel3
Set iModel = GetObject(, "RFEM5.Model")
iModel.GetApplication.LockLicense
On Error GoTo e
'ottieni l'interfaccia per il calcolo
Dim iCalc come ICalculation2
Imposta iCalc = iModel.GetCalculation
'crea un array con i tipi di caricamento
Dim loadings (3) As Loading
carichi (0) .no = 1
loadings (0) .Type = LoadCaseType
carichi (1) .no = 4
loadings (1) .Type = LoadCaseType
carichi (2) .no = 4
loadings (2) .Type = LoadCombinationType
'calcola tutti i carichi dall'array in una volta
iCalc.CalculateBatchcarichi
e: If Err.Number 0 Then MsgBox Err.description,, Err.Source
Imposta iModelData = Nothing
iModel.GetApplication.UnlockLicense
Imposta iModel = Nothing
End Sub
![Risultati di RSTAB 9 - momento di ingobbamento Momega [kNm]](/it/webimage/047737/3730153/MTsec.png?mw=350&hash=40c7b896b7ecb6c898b763109dcec0b2a330f9f4)
![Risultati di RSTAB 9 - momento torcente secondario MTsec [kNm]](/it/webimage/047736/3730151/MTsec.png?mw=350&hash=40c7b896b7ecb6c898b763109dcec0b2a330f9f4)
![Risultati di RSTAB 9 - momento torcente primario MTpri [kNm]](/it/webimage/047735/3730144/MTpri.png?mw=350&hash=2363903e71565c33f1897548cd3f9920f0bc53ba)
![Risultati di RSTAB 9 - momento torio MT [kNm]](/it/webimage/047734/3730141/MT.png?mw=350&hash=74333d59da248f9107e5ddaca75765b9666580c3)
.png?mw=512&hash=4e74affa9ad0c7b703151c5085ac9b8e59171c23)
.jpg?mw=350&hash=8f312d6c75a747d88bf9d0f5b1038595900b96c1)
.png?mw=600&hash=49b6a289915d28aa461360f7308b092631b1446e)
