Antwort:
Es gibt hier in Excel VBA einen Fehler, welcher von unserer Seite nicht korrigiert werden kann. Aus diesem Grund wurde ein neues Objekt RFEM.RfLine (statt RFEM.Line) angelegt, mit dem Sie weiterarbeiten können. Hier ein kurzes Beispiel:
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
