Makro AI2008 - Rozvin plechu do dxf

Toto makro pro Autodesk Inventor 2008 z rozvinu modelu plechu vytvoří dxf soubor do v makru určeného místa.

Public Sub Rozvin_do_DXF()
 Dim invDoc As Inventor.Document
 Set invDoc = ThisApplication.ActiveDocument
 Dim sFileName As String
 sFileName = invDoc.DisplayName
 sFileName = Left(sFileName, Len(sFileName) - 4) 'bez .IPT
 Dim oDataIO As DataIO
 On Error Resume Next
 Set oDataIO = invDoc.ComponentDefinition.DataIO
 If Err.Number = 438 Then
  MsgBox "Je otevřen výkres, musí být otevřen model s rozvinem. Chyba č.: " & Err.Number
  Exit Sub
 End If
 On Error GoTo 0
 Dim sParam As String
 sParam = "FLAT PATTERN DXF?AcadVersion=R12&BendLayer=OHYBY&TangentLayer=ZACATEK_OHYBU&OuterProfileLayer=OBRYS"
 'dostupné formáty: AcadVersion = "2005","2004","2002", "2000", "R14", "R13", "R12" (R12 jen pro DXF)
 'možné parametry TangentLayer a BendLayer; příklady:
 Dim sDXFFileName As String
 sDXFFileName = "C:\Documents and Settings\Cedivoda.AUSTIN\Dokumenty\VÝKRESY PŘIPRAVENÉ K ODESLÁNÍ\" & sFileName & ".dxf"
 On Error Resume Next
 oDataIO.WriteDataToFile sParam, sDXFFileName
 Select Case Err
 Case 0
  MsgBox "Rozvin uložen do: " & sDXFFileName
 Case Else
  MsgBox "Chyba č.: " & Err.Number
 End Select
End Sub