Dim FilePath As String
	FilePath = ThisDoc.Path & "\"																		'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&OuterProfileLayer=IV_INTERIOR_PROFILES"					'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
    MessageBox.Show("DXF uložen jako: " & fSname ,"Uložení DXF rozvinu", MessageBoxButtons.OK)			'Message report
	
  
ThisApplication.ActiveDocument.ComponentDefinition.FlatPattern.ExitEdit									'Vyskoc z rozvinu zpet do dilu