topic Vb.net - Export files and then can not change project in Inventor Programming Forum

Vb.net - Export files and then can not change project

premysl.misun — Sun, 24 Sep 2017 10:40:17 GMT

Hi,

I have my own program in vb.net to export drawings to pdf and dxf files, and part (or assembly) to stp files. It works very good (from opened drawing).

After I export one or more drawings by this, I can not change project and I have to close Inventor and start it again. Message from invenor is "Active project can not be changed, if are open files in Inventor" (I have in czech language, so that message can be little different). But all files in Inventor are vissibly closed (after export program closed drawing).

Do you have any idea to solved this in vb.net?

Thank you,

Premek

Re: Vb.net - Export files and then can not change project

premysl.misun — Sun, 24 Sep 2017 10:45:35 GMT

Here is part of program:

Dim path As String = System.IO.Path.GetDirectoryName(soubor.FullFileName)
            Dim path2 As String = System.IO.Path.GetFileNameWithoutExtension(soubor.FullFileName)
            Dim path3 As String = System.IO.Path.GetFileName(soubor.FullFileName)

            soubor.SaveAs("D:\Projekty\Dokumentace\Pdf\" & path2 & ".pdf", True)
            soubor.SaveAs("D:\Projekty\Dokumentace\Dxf\" & path2 & ".dxf", True)

            Dim oDrawDoc As DrawingDocument
            oDrawDoc = _invApp.ActiveDocument
            Dim oRefDoc As Document

            For Each oRefDoc In oDrawDoc.ReferencedDocuments
                If oRefDoc.DocumentType = DocumentTypeEnum.kPartDocumentObject Then

                    Dim model As Inventor.PartDocument = _invApp.Documents.Open(path & "\" & path2 & ".ipt", False)
                    model.SaveAs("D:\Projekty\Dokumentace\Stp\" & path2 & ".stp", True)
                    _invApp.ActiveDocument.Close()

                ElseIf oRefDoc.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then

                    Dim sestava As Inventor.AssemblyDocument = _invApp.Documents.Open(path & "\" & path2 & ".iam", False)
                    sestava.SaveAs("D:\Projekty\Dokumentace\Stp\" & path2 & ".stp", True)
                    _invApp.ActiveDocument.Close()

                End If
            Next oRefDoc

Re: Vb.net - Export files and then can not change project

premysl.misun — Mon, 13 Nov 2017 10:18:17 GMT

Hi again,

do anybody now how to "unlock" change of project after file export?

Re: Vb.net - Export files and then can not change project

MechMachineMan — Mon, 13 Nov 2017 20:30:10 GMT

It seems fairly obvious that it is one of 2 things:

1. There is a bug.

2. You still have files open - probably invisibly, which still prevents file change.

After you run the rule, either check in the bottom right corner of your main window. There should be 2 boxes with numbers in. If both are not 0, you definitely have documents open. The other option is to check the application Documents enum using VBA to see the open documents count.

If you have documents open invisibly, you will need to revise your original export code to close the files after you are done exporting them.

** Modify your code to contain

oRefDoc.Close AND model.Close inside of your loop. your _invApp.ActiveDocument is not doing a sufficient job of closing files - and will not close an invisible file, which is opened when using Documents.Open(,False)