Odpověď:
V EXCEL VBA je zde chyba, kterou z naší strany nemůžeme opravit. Z tohoto důvodu byl vytvořen nový objekt RFEM.RfLine (místo RFEM.Line), se kterým můžete pokračovat v práci. Zde je krátký příklad:
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 Dim lines() As RFEM5.RfLine lines = iModelData.GetLines e: If Err.Number <> 0 Then MsgBox Err.Description, , Err.Source Set iModelData = Nothing iModel.GetApplication.UnlockLicense Set iModel = Nothing End Sub
Dlubal_KohlA.png?mw=350&hash=6f6b192b31c8bbcb1c62aa6cf9fbfb1d9f859880)
