Public Function Einbau()

Dim oApp As Inventor.Application
Set oApp = ThisApplication
Dim oDoc As Document
Set oDoc = ThisApplication.ActiveDocument
Dim Einbauteil$
Dim oAsmCompDef As AssemblyComponentDefinition
Dim kFileNameEvent As Variant
Dim kPlaceComponentCommand As Variant


kFileNameEvent = 6657
kPlaceComponentCommand = 2054

Set oAsmCompDef = oApp.ActiveDocument.ComponentDefinition
Err = 0

Einbauteil = "D:\Sp_ort3.ipt"

 oApp.CommandManager.PostPrivateEvent kFileNameEvent, Einbauteil
 oApp.CommandManager.StartCommand kPlaceComponentCommand

End Function