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