Sub Main()
   ExportAllPartsToStep
End Sub
 

Sub ExportAllPartsToStep()
    Dim topAssembly As AssemblyDocument = ThisDoc.Document
    'Sem patri export sestavy do stepu
    topAssembly.SaveAs(System.IO.Path.ChangeExtension(topAssembly.FullFileName, ".stp"), True)
 
    'Export vsech odkazovanych soucasti
    For Each document As Document In topAssembly.AllReferencedDocuments
        If (document.DocumentType = DocumentTypeEnum.kPartDocumentObject) Then
            ExportPartToStep(document)
        End If
    Next
 
End Sub
Sub ExportPartToStep(part As PartDocument)
    'Sem patri export soucasti do stepu
    part.SaveAs(System.IO.Path.ChangeExtension(part.FullFileName, ".stp"), True)
End Sub