Odpowiedź:
W tym przypadku w programie EXCEL VBA występuje błąd, którego nie można naprawić z naszej strony. Z tego powodu został utworzony nowy obiekt RFEM.RfLine (zamiast RFEM.Line), za pomocą którego można kontynuować pracę. Oto krótki przykład:
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 Przyciemnij linie () As RFEM5.RfLinelinie = iModelData.GetLines e: Jeżeli Err.Number <> 0 to MsgBox Err.Description, , Err.Source Ustaw iModelData = NiciModel.GetApplication.UnlockLicenseUstaw iModel = Nic Zakończ sub