Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.

Is this what you want?

 

Dim oDoc As Inventor.Document = ThisApplication.ActiveDocument
Dim oCProps As PropertySet = oDoc.PropertySets.Item("Inventor User Defined Properties")
Try
	Dim oFileName As String = oCProps.Item("File Name").Value
	Dim oPath As String = oCProps.Item("Save Location").Value
	Dim oType As String = ".ipt"
	oDoc.SaveAs(oPath & oFileName & oType, True)
Catch oEx As Exception
	MsgBox("The SaveAs Sub failed." & vbCrLf & _
	"The error message is as follows:" & vbCrLf & _
	oEx.Message, vbOKOnly + vbExclamation, "SaveAs Error")
End Try

 

Wesley Crihfield

EESignature

(Not an Autodesk Employee)