VBA Excel and Inventor

[Anonymous]

Hello there,

i have a crazy question 🙂

do someone know how can i open a Inventor file, update my file (run a iLogic rule), open the idw from that part, a save it as dwg, and than close the inventor parts.

All that should run Hidden.

I would bie thankful!

[MechMachineMan]

Here is vb.net that accesses inventor for you. Unfortunately it actually probably isn't of much us due to the quirks with vba that are different that much of this method. But I think the idea is somewhat there.

Option Compare Text
'If used outside of inventor, must add reference to Inventor Object Library

Imports System
Imports System.Type
Imports System.Activator
Imports Inventor
Imports System.Runtime.InteropServices

	Sub Main()
		Dim oInv_App As New CL_InventorApp
		Dim oDoc As Document = oInv_App.ActiveDoc
		
		Dim oTransActmanager As TransactionManager = oInv_App.InventorInstance.TransactionManager
		Dim oTransaction As Transaction = oTransActmanager.StartTransaction(oDoc, "Bulk Add Revision Row")
		
                'Functional Code here
                '  Transactions are not essential and can be removed, but add undo abilities during the instance
              

		oTransaction.End
	End Sub

Public Class CL_InventorApp
	Dim Public InventorInstance As Inventor.Application
	Dim Public ActiveDoc As Inventor.Document
	Dim _started As Boolean
	Public Sub New()
		Try
       		InventorInstance =  Marshal.GetActiveObject("Inventor.Application")
			ActiveDoc = InventorInstance.ActiveDocument
		Catch ex As Exception
			   Try     
					Dim invAppType As Type = GetTypeFromProgID("Inventor.Application")     
					InventorInstance = CreateInstance(invAppType)     
					InventorInstance.Visible = True 
					ActiveDoc = InventorInstance.ActiveDocument
					_started = True 
					Catch ex2 As Exception     
						MsgBox(ex2.ToString())     
						MsgBox("Unable to get or start Inventor") 
						Exit Sub
					End Try
		End Try
	End Sub
End Class

[Anonymous]

Thank you for the replay

i dont have VB 

i just try to run the macro in excel VBA and it doesen work 😞

[MechMachineMan]

Yes, the idea is there, but you will need to convert it to vba.

[Anonymous]

Hello

i just installed the vb studio on my computer.

Now, i what to make a exe to open the inventor file, make update, run rule (rule1), open idw from that part, run update und save the idw as dwg on my destom.

An that schould run hidden.

Can you tell me, how can I make it to work?