Inventor VBA save file

Question

I am using Inventor 2022 and VBA in it. I tryed to save file with VBA script (macro - button).

Here is the code, which is included in documentation of old version of Inventor but it include some errors:

Dim oDoc As PartDocument

Rem this causes the "Invalid character _"
oDoc = _InvApplication.Documents.Add(DocumentTypeEnum.kPartDocumentObject)

Rem this causes the "Expected: ="
oDoc.SaveAs("C:\Temp\SaveTest.ipt", False)

Source: https://github.com/ADN-DevTech/Inventor-Training-Material (common Inventor Functions the powerpoint presentation)

All of my solutions are not correct!

I think this is the rewrited code from object browser but not in Inventor library:

Inventor.FileSaveAs.AddFileToSave(oDoc, "C:\myTemp\t.ipt")

I found also someting like this:

Inventor.FileSaveAs.AddFileToSave := oDoc, "C:\myTemp\t.ipt"

Thank you for any help.

I edited my post for bugs in Inventor VBA.

vasek 9876
– vasek 9876

2021-11-05 14:14:19 +00:00
Commented Nov 5, 2021 at 14:14 — vasek 9876
– vasek 9876, Commented Nov 5, 2021 at 14:14

Michael Navara · Accepted Answer · 2021-11-04 17:44:20Z

0

Hello and welcome to the SO

Your first code fragment is OK. It expects the document was not saved before or you want to save document as new file on disk.

Later you can use just oDoc.Save() for simple save document. If you call this save method and the document was not saved before, standard save file dialog is displayed to the user.

Your next two code fragments are not useable in Inventor, because this is from ApprenticeServer.

answered Nov 4, 2021 at 17:44

Michael Navara

1,1172 gold badges11 silver badges17 bronze badges

Sign up to request clarification or add additional context in comments.

4 Comments

vasek 9876 Over a year ago

I do not know why, but the oDoc.Save does not work. There is no declaration of object. This causes the "invalid use of property" : oDoc=InvApplication.Documents.Add(DocumentTypeEnum.kPartDocumentObject)

vasek 9876 Over a year ago

I used the oDoc = ThisApplication.ThisDocumet and the Call oDoc.Save() it is from link

vasek 9876 Over a year ago

Thank you for your efforts, it took me a long time to find a solution to this problem, so it was appropriate to write here.

vasek 9876 Over a year ago

If you want to export as .obj file use only Call oDoc.SaveAs("C:\myTemp\a.obj", True)

Collectives™ on Stack Overflow

Inventor VBA save file

1 Answer 1

4 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

4 Comments

Your Answer

Sign up or log in

Post as a guest

Related