export to adsk with the help of inventor api vba code

[Anonymous]

Private Sub CommandButton1_Click()
    Dim strFullFileName As String
    strFullFileName = "C:\Users\Yogesh\Desktop\model1.ipt"

Dim o2 As BIMComponent
Set o2 = BIMComponent.ExportBuildingComponent(strFullFileName)

End sub

someone please tell me what shoud i add or ssubtract or modify to make the code work, i want to export my file to .adsk format with the help of inventor api vba coding

[Mark.Lancaster]

@Anonymous

Programming needs and questions should be posted in the Inventor Customization for best results

https://forums.autodesk.com/t5/inventor-customization/bd-p/120

I will have the moderator relocate your posting there to best suit your needs.