1162x
004638
2020-08-19

Domanda

Ho il seguente problema durante la programmazione in VBA con linee RFEM: "Nessuna assegnazione al campo dati possibile." Cosa posso fare?


Risposta:

In questo caso, c'è un errore in EXCEL VBA che non può essere corretto da parte nostra. Per questo motivo, è stato creato un nuovo oggetto RFEM.RfLine (invece di RFEM.Line) che è possibile utilizzare per continuare il lavoro. Ecco un breve esempio:

Sub test_RfLine()
    
Dim iModel come RFEM5.IModel2
Set iModel = GetObject(, "RFEM5.Model")
iModel.GetApplication.LockLicense
    

On Error GoTo e
    
Dim iModelData come RFEM5.IModelData2
Imposta iModelData = iModel.GetModelData
    
Linee attenuate () Come RFEM5.RfLine
linee = iModelData.GetLines
    
    
e: Se Err.Number <> 0 allora MsgBox Err.Description, , Err.Source
    
Imposta iModelData = Niente
iModel.GetApplication.UnlockLicense
Set iModel = Nothing
    
End Sub