Ahoj, mám pravidlo které funguje ale když uložím sestavu která obsahuje díl s tímto pravidlem, tak mi to vyhodí chybu:jinak pravidlo nezlobí. neví někdo co s tím?      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

Rozhodně nedoporučuju používání lokálních pravidel pro generování rozvinů!Chyba je v nesprávném použití [code]ThisApplication.ActiveDocument[/code]To odkazuje na aktuálně otevřený dokument místo toho, nad kterým je potřeba provádět pravidlo. Tam je potřeba použít[code]ThisDoc.Document[/code]  A i to doporučuju použít maximálně jednou a výsledek si uložit o proměnné