1160x
004638
2020-08-19

Pytanie

Podczas programowania w VBA z wykorzystaniem linii RFEM mam następujący problem: „Brak możliwości przyporządkowania do pola danych”. Co możemy zrobić?


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.RfLine
linie = iModelData.GetLines
    
    
e: Jeżeli Err.Number <> 0 to MsgBox Err.Description, , Err.Source
    
Ustaw iModelData = Nic
iModel.GetApplication.UnlockLicense
Ustaw iModel = Nic
    
Zakończ sub