[IT] FAQ 004484 | Come posso visualizzare le tensioni di una superficie tramite RF‑COM?

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 noti che l'interfaccia COM utilizza le unità SI, quindi la tensione viene trasferita in N/m².