回复:
在这种情况下,EXCEL VBA 中存在一个我们无法修复的错误。 因此创建了一个新的对象 RFEM.RfLine(而不是 RFEM.Line),您可以使用该对象继续您的工作。 这是一个简短的示例:
子测试_RfLine() Dim iModel As RFEM5.IModel2Set iModel = GetObject(, "RFEM5.Model")iModel.GetApplication.LockLicense
出错时转到 e Dim iModelData As RFEM5.IModelData2设置 iModelData = iModel.GetModelData Dim lines() 如 RFEM5.RfLine线 = iModelData.GetLines e: 如果 Err.Number <> 0 那么 MsgBox Err.Description, , Err.Source 设置 iModelData = 无iModel.GetApplication.UnlockLicense设置 iModel = 无 末端接头