topic Re: Run Macro On Save in Inventor Programming Forum

Run Macro On Save

isocam — Fri, 24 Aug 2012 22:27:24 GMT

The attached addin works Ok except that it only accepts "ipt" files.

Can anybody upgrade the addin and compile it so that it can accept "ipt", "iam" & "idw" files?

Many thanks in advance!!!

Re: Run Macro On Save

MegaJerk — Sun, 26 Aug 2012 23:56:40 GMT

For the people that do not have Visual Studios, perhaps you could explain what it is you're doing On Save. Perhaps it could be done via iLogic / API instead / Event Triggers instead?

Re: Run Macro On Save

Ralf_Krieg — Mon, 27 Aug 2012 12:54:00 GMT

Hello

Open the StandardAddInServer.vb with an Texteditor, scroll down to the end and replace the OnSave-Sub with this:

Private Sub m_applicationEvents_OnSaveDocument(ByVal DocumentObject As Inventor._Document, ByVal BeforeOrAfter As Inventor.EventTimingEnum, ByVal Context As Inventor.NameValueMap, ByRef HandlingCode As Inventor.HandlingCodeEnum) Handles m_applicationEvents.OnSaveDocument

            If BeforeOrAfter = EventTimingEnum.kBefore Then
                'Lets make sure that the active document is a part document
                If m_inventorApplication.ActiveDocument.DocumentType = DocumentTypeEnum.kPartDocumentObject Then
                    Try
                        Dim invVBAProject As InventorVBAProject = m_inventorApplication.VBAProjects.Item(1)
                        Dim invModule As InventorVBAComponent = invVBAProject.InventorVBAComponents.Item("Module01")
                        Dim invSub As InventorVBAMember = invModule.InventorVBAMembers.Item("Main")
                        invSub.Execute()
                    Catch ex As Exception

                    End Try

                End If

                If m_inventorApplication.ActiveDocument.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then
                    Try
                        Dim invVBAProject As InventorVBAProject = m_inventorApplication.VBAProjects.Item(1)
                        Dim invModule As InventorVBAComponent = invVBAProject.InventorVBAComponents.Item("Module01")
                        Dim invSub As InventorVBAMember = invModule.InventorVBAMembers.Item("Main")
                        invSub.Execute()
                    Catch ex As Exception

                    End Try

                End If

                If m_inventorApplication.ActiveDocument.DocumentType = DocumentTypeEnum.kDrawingDocumentObject Then
                    Try
                        Dim invVBAProject As InventorVBAProject = m_inventorApplication.VBAProjects.Item(1)
                        Dim invModule As InventorVBAComponent = invVBAProject.InventorVBAComponents.Item("Module01")
                        Dim invSub As InventorVBAMember = invModule.InventorVBAMembers.Item("Main")
                        invSub.Execute()
                    Catch ex As Exception

                    End Try

                End If


            End If

        End Sub

EDIT: compiled dll attached (replace txt with dll)

Re: Run Macro On Save

xiaodong_liang — Thu, 30 Aug 2012 03:35:51 GMT

I think krieg's code answers this question. If the code in each branch is same, I would suggest to combine all conditions, e.g.

DocumentTypeEnum docType = m_inventorApplication.ActiveDocument.DocumentType

If docType = DocumentTypeEnum.kPartDocumentObject Or
docType = DocumentTypeEnum.kAssemblyDocumentObject Or
docType = DocumentTypeEnum.kDrawingDocumentObject Then

.....

End If