Neste caso, existe um erro no EXCEL VBA que não pode ser corrigido da nossa parte. Por esse motivo, foi criado o novo objeto RFEM.RfLine (em vez de RFEM.Line) que pode ser utilizado para continuar o seu trabalho. Aqui está um pequeno exemplo:
Sub test_RfLine() Dim iModel As RFEM5.IModel2 Set iModel = GetObject(, "RFEM5.Model") iModel.GetApplication.LockLicense
On Error GoTo e Dim iModelData As RFEM5.IModelData2 Set iModelData = iModel.GetModelData Dim lines() As RFEM5.RfLine lines = iModelData.GetLines e: If Err.Number <> 0 Then MsgBox Err.Description, , Err.Source Set iModelData = Nothing iModel.GetApplication.UnlockLicense Set iModel = Nothing End Sub