topic Re: VBA Code for exporting SAT files - Help needed from someone with VBA knowled in Inventor Programming Forum

VBA Code for exporting SAT files - Help needed from someone with VBA knowledge

Anonymous — Tue, 12 Mar 2019 08:55:13 GMT

Hello,

We currently use a simple VBA macro to generate a DXF of a drawing to a specific folder by clicking on a button. We need the same function for creating a SAT file from an IPT (sheet metal part) and I am struggling to make this work. I know it is probably possible with Ilogic but would prefer to just add have this as the same function we have on the DXF.

This would export the IPT as a 3D model (not the flat pattern) to a specified folder and keep the original filename but as *.SAT

The code we use for the DXF export is below. If any VBA experts out there could help with some code for SAT files it would be appreciated.

Thanks

Fred

Sub EXPORT()

Dim invApp As Inventor.Application
Set invApp = ThisApplication
invApp.SilentOperation = True

Dim idwDoc As Inventor.DrawingDocument
Set idwDoc = invApp.ActiveDocument

Dim dxfFile As String
dxfFile = idwDoc.FullFileName
dxfFile = "\\HKEURVAULT\Inventor Resources\DXF_FOR_LAYOUTS\" & idwDoc.DisplayName

Mid(dxfFile, Len(dxfFile) - 3) = ".dxf"

With invApp.CommandManager
Call .PostPrivateEvent(kFileNameEvent, dxfFile)
Call .StartCommand(kFileSaveCopyAsCommand)
End With

Set idwDoc = Nothing
invApp.SilentOperation = False
Set invApp = Nothing

End Sub

Re: VBA Code for exporting SAT files - Help needed from someone with VBA knowled

bradeneuropeArthur — Tue, 12 Mar 2019 09:50:26 GMT

Module CreateSatFile

    Private m_invApp As Inventor.Application

    Public Sub ExportToSat()

        set m_invApp = thisapplication
        Dim oSATTrans As TranslatorAddIn

        set oSATTrans = m_invApp.ApplicationAddIns.ItemById("{89162634-02B6-11D5-8E80-0010B541CD80}")

        If oSATTrans Is Nothing Then
                        Exit Sub
        End If

        Dim oContext As TranslationContext
        set oContext = m_invApp.TransientObjects.CreateTranslationContext
        Dim oOptions As NameValueMap
        set oOptions = m_invApp.TransientObjects.CreateNameValueMap

        If oSATTrans.HasSaveCopyAsOptions(m_invApp.ActiveDocument, oContext, oOptions) Then

            oOptions.Value("ExportUnits") = 5

            oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism

            Dim oData As DataMedium

            set oData = m_invApp.TransientObjects.CreateDataMedium

            oData.FileName = "C:\test\TEST.sat"

            Call oSATTrans.SaveCopyAs(m_invApp.ActiveDocument, oContext, oOptions, oData)

        End If

    End Sub

End Module

Re: VBA Code for exporting SAT files - Help needed from someone with VBA knowled

Anonymous — Tue, 12 Mar 2019 13:48:46 GMT

Thanks for the code....

How do I set a default network folder and keep the same filename so everytime we save a SAT it goes to a network folder as the existing filename but as a SAT file?

Re: VBA Code for exporting SAT files - Help needed from someone with VBA knowled

bradeneuropeArthur — Tue, 12 Mar 2019 13:55:45 GMT

Hi,

What is your network drive called?

Re: VBA Code for exporting SAT files - Help needed from someone with VBA knowled

Anonymous — Tue, 12 Mar 2019 13:59:50 GMT

\\hkeurvault\

Re: VBA Code for exporting SAT files - Help needed from someone with VBA knowled

bradeneuropeArthur — Tue, 12 Mar 2019 14:01:45 GMT

and your project drive:

like c or d

Re: VBA Code for exporting SAT files - Help needed from someone with VBA knowled

bradeneuropeArthur — Tue, 12 Mar 2019 14:06:50 GMT

Than use this:

