Hello @ejafari82LVK,
Here is a small piece of code that you can put inside the part document you want to copy. This will copy the part to a new document with the desired name :
Dim doc As Inventor.Document = ThisApplication.ActiveDocument
Dim fullName As String = doc.FullFileName
Dim newName As String = InputBox("New part name :", "Define new file name")
If newName = "" Then Exit Sub
Dim index As Integer = fullName.LastIndexOf("\")
Dim path As String = Left(fullName, index + 1)
Dim newFileName As String = path & newName & ".ipt"
If IO.File.Exists(newFileName) = True Then
MsgBox("File already exists!")
Exit Sub
End If
doc.SaveAs(newFileName, True )
ThisApplication.Documents.Open(newFileName)
The part will land inside the same directory that the main part is located. If you want otherwise, please clarify how the directories are organised.
Kind regards,
FINET L.
If this post solved your question, please kindly mark it as "Solution"
If this post helped out in any way to solve your question, please drop a "Like"@LinkedIn @JohnCockerill
