Option Strict Off
Imports System
Imports System.Collections.Generic
Imports NXOpen
Imports NXOpen.UF
Imports NXOpenUI
Module NXJournal
Dim ufs As UFSession = UFSession.GetUFSession()
Dim shtAttrString As String = ""
Dim dscAttrString As String = ""
Dim sizAttrString As String = ""
Dim venAttrString As String = ""
Dim pnmAttrString As String = ""
Dim fnameAsDesc As String = ""
Dim afnameAsDesc As String = "" 'existing description attribute
Dim usrAttr (6,2) As String
Sub Main ()
Dim theSession As Session = Session.GetSession()
Dim theUfSession As UFSession = UFSession.GetUFSession()
Dim ufs As UFSession = UFSession.GetUFSession()
Dim workPart As Part = theSession.Parts.Work
Dim displayPart As Part = theSession.Parts.Display
Dim currentPath As String = IO.Path.GetDirectoryName(workPart.FullPath)
Dim currentFile As String = IO.Path.GetFileNameWithoutExtension(workPart.FullPath)
Dim lw As ListingWindow = theSession.ListingWindow
setUsrAttr 'set default attribute names and values
getUsrAttr 'get part attributes if exists
If usrAttr(6,2) = "true" Then
lw.WriteLine("BOM Lock Is Set")
Exit Sub
End If
'get file name and replace underscores with spaces
fnameAsDesc = (IO.Path.GetFileNameWithoutExtension(workPart.FullPath)).Replace("_", " ")
Dim fnameLen As Integer = fnameAsDesc.Length
fnameAsDesc = fnameAsDesc.Substring(5,fnameLen-5)
'choice menu
Dim menuChoice As String = ""
Do
menuChoice = opChoice
If menuChoice = usrAttr(1,1) Then inputSheet
If menuChoice = usrAttr(2,1) Then inputDescription
If menuChoice = usrAttr(3,1) Then inputSize
If menuChoice = usrAttr(4,1) Then inputVendor
If menuChoice = usrAttr(5,1) Then inputMaterial
Loop Until menuChoice = "done"
Dim lstpr As Integer
For lstpr = 1 to 5
workPart.SetUserAttribute(usrAttr(lstpr,1), -1, usrAttr(lstpr,2), Update.Option.Now)
Next
End Sub
Function opChoice() As String
Dim theUfSession As UFSession = UFSession.GetUFSession()
Dim opList As New List(Of String)
opList.Add(usrAttr(1,1) & " : " & usrAttr(1,2))
opList.Add(usrAttr(2,1) & " : " & usrAttr(2,2))
opList.Add(usrAttr(3,1) & " : " & usrAttr(3,2))
opList.Add(usrAttr(4,1) & " : " & usrAttr(4,2))
opList.Add(usrAttr(5,1) & " : " & usrAttr(5,2))
opList.Add("Done")
Dim retVal As Integer = 0
Dim title As String = "Select file output type"
theUfSession.Ui.LockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
retVal = theUFSession.Ui.DisplayMenu(title, 1, opList.ToArray, opList.Count)
theUFSession.Ui.UnlockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
'1=back
'2=cancel
'5-18=menu item selected
'19=disallowed state, unable to bring up dialog
Select Case retVal
Case Is = 5
Return usrAttr(1,1)
Case Is = 6
Return usrAttr(2,1)
Case Is = 7
Return usrAttr(3,1)
Case Is = 8
Return usrAttr(4,1)
Case Is = 9
Return usrAttr(5,1)
Case Is = 10
Return "done"
End Select
End Function
Function inputSheet() As String
Dim answer As String = usrAttr(1,2)
Dim myInt As Integer
Do
answer = NXInputBox.GetInputString("Enter Sheet Number", "Enter Sheet Number", usrAttr(1,2))
Loop Until Integer.TryParse(answer, myInt)
usrAttr(1,2) = myInt.ToString(0)
return answer
End Function
Function inputDescription() As String
Dim theUfSession As UFSession = UFSession.GetUFSession()
Dim theSession As Session = Session.GetSession()
Dim lw As ListingWindow = theSession.ListingWindow
Dim dsList As New List(Of String)
dsList.Add("Use File Name : " ) '& fnameAsDesc)
dsList.Add("Enter Text")
dsList.Add("Done")
Dim retVal As Integer = 0
Dim title As String = "Select file output type"
theUfSession.Ui.LockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
retVal = theUFSession.Ui.DisplayMenu(title, 1, dsList.ToArray, dsList.Count)
theUFSession.Ui.UnlockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
Select Case retVal
Case Is = 5
lw.writeline (fnameAsDesc.toupper())
fnameAsDesc = fnameAsDesc.ToUpper()
usrAttr(2,2) = fnameAsDesc
Return usrAttr(2,2)
Case Is = 6
Dim answer As String = ""
Do
answer = NXInputBox.GetInputString("Enter Description","Enter Description",usrAttr(2,2))
Loop Until answer.Trim.Length > 0
usrAttr(2,2) = answer.ToUpper()
Return usrAttr(2,2)
Case Is = 7
usrAttr(2,2) = usrAttr(2,2).ToUpper()
Return usrAttr(2,2)
End Select
End Function
Function inputSize() As String
Dim theUfSession As UFSession = UFSession.GetUFSession()
Dim szList As New List(Of String)
szList.Add("Pick Body")
szList.Add("Enter Size")
szList.Add("Done")
Dim retVal As Integer = 0
Dim title As String = usrAttr(3,1) & " " & usrAttr(3,2)
theUfSession.Ui.LockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
retVal = theUFSession.Ui.DisplayMenu(title, 1, szList.ToArray, szList.Count)
theUFSession.Ui.UnlockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
Select Case retVal
Case Is = 5
Dim answer As String = sizAttrString
Dim s As Session = Session.GetSession()
Dim ufs As UFSession = UFSession.GetUFSession()
Dim a_body As NXOpen.Tag = NXOpen.Tag.Null
Dim csys As NXOpen.Tag = NXOpen.Tag.Null
Dim target As NXOpen.Tag = NXOpen.Tag.Null
Dim blockFeature As NXOpen.Tag = NXOpen.Tag.Null
Dim min_corner(2) As Double
Dim directions(2, 2) As Double
Dim distances(2) As Double
Dim edge_len(2) As String
While select_a_body(a_body) = Selection.Response.Ok
ufs.Csys.AskWcs(csys)
ufs.Modl.AskBoundingBoxExact(a_Body, csys, min_corner, directions, distances)
usrAttr(3,2) = (distances(0).ToString("f4") & " x " & distances(1).ToString("f4") & " x " & distances(2).ToString("f4"))
Return usrAttr(3,2)
End While
Case Is = 6
Dim Answer As String = usrAttr(3,2)
Do
answer = NXInputBox.GetInputString("Enter Size","Enter Size",usrAttr(3,2))
Loop Until answer.Trim.Length > 0
usrAttr(3,2) = answer.ToUpper()
Return usrAttr(3,2)
Case Is = 7
usrAttr(3,2) = usrAttr(3,2).ToUpper
Return usrAttr(3,2)
End Select
End Function
Function inputVendor() As String
Dim answer As String = ""
Do
answer = NXInputBox.GetInputString("Enter Vendor", "Enter Vendor", usrAttr(4,2))
Loop Until answer.Trim.Length > 0
usrAttr(4,2) = answer.ToUpper()
Return usrAttr(4,2)
End Function
Function inputMaterial() As String
Dim answer As String = ""
Do
answer = NXInputBox.GetInputString("Enter Part Number/Material", "Enter Part Number/Material", usrAttr(5,2))
Loop Until answer.Trim.Length > 0
usrAttr(5,2) = answer.ToUpper()
Return usrAttr(5,2)
End Function
Function select_a_body(ByRef a_body As NXOpen.Tag) As Selection.Response
Dim message As String = "Select a body"
Dim title As String = "Select a body"
Dim scope As Integer = UFConstants.UF_UI_SEL_SCOPE_ANY_IN_ASSEMBLY
Dim response As Integer
Dim view As NXOpen.Tag
Dim cursor(2) As Double
Dim ip As UFUi.SelInitFnT = AddressOf body_init_proc
ufs.Ui.LockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)
Try
ufs.Ui.SelectWithSingleDialog(message, title, scope, ip, _
Nothing, response, a_body, cursor, view)
Finally
ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)
End Try
If response <> UFConstants.UF_UI_OBJECT_SELECTED And _
response <> UFConstants.UF_UI_OBJECT_SELECTED_BY_NAME Then
Return Selection.Response.Cancel
Else
ufs.Disp.SetHighlight(a_body, 0)
Return Selection.Response.Ok
End If
End Function
Function body_init_proc(ByVal select_ As IntPtr, _
ByVal userdata As IntPtr) As Integer
Dim num_triples As Integer = 1
Dim mask_triples(0) As UFUi.Mask
mask_triples(0).object_type = UFConstants.UF_solid_type
mask_triples(0).object_subtype = UFConstants.UF_solid_body_subtype
mask_triples(0).solid_type = UFConstants.UF_UI_SEL_FEATURE_BODY
ufs.Ui.SetSelMask(select_, _
UFUi.SelMaskAction.SelMaskClearAndEnableSpecific, _
num_triples, mask_triples)
Return UFConstants.UF_UI_SEL_SUCCESS
End Function
Public Function GetUnloadOption(ByVal dummy As String) As Integer
GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY
End Function
Function setUsrAttr
usrAttr(1,1) = "sheet"
usrAttr(1,2) = "1"
usrAttr(2,1) = "description"
usrAttr(2,2) = "now this is going to be a very long file name"
usrAttr(3,1) = "size"
usrAttr(3,2) = "0 x 0 x 0"
usrAttr(4,1) = "vendor"
usrAttr(4,2) = "NA"
usrAttr(5,1) = "part_num"
usrAttr(5,2) = "-"
usrAttr(6,1) = "input_bom_lock"
usrAttr(6,2) = "false"
Return usrAttr
End Function
Function getUsrAttr
Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim lw As ListingWindow = theSession.ListingWindow
Dim stpr As Integer
For stpr = 1 to 6
If workPart.HasUserAttribute(usrAttr(stpr,1), NXObject.AttributeType.String, -1) Then
Dim attrString As NXObject.AttributeInformation = workPart.GetUserAttribute(usrAttr(stpr,1), NXObject.AttributeType.Any, -1)
usrAttr(stpr,2) = attrString.StringValue
lw.writeline(usrAttr(stpr,1))
lw.writeline(usrAttr(stpr,2))
End If
Next
Return usrAttr
End function
End Module
