Share

Publish FlatPattern to SAT

Description

This sample demonstrates how to save a FlatPattern file using the SAT translator add-in.

Code Samples

Open a sheet metal file before running this sample code.
Sub ExportFlatPatternToSAT()
    'Set a reference to the active document (the document to be published).
    Dim oDoc As PartDocument
    Set oDoc = ThisApplication.ActiveDocument
    
    Dim oCompDef As SheetMetalComponentDefinition
    Set oCompDef = oDoc.ComponentDefinition
        
    If oCompDef.HasFlatPattern = False Then
        oCompDef.Unfold
    End If
    
    Dim oFlatPattern As FlatPattern
    Set oFlatPattern = oCompDef.FlatPattern
    
    Dim oSATTranslator As TranslatorAddIn
    Set oSATTranslator = ThisApplication.ApplicationAddIns.ItemById("{89162634-02B6-11D5-8E80-0010B541CD80}")
    
    Dim oContext As TranslationContext
    Set oContext = ThisApplication.TransientObjects.CreateTranslationContext
    
    Dim oOptions As NameValueMap
    Set oOptions = ThisApplication.TransientObjects.CreateNameValueMap
    
    If oSATTranslator.HasSaveCopyAsOptions(oFlatPattern, oContext, oOptions) Then

        'oOptions.Value("IncludeSketches") = True
        'oOptions.Value("ExportBodyNames") = True
        oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
        
        Dim oData As DataMedium
        Set oData = ThisApplication.TransientObjects.CreateDataMedium
        oData.FileName = oDoc.FullFileName & ".sat"

    Call oSATTranslator.SaveCopyAs(oFlatPattern, oContext, oOptions, oData)
    End If
End Sub


Was this information helpful?