Respuesta:
En este caso, hay un error en EXCEL VBA que no se puede solucionar por nuestra parte. Por esta razón, se ha creado un nuevo objeto RFEM.RfLine (en lugar de RFEM.Line) que puede usar para continuar su trabajo. Aquí hay un ejemplo corto:
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 Atenuar líneas () Como RFEM5.RfLinelíneas = iModelData.GetLines e: If Err.Number <> 0 Then MsgBox Err.description, , Err.Source Set iModelData = Nothing iModel.GetApplication.UnlockLicense iModel.GetApplication.UnlockLicense End Sub
![Vanos basados en la figura 5.2 de [1]](/es/webimage/039540/3493372/01_Abmessungen_EN.png?mw=512&hash=3cc425f1463bd5981b358d5889e3109e07ae1233)
.png?mw=600&hash=49b6a289915d28aa461360f7308b092631b1446e)
