1154x
004484
2020-07-07

Domanda

Come posso visualizzare le tensioni di una superficie tramite RF‑COM?


Risposta:

Le tensioni di una superficie possono essere visualizzate tramite l'interfaccia COM. Innanzitutto, è necessaria l'interfaccia per il modello (IModel) e poi l'interfaccia per il calcolo (ICalculation2). Utilizzando questa interfaccia, è possibile ottenere l'interfaccia per i risultati (IResults2):

Sottotensioni_superfici_esempio()
Dim iApp As RFEM5.Application
Dim iModel As RFEM5.model
Set iModel = GetObject(, "RFEM5.Model")

On Error GoTo E

If Not iModel Is Nothing Then
' ottieni l'interfaccia dal modello
Imposta iApp = iModel.GetApplication
iApp.LockLicense
    
' ottieni l'interfaccia dal calcolo
Dim iCalc As RFEM5.ICalculation2
Imposta iCalc = iModel.GetCalculation
    
' ottieni l'interfaccia dai risultati del caso di carico 1
Dim iRes As RFEM5.IResults2
Imposta iRes = iCalc.GetResultsInFeNodes(LoadCaseType, 1)
    
' ottieni tensioni equivalenti
Dim str_equ() As RFEM5.SurfaceEquivalentStresses
str_equ = iRes.GetSurfaceEquivalentStresses(1, AtNo, VonMisesHypothesis)
    
End If

E:
Se Err.Number <> 0 Allora
MsgBox Err.Number & " " & Err.description
End If

Se non iApp è niente, allora
iApp.UnlockLicense
End If

La funzione GetSurfaceEquivalentStresses richiede la specifica dell'ipotesi di calcolo. In questo caso, vengono visualizzati i risultati della tensione di von Mises. Si prega di notare che l'interfaccia COM utilizza le unità SI in modo che la tensione sia trasferita in N/m².