Risposta:
In questo caso, c'è un errore in EXCEL VBA che non può essere corretto da parte nostra. Per questo motivo, è stato creato un nuovo oggetto RFEM.RfLine (invece di RFEM.Line) che è possibile utilizzare per continuare il lavoro. Ecco un breve esempio:
Sub test_RfLine() Dim iModel come RFEM5.IModel2Set iModel = GetObject(, "RFEM5.Model")iModel.GetApplication.LockLicense
On Error GoTo e Dim iModelData come RFEM5.IModelData2Imposta iModelData = iModel.GetModelData Linee attenuate () Come RFEM5.RfLinelinee = iModelData.GetLines e: Se Err.Number <> 0 allora MsgBox Err.Description, , Err.Source Imposta iModelData = NienteiModel.GetApplication.UnlockLicense Set iModel = Nothing End Sub