iLogic a ETO - Chyba v pravidle rozvinu

Dim FilePath As String
    FilePath = ThisDoc.Path & "\EXPORT\"                                                                        'Kam se ma export rozvinu ulozit?
    
    If ThisApplication.ActiveDocument.ComponentDefinition.HasFlatPattern = False Then                    'Ma dil rozvin?
       ThisApplication.ActiveDocument.ComponentDefinition.Unfold                                        'Pokud ne, vytvor rozvin
    Else
       ThisApplication.ActiveDocument.ComponentDefinition.FlatPattern.Edit                                'Pokud ano, skoc do editace
    End If

    Dim fSett As String
    fSett = "FLAT PATTERN DXF?AcadVersion=2000&InvisibleLayers=IV_UNCONSUMEND_SKETCHES;IV_TANGENT;IV_BEND;IV_BEND_DOWN;IV_TOOL_CENTER;IV_TOOL_CENTER_DOWN;IV_ARC_CENTERS;IV_FEATURE_PROFILES_DOWN;IV_ALTREP_FRONT;IV_ALTREP_BACK;IV_TE�NA_SVINUT�;IV_ROLL&SplineTolerance Double 0.01"                    'Nastaveni exportu
    
    Dim fSname As String
    fSname = FilePath & ThisDoc.FileName(False) & ".dxf"                                                'Nastaveni ulozeni cesta+nazev
    
    ThisApplication.ActiveDocument.ComponentDefinition.DataIO.WriteDataToFile( fSett, fSname)             'Save s nastavenim fSett a do cesty fSname

  
ThisApplication.ActiveDocument.ComponentDefinition.FlatPattern.ExitEdit