Autodesk Inventor

Недавно автоматизировал небольшую задачку по автоматическому созданию DWF из текущего документа и прикрепления к новому письму в MS Office Outlook для последующей отправки.

Sub DWF_and_Mail()
'Set a reference to the AddIns collection
Dim AddIns As ApplicationAddIns
Set AddIns = ThisApplication.ApplicationAddIns

'Get the DWF translator AddIn
Dim DWFAddIn As TranslatorAddIn
Dim i As Integer
For i = 1 To AddIns.Count
If AddIns(i).AddInType = kTranslationApplicationAddIn Then
If AddIns(i).ClassIdString = "{0AC6FD95-2F4D-42CE-8BE0-8AEA580399E4}" Then
Set DWFAddIn = AddIns.Item(i)
Exit For
End If
End If
Next i

'Set a reference to the active document (the document to be published).
Dim oDocument As Document
Set oDocument = ThisApplication.ActiveDocument

Dim oContext As TranslationContext
Set oContext = ThisApplication.TransientObjects.CreateTranslationContext
oContext.Type = kFileBrowseIOMechanism

' Create a NameValueMap object
Dim oOptions As NameValueMap
Set oOptions = ThisApplication.TransientObjects.CreateNameValueMap

' Create a DataMedium object
Dim oDataMedium As DataMedium
Set oDataMedium = ThisApplication.TransientObjects.CreateDataMedium

' Check whether the translator has 'SaveCopyAs' options
If DWFAddIn.HasSaveCopyAsOptions(oDataMedium, oContext, oOptions) Then
oOptions.Value("Launch_Viewer") = 1
oOptions.Value("Publish_Component_Props") = 1
oOptions.Value("Publish_Mass_Props") = 1
oOptions.Value("Publish_All_Sheets") = 1
End If

'Set the destination file name
oDataMedium.FileName = "c:\temp\test.dwf"

'Publish document.
Call DWFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)

'Setting parameter string for Outlook execute
Dim param As String

param = "/c ipm.note /a """ & oDataMedium.FileName & """"

Dim folder As String

Call ShellExecute(0, "open", "outlook.exe", param, folder, 3)
End Sub

В самое начало модуля, где будет находиться вышеприведенная функция, поместите:

Public Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

В данном макросе можно настроить формат имени файла (переменная oDataMedium.FileName), а также строку запуска MS Outlook).