Inventor VBA 保存文件
Inventor VBA save file
我正在使用 Inventor 2022 和 VBA。我尝试使用 VBA 脚本（宏按钮）保存文件。
这是旧版本 Inventor 文档中包含的代码，但其中包含一些错误：
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)
来源：https://github.com/ADN-DevTech/Inventor-Training-Material（常用 Inventor 函数 powerpoint 演示文稿）
我的所有解法都不正确！
我认为这是 object browser but not in Inventor library:
的重写代码
Inventor.FileSaveAs.AddFileToSave(oDoc, "C:\myTemp\t.ipt")
我也发现了这样的东西：
Inventor.FileSaveAs.AddFileToSave := oDoc, "C:\myTemp\t.ipt"
感谢您的帮助。
您好，欢迎来到 SO
你的第一个代码片段没问题。它期望文档之前没有保存或者你想将文档作为新文件保存在磁盘上。
稍后您可以使用 oDoc.Save() 来简单保存文档。如果您调用此保存方法并且之前未保存文档，则会向用户显示标准保存文件对话框。
您接下来的两个代码片段在 Inventor 中不可用，因为这是来自 ApprenticeServer。
我正在使用 Inventor 2022 和 VBA。我尝试使用 VBA 脚本（宏按钮）保存文件。
这是旧版本 Inventor 文档中包含的代码，但其中包含一些错误：
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)
来源：https://github.com/ADN-DevTech/Inventor-Training-Material（常用 Inventor 函数 powerpoint 演示文稿）
我的所有解法都不正确！
我认为这是 object browser but not in Inventor library:
的重写代码Inventor.FileSaveAs.AddFileToSave(oDoc, "C:\myTemp\t.ipt")
我也发现了这样的东西：
Inventor.FileSaveAs.AddFileToSave := oDoc, "C:\myTemp\t.ipt"
感谢您的帮助。
您好，欢迎来到 SO
你的第一个代码片段没问题。它期望文档之前没有保存或者你想将文档作为新文件保存在磁盘上。
稍后您可以使用 oDoc.Save() 来简单保存文档。如果您调用此保存方法并且之前未保存文档，则会向用户显示标准保存文件对话框。
您接下来的两个代码片段在 Inventor 中不可用，因为这是来自 ApprenticeServer。