save-as journal
save-as journal
(OP)
Can someone help me to create a very simple journal.
I want to be able to save the displayed part (a drawing)
to a specific network folder (the same one every time)
I'll create a button so its a one touch operation.
At the moment i have to go, file-> save-as -> then browse to the folder, and then OK.
(only the drwg needs saving, not the parts below it)
I've tried creating this as a macro, or journal, but it stays tied to the part i create it in.
Help very much appreciated.
I want to be able to save the displayed part (a drawing)
to a specific network folder (the same one every time)
I'll create a button so its a one touch operation.
At the moment i have to go, file-> save-as -> then browse to the folder, and then OK.
(only the drwg needs saving, not the parts below it)
I've tried creating this as a macro, or journal, but it stays tied to the part i create it in.
Help very much appreciated.





RE: save-as journal
This works for a mapped network drive.
' hope this helps,
Joe
CODE
RE: save-as journal
RE: save-as journal
RE: save-as journal
This works (for me) to an external disk attached to the local computer (I:\) (edit as needed).
HTH, Joe
CODE
Option Strict On Imports System Imports NXOpen Module NXJournal Sub Main Dim theSession As Session = Session.GetSession() Dim workPart As Part = theSession.Parts.Work Dim thepath As String = "i:\" Dim PartExt As String = ".prt" Dim displayPart As Part = theSession.Parts.Display Dim partSaveStatus1 As PartSaveStatus Try partSaveStatus1 = workPart.SaveAs(thePath+displayPart.Leaf+PartExt) partSaveStatus1.Dispose() Catch ex As Exception End Try End Sub End ModuleRE: save-as journal