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.ApplicationDim iModel As RFEM5.modelSet iModel = GetObject(, "RFEM5.Model")
On Error GoTo E
If Not iModel Is Nothing Then' ottieni l'interfaccia dal modelloImposta iApp = iModel.GetApplication iApp.LockLicense ' ottieni l'interfaccia dal calcolo Dim iCalc As RFEM5.ICalculation2Imposta iCalc = iModel.GetCalculation ' ottieni l'interfaccia dai risultati del caso di carico 1Dim iRes As RFEM5.IResults2Imposta iRes = iCalc.GetResultsInFeNodes(LoadCaseType, 1) ' ottieni tensioni equivalentiDim str_equ() As RFEM5.SurfaceEquivalentStressesstr_equ = iRes.GetSurfaceEquivalentStresses(1, AtNo, VonMisesHypothesis) End If
E:Se Err.Number <> 0 AlloraMsgBox Err.Number & " " & Err.descriptionEnd If
Se non iApp è niente, allora iApp.UnlockLicenseEnd 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².