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².