07-16-2020
05:26 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
07-16-2020
05:26 AM
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
(Not an Autodesk Employee)