Hi
I am a bit of a novice when it comes to Journals, but have several files that work in NX7.5 that now don't work in NX10. they all appear to have the same problem:
If possible is anyone able to offer any advice.
Regards
Martyn
The journal below fails on lines 43,44,45,46,54,65 with the error
Line 43: 'path' is ambiguous, imported from the namespaces or types 'NXOpem.CAM, system.IO'
' NX 6.0.5.3
' Journal created by rt134694 on Tue Dec 14 10:27:51 2010 GMT Standard Time
' This journal copies the .brd file output by the EPAK software from the working
' or C:\temp directory (depends where user saved it) to a network folder for use
' in downstream apps
Imports System
Imports System.IO
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.CAM
Imports System.Windows.Forms
Public Class NXJournal
Public Shared destFolder As String
Public Shared sourceFolder1 As String
Public Shared sourceFolder2 As String
Public Shared fileName As String
Public Shared brdExt As String = ".brd"
Public Shared Sub Main(args As String())
Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim displayPart As Part = theSession.Parts.Display
Dim theUfSession As UFSession = UFSession.GetUFSession()
Dim ufUgMgr As UFUgmgr = theUfSession.Ugmgr
Dim brdSourcePath As String
Dim partName As String
Dim projName As String
' Get global variables
ufUgMgr.AskExportDirectory(workPart.Tag, sourceFolder1)
sourceFolder2 = Environment.GetEnvironmentVariable("TEMP")
destFolder = Environment.GetEnvironmentVariable("EPAK_DEST_DIR")
' Get Part Name
partName = AskPartName(workPart.Tag)
' Get Project Name
projName = partName.Substring((partName.IndexOf("-") + 1), 4)
' Check if brd file exists
If File.Exists(Path.Combine(sourceFolder1, partName & brdExt)) Then
brdSourcePath = Path.Combine(sourceFolder1, partName & brdExt)
ElseIf File.Exists(Path.Combine(sourceFolder2, partName & brdExt)) Then
brdSourcePath = Path.Combine(sourceFolder2, partName & brdExt)
Else
MessageBox.Show("Cannot find Board File to Export."& vbCr & vbLf & "Ensure you have run EPAK and saved the board file to either C:\Temp or the default working directory for this part."& vbCr & vbLf & "Also Ensure you use the correct naming convention PART-NAME-REV.brd (e.g. '"& partName & brdExt & "')")
Return
End If
' Create dest folder if needed
If projName.Length > 0 AndAlso partName.Length > 0 Then
destFolder = Path.Combine(destFolder, projName)
If Not Directory.Exists(destFolder) Then
Directory.CreateDirectory(destFolder)
End If
Else
MessageBox.Show("Can't determine Project Name or Part Name")
Return
End If
'Copy file to dest
Try
File.Copy(brdSourcePath, Path.Combine(destFolder, partName & brdExt), True)
MessageBox.Show("Board File Successfully Sent.")
Catch copyError As IOException
MessageBox.Show(copyError.Message)
Return
End Try
End Sub
' Good old Siemens - there is a method Part.Name but this doesn't work
' for some reason, raised as an issue, have to do it the hard way instead
Public Shared Function AskPartName(partTag As Tag) As String
Dim partName As String
Dim theUfSession As UFSession = UFSession.GetUFSession()
theUfSession.Part.AskPartName(partTag, partName)
Try
' Assemblies have different name string layout
Dim nameStartPos As Int32 = partName.IndexOf("AN=") + 3
Dim nameEndPos As Int32 = partName.IndexOf("", partName.IndexOf("AN="))
Dim nameLength As Int32 = nameEndPos - nameStartPos
partName = partName.Substring(nameStartPos, nameLength)
Catch
Dim nameStartPos As Int32 = partName.IndexOf("PN=") + 3
Dim nameEndPos As Int32 = partName.IndexOf("", partName.IndexOf("PN="))
Dim nameLength As Int32 = nameEndPos - nameStartPos
partName = partName.Substring(nameStartPos, nameLength) & "-"& partName.Substring((partName.IndexOf("PRN=") + 4), 1)
End Try
Return partName
End Function
End Class