Code is working fine for me but now I want to get the input from user that which part they want to import by using elseif condition.
I tried but that code is not working.
attached code will import part on different point location.
requirement is to import any one of the parts out of two and place position.
Imports System
Imports NXOpen
Module NXJournal
Sub Main (ByVal args() As String)
Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
Dim workPart As NXOpen.Part = theSession.Parts.Work
Dim displayPart As NXOpen.Part = theSession.Parts.Display
' ----------------------------------------------
' Menu: File->Import->Part...
' ----------------------------------------------
Dim markId4 As NXOpen.Session.UndoMarkId = Nothing
markId4 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Invisible, "Start")
theSession.SetUndoMarkName(markId4, "Import Part Dialog")
' ----------------------------------------------
' Dialog Begin Import Part
' ----------------------------------------------
Dim markId5 As NXOpen.Session.UndoMarkId = Nothing
markId5 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Invisible, "Import Part")
theSession.DeleteUndoMark(markId5, Nothing)
Dim markId6 As NXOpen.Session.UndoMarkId = Nothing
markId6 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Invisible, "Import Part")
theSession.DeleteUndoMark(markId6, Nothing)
theSession.SetUndoMarkName(markId4, "Import Part")
theSession.DeleteUndoMark(markId4, Nothing)
theSession.Parts.SetNonmasterSeedPartData("@DB/002891/00")
Dim markId7 As NXOpen.Session.UndoMarkId = Nothing
markId7 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Visible, "Import Part")
Dim partImporter1 As NXOpen.PartImporter = Nothing
partImporter1 = workPart.ImportManager.CreatePartImporter()
partImporter1.FileName = "@DB/002891/00"
partImporter1.Scale = 1.0
partImporter1.CreateNamedGroup = True
partImporter1.ImportViews = False
partImporter1.ImportCamObjects = False
partImporter1.LayerOption = NXOpen.PartImporter.LayerOptionType.Work
partImporter1.DestinationCoordinateSystemSpecification = NXOpen.PartImporter.DestinationCoordinateSystemSpecificationType.Work
Dim element1 As NXOpen.Matrix3x3 = Nothing
element1.Xx = 1.0
element1.Xy = 0.0
element1.Xz = 0.0
element1.Yx = 0.0
element1.Yy = 1.0
element1.Yz = 0.0
element1.Zx = 0.0
element1.Zy = 0.0
element1.Zz = 1.0
Dim nXMatrix1 As NXOpen.NXMatrix = Nothing
nXMatrix1 = workPart.NXMatrices.Create(element1)
partImporter1.DestinationCoordinateSystem = nXMatrix1
Dim unit As String = InputBox("Unit (M for millimeters, I for inches):", "Enter Unit of Meausrement")
Dim sheetSize As String = InputBox("Enter sheet size (e.g., A0, A4, A, E):", "Sheet Size")
Dim sheetWidth As Double
Dim sheetHeight As Double
If unit.ToUpper() = "M" Then
' Calculate the width and height in millimeters based on the sheet size
Select Case sheetSize.ToUpper()
Case "A0"
sheetWidth = 841.0
sheetHeight = 1189.0
Case "A1"
sheetWidth = 594.0
sheetHeight = 841.0
Case "A2"
sheetWidth = 420.0
sheetHeight = 594.0
Case "A3"
sheetWidth = 297.0
sheetHeight = 420.0
Case "A4"
sheetWidth = 297.0
sheetHeight = 210.0
Case Else
' Handle invalid sheet size
Console.WriteLine("Invalid sheet size.")
Return
End Select
ElseIf unit.ToUpper() = "I" Then
' Calculate the width and height in inches based on the sheet size
Select Case sheetSize.ToUpper()
Case "A"
sheetWidth = 11.0
sheetHeight = 8.5
Case "B"
sheetWidth = 11.0
sheetHeight = 17.0
Case "C"
sheetWidth = 17.0
sheetHeight = 22.0
Case "D"
sheetWidth = 22.0
sheetHeight = 34.0
Case "E"
sheetWidth = 34.0
sheetHeight = 44.0
Case "F"
sheetWidth = 28.0
sheetHeight = 40.0
Case Else
' Handle invalid sheet size
Console.WriteLine("Invalid sheet size.")
Return
End Select
Else
' Handle invalid unit
Console.WriteLine("Invalid unit of measurement.")
Return
End If
' Calculate the destination point coordinates based on sheet size
Dim x As Double = SheetHeight - 10
Dim y As Double = 10
Dim z As Double = 0.0
' Create the destination point with the calculated coordinates
Dim destinationPoint1 As NXOpen.Point3d = New NXOpen.Point3d(x, y, z)
partImporter1.DestinationPoint = destinationPoint1
Dim markId8 As NXOpen.Session.UndoMarkId = Nothing
markId8 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Invisible, "Import Part Commit")
' User Function call - UF_PART_ask_part_name
' User Function call - UF_PART_ask_part_name
' User Function call - UF_UGMGR_decode_part_file_name
' User Function call - UF_PART_ask_part_name
' User Function call - UF_UGMGR_decode_part_file_name
Dim nXObject2 As NXOpen.NXObject = Nothing
nXObject2 = partImporter1.Commit()
theSession.DeleteUndoMark(markId8, Nothing)
partImporter1.Destroy()
' ----------------------------------------------
' Menu: File->Import->Part...
' ----------------------------------------------
Dim markId9 As NXOpen.Session.UndoMarkId = Nothing
markId9 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Invisible, "Start")
theSession.SetUndoMarkName(markId9, "Import Part Dialog")
' ----------------------------------------------
' Dialog Begin Import Part
' ----------------------------------------------
Dim markId10 As NXOpen.Session.UndoMarkId = Nothing
markId10 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Invisible, "Import Part")
theSession.DeleteUndoMark(markId10, Nothing)
Dim markId11 As NXOpen.Session.UndoMarkId = Nothing
markId11 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Invisible, "Import Part")
theSession.DeleteUndoMark(markId11, Nothing)
theSession.SetUndoMarkName(markId9, "Import Part")
theSession.DeleteUndoMark(markId9, Nothing)
theSession.Parts.SetNonmasterSeedPartData("@DB/002892/00")
Dim markId12 As NXOpen.Session.UndoMarkId = Nothing
markId12 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Visible, "Import Part")
Dim partImporter2 As NXOpen.PartImporter = Nothing
partImporter2 = workPart.ImportManager.CreatePartImporter()
partImporter2.FileName = "@DB/002892/00"
partImporter2.Scale = 1.0
partImporter2.CreateNamedGroup = True
partImporter2.ImportViews = False
partImporter2.ImportCamObjects = False
partImporter2.LayerOption = NXOpen.PartImporter.LayerOptionType.Work
partImporter2.DestinationCoordinateSystemSpecification = NXOpen.PartImporter.DestinationCoordinateSystemSpecificationType.Work
Dim element2 As NXOpen.Matrix3x3 = Nothing
element2.Xx = 1.0
element2.Xy = 0.0
element2.Xz = 0.0
element2.Yx = 0.0
element2.Yy = 1.0
element2.Yz = 0.0
element2.Zx = 0.0
element2.Zy = 0.0
element2.Zz = 1.0
Dim nXMatrix2 As NXOpen.NXMatrix = Nothing
nXMatrix2 = workPart.NXMatrices.Create(element2)
partImporter2.DestinationCoordinateSystem = nXMatrix2
' Calculate the destination point coordinates based on sheet size
Dim x1 As Double = SheetHeight - 10
Dim y1 As Double = SheetWidth - 10
Dim z1 As Double = 0.0
' Create the destination point with the calculated coordinates
Dim destinationPoint2 As NXOpen.Point3d = New NXOpen.Point3d(x1, y1, z1)
partImporter2.DestinationPoint = destinationPoint2
Dim markId13 As NXOpen.Session.UndoMarkId = Nothing
markId13 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Invisible, "Import Part Commit")
' User Function call - UF_PART_ask_part_name
' User Function call - UF_PART_ask_part_name
' User Function call - UF_UGMGR_decode_part_file_name
' User Function call - UF_PART_ask_part_name
' User Function call - UF_UGMGR_decode_part_file_name
Dim nXObject3 As NXOpen.NXObject = Nothing
nXObject3 = partImporter2.Commit()
theSession.DeleteUndoMark(markId13, Nothing)
partImporter2.Destroy()
End Sub
End Module