new programmed for network drive: c:\" >>>> to >>>>"\\hkeurvault\

    Private m_invApp As Inventor.Application

    Public Sub ExportToSat()

        Set m_invApp = ThisApplication
        Dim oSATTrans As TranslatorAddIn

        Set oSATTrans = m_invApp.ApplicationAddIns.ItemById("{89162634-02B6-11D5-8E80-0010B541CD80}")

        If oSATTrans Is Nothing Then
        Exit Sub
        End If

        Dim oContext As TranslationContext
        Set oContext = m_invApp.TransientObjects.CreateTranslationContext
        Dim oOptions As NameValueMap
        Set oOptions = m_invApp.TransientObjects.CreateNameValueMap

        If oSATTrans.HasSaveCopyAsOptions(m_invApp.ActiveDocument, oContext, oOptions) Then

            oOptions.Value("ExportUnits") = 5

            oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism

            Dim oData As DataMedium

            Set oData = m_invApp.TransientObjects.CreateDataMedium

            'oData.FileName = "C:\test\TEST.sat"
            
            Dim oSatFileName As String
            oSatFileName = Replace(m_invApp.ActiveDocument.FullFileName, ".ipt", ".sat") ' ipt to sat
            oSatFileName = Replace(m_invApp.ActiveDocument.FullFileName, "c:\", "\\hkeurvault\") ' c:\ to \\hkeurvault\
            oData.FileName = oSatFileName

            Call oSATTrans.SaveCopyAs(m_invApp.ActiveDocument, oContext, oOptions, oData)

        End If

Hope this will help you!

Regards,

Re: VBA Code for exporting SAT files - Help needed from someone with VBA knowled

Anonymous — Tue, 12 Mar 2019 14:13:02 GMT

All the drives are networked and we don't use a mapped drive letter and use the full syntax (see attached)

Re: VBA Code for exporting SAT files - Help needed from someone with VBA knowled

bradeneuropeArthur — Tue, 12 Mar 2019 14:15:34 GMT

than use the last posted code...

Regards,

Autodesk Software: Inventor Professional 2018 | Vault Professional 2018 | Autocad Mechanical 2018
Programming Skills: Vba | Vb.net (Add ins Vault / Inventor, Applications) | I-logic
Dimension Component! | Partlist Export! | Derive I-properties! | Vault Prompts Via API! | Vault Handbook/Manual!
Drawing Toggle Sheets! | Vault Defer Update!

! For administrative reasons, please mark a "Solution as solved" when the issue is solved !

Re: VBA Code for exporting SAT files - Help needed from someone with VBA knowled

Anonymous — Tue, 12 Mar 2019 14:28:35 GMT

Getting there....

Now getting an error (see attached)

Re: VBA Code for exporting SAT files - Help needed from someone with VBA knowled

bradeneuropeArthur — Tue, 12 Mar 2019 14:30:51 GMT

Are you using inventor 2015?

Re: VBA Code for exporting SAT files - Help needed from someone with VBA knowled

bradeneuropeArthur — Tue, 12 Mar 2019 14:42:40 GMT

this will do the trick:

    Public Sub ExportToSat()

        Set m_invApp = ThisApplication
        Dim oSATTrans As TranslatorAddIn

        Set oSATTrans = m_invApp.ApplicationAddIns.ItemById("{89162634-02B6-11D5-8E80-0010B541CD80}")

        If oSATTrans Is Nothing Then
        Exit Sub
        End If

        Dim oContext As TranslationContext
        Set oContext = m_invApp.TransientObjects.CreateTranslationContext
        Dim oOptions As NameValueMap
        Set oOptions = m_invApp.TransientObjects.CreateNameValueMap

        If oSATTrans.HasSaveCopyAsOptions(m_invApp.ActiveDocument, oContext, oOptions) Then

            oOptions.Value("ExportUnits") = 5

            oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism

            Dim oData As DataMedium

            Set oData = m_invApp.TransientObjects.CreateDataMedium

            'oData.FileName = "C:\test\TEST.sat"
            
            Dim oSatFileName As String
            
            oSatFileName = Replace(m_invApp.ActiveDocument.FullFileName, ".ipt", ".sat") ' ipt to sat
            oSatFileName = Replace(m_invApp.ActiveDocument.FullFileName, "C:\", "\\hkeurvault\") ' c:\ to \\hkeurvault\
            MsgBox oSatFileName
            oData.FileName = oSatFileName

            Call oSATTrans.SaveCopyAs(m_invApp.ActiveDocument, oContext, oOptions, oData)

        End If

    End Sub

the drive c: was written to lower and must be upper C:

Re: VBA Code for exporting SAT files - Help needed from someone with VBA knowled

Anonymous — Wed, 13 Mar 2019 09:10:37 GMT

Hi,

It is now trying to create an odd folder string but maybe I didn't explain the current structure correctly....

We are using Vault and the local path for our files are C:\VAULT\DESIGNS\ and then we separate the folders further by customer and part number etc. The SAT files we need are for our brake press and need to be on the network server in a flat folder structure her \\hkeurvault\SAT_FILES\

It seems like the code is creating a mixture of the network path and the local path? I attached a couple of screenshots.

Re: VBA Code for exporting SAT files - Help needed from someone with VBA knowled

bradeneuropeArthur — Wed, 13 Mar 2019 09:14:09 GMT

So:

The files are located always in for example: C:\VAULT\DESIGNS\Customer001\Brake.ipt

and must be exported always to: \\hkeurvault\SAT_FILES\Brake.sat

Correct?

Re: VBA Code for exporting SAT files - Help needed from someone with VBA knowled

bradeneuropeArthur — Wed, 13 Mar 2019 09:19:27 GMT

Then this should work:

  Public Sub ExportToSat()

        Set m_invApp = ThisApplication
        Dim oSATTrans As TranslatorAddIn

        Set oSATTrans = m_invApp.ApplicationAddIns.ItemById("{89162634-02B6-11D5-8E80-0010B541CD80}")

        If oSATTrans Is Nothing Then
        Exit Sub
        End If

        Dim oContext As TranslationContext
        Set oContext = m_invApp.TransientObjects.CreateTranslationContext
        Dim oOptions As NameValueMap
        Set oOptions = m_invApp.TransientObjects.CreateNameValueMap

        If oSATTrans.HasSaveCopyAsOptions(m_invApp.ActiveDocument, oContext, oOptions) Then

            oOptions.Value("ExportUnits") = 5

            oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism

            Dim oData As DataMedium

            Set oData = m_invApp.TransientObjects.CreateDataMedium
            
            Dim oSatFileName As String
            
            oSatFileName = Replace(m_invApp.ActiveDocument.FullFileName, ".ipt", ".sat") ' ipt to sat
            On Error Resume Next
    
            MkDir ("\\hkeurvault\SAT_FILES\")
            
            Err.Clear
            
            oData.FileName = "\\hkeurvault\SAT_FILES\" & oSatFileName

            Call oSATTrans.SaveCopyAs(m_invApp.ActiveDocument, oContext, oOptions, oData)

        End If

    End Sub

Regards,

Re: VBA Code for exporting SAT files - Help needed from someone with VBA knowled

Anonymous — Wed, 13 Mar 2019 09:21:47 GMT

HI,

Yes that is correct but obviously the IPT folder varies every time depending on which files we are exporting to the network.

Thanks

Andy

Re: VBA Code for exporting SAT files - Help needed from someone with VBA knowled

bradeneuropeArthur — Wed, 13 Mar 2019 09:25:22 GMT

please give me two examples of the export folder depending of the file exported.

and please give me the feedback I need to have about what is defining the folder names...

see the new code posted too...

Re: VBA Code for exporting SAT files - Help needed from someone with VBA knowled

Anonymous — Wed, 13 Mar 2019 09:44:08 GMT

Please see screen shots...

Capture6 = current error with new code

Capture7 = IPT typical folder

Capture8 = Network folder (SAT file is there from a manual savecopyas test)

Re: VBA Code for exporting SAT files - Help needed from someone with VBA knowled

Anonymous — Wed, 13 Mar 2019 10:01:33 GMT

Yes still on Inventor 2015 until the end of the year

Re: VBA Code for exporting SAT files - Help needed from someone with VBA knowled

Anonymous — Wed, 13 Mar 2019 11:07:41 GMT

@bradeneuropeArthur wrote:

please give me two examples of the export folder depending of the file exported.

The export folder will always be the same \\HKEURVAULT\SAT_FILES

All of the exported SAT files should be in the same folder with no additional sub folders

Hope it is clear