Option Strict Off
Imports System
Imports System.IOImports System.Windows.FormsImports System.DrawingImports System.Drawing.ImagingImports System.CollectionsImports System.Runtime.InteropServicesImports NXOpen
Imports NXOpen.GeometricUtilitiesImports NXOpen.UFImports NXOpen.AssembliesImports NXOpenUI
Imports System.Collections.GenericImports System.ThreadingImports Microsoft.OfficeImports Microsoft.Office.Interop.PowerPointImports Microsoft.Office.InteropImports Microsoft.Office.Interop.Excel 
 
Module OnePagerToolNX
 
    Dim theSession As Session = Session.GetSession()Dim workPart As Part = theSession.Parts.WorkDim displayPart As Part = theSession.Parts.DisplayDim theUI As UI = UI.GetUIDim ufs As UFSession = UFSession.GetUFSessionDim lw As ListingWindow = theSession.ListingWindow'Dim AppPowerPoint As PowerPoint.Application = Nothing'Dim ActiveSlide As PowerPoint.Slide = Nothing'Dim ActivePresentation As PowerPoint.Presentation = NothingDim AppPowerPoint AsObject=Nothing' NX Doesnot support Powerpoint or Office ObjectsDim ActiveSlide AsObject=NothingDim ActivePresentation AsObject=NothingDim RefFileName AsString=NothingDim RefPresentation AsObject=NothingDim RefSlide AsObject=NothingDim ModelParts AsNew ArrayList
    Dim AssyParts AsNew ArrayList
    Dim MyPart As Part =NothingDim PowerpointFileName AsString=NothingDim PowerpointFileExists AsBoolean=FalseDim basePart1 As BasePart =NothingDim allParts()As Part =Nothing 
 
    Sub Main() 
        lw.Open() 
        Dim ParentPartNo AsString=NothingDim ParentPartRev AsString=NothingDim ParentPartName AsString=NothingDim CurrentDate AsString= System.DateTime.Today
        ParentPartNo ="X"'workPart.GetStringAttribute("DB_PART_NO")
        ParentPartRev ="Y"'workPart.GetStringAttribute("DB_PART_REV")
        ParentPartName ="Z"'workPart.GetStringAttribute("DB_PART_NAME") 
        'Create Powerpoint File and Save it in user defined locationDim SaveFileDialog1 AsNew SaveFileDialog
        With SaveFileDialog1
            .Title="Save OnePager to Presentation File".InitialDirectory="C:\".Filter="PowerpointFiles (*.pptx)|*.pptx|Macro enabled Powerpoint files (*.pptm)|*.pptm|All files (*.*)|*.*".FilterIndex=1.RestoreDirectory=True.OverwritePrompt=False.FileName= ParentPartNo &"- One Pager Presentation"If.ShowDialog()= DialogResult.OKThen
                PowerpointFileName =.FileNameElseExitSubEndIfEndWith 
        If AppPowerPoint IsNothingThen
            AppPowerPoint =CreateObject("PowerPoint.Application") 
            If AppPowerPoint IsNothingThen
                theUI.NXMessageBox.Show("Error", NXMessageBox.DialogType.Error, "Could not start Powerpoint, journal exiting")ExitSubEndIfEndIf 
        AppPowerPoint.Visible=True 
        If File.Exists(PowerpointFileName)Then
            PowerpointFileExists =True
            ActiveSlide = AppPowerPoint.Presentations.Open(PowerpointFileName)Else
            ActivePresentation = AppPowerPoint.Presentations.Add()
            ActivePresentation.SaveAs(PowerpointFileName)EndIf 
        If ActivePresentation IsNothingThen
            theUI.NXMessageBox.Show("Error", NXMessageBox.DialogType.Error, "Could not open Powerpoint file: "& PowerpointFileName & ControlChars.NewLine&"journal exiting.")ExitSubEndIf 
        RefPresentation = AppPowerPoint.Presentations.Open("C:\MyTemplate.pptx") 
        For i AsInteger=1To RefPresentation.Slides.Count
            RefPresentation.Slides.Item(i).Copy()
            ActivePresentation.Slides.Paste()'ActivePresentation.Slides.Item(i).Design = RefPresentation.Slides.Item(i).Design()Next i
        RefPresentation.Close() 
        Dim Titlebox AsObject=NothingDim DateBox AsObject=Nothing 
        Titlebox = ActivePresentation.slides(1).Shapes.AddTextbox(1, 20, 150, 400, 30)With Titlebox.TextFrame.TextRange.Text= ParentPartNo &"/"& ParentPartRev &" : "& ParentPartName
            .Font.Bold=True.Font.Name="Times New Roman".Font.Size=15EndWith 
        DateBox = ActivePresentation.slides(1).Shapes.AddTextbox(1, 20, 260, 150, 15)With DateBox.TextFrame.TextRange.Text= CurrentDate.ToString.Font.Bold=False.Font.Name="Times New Roman".Font.Size=11EndWith 
 
        'Categorize Assembly and Parts in the current session
        allParts = theSession.Parts.ToArray()ForEach Part1 As Part In allParts
            Dim thisTag As NXOpen.Tag= ufs.Assem.AskRootPartOcc(Part1.Tag)If thisTag = NXOpen.Tag.NullThen
                ModelParts.Add(Part1)Else
                AssyParts.Add(Part1)EndIfNext 
        'Export all Parts Detail to Powerpoint 
        ForEach Part2 As Part In AssyParts
            MyPart = Part2
            Call CreatePPT()Next 
        ForEach Part3 As Part In ModelParts
            MyPart = Part3
            Call CreatePPT()Next 
        'ActivePresentation.Slides(2).Delete()
        ActivePresentation.Save()
        ActivePresentation.Close()
        AppPowerPoint.Quit()
        AppPowerPoint =Nothing
        ActivePresentation =Nothing
        ActiveSlide =Nothing 
 
    EndSubSub CreatePPT() 
        Dim Partno AsString=Nothing 
        Dim MyPartLoadStatus As PartLoadStatus =NothingDim SDPSstatus As PartCollection.SdpsStatus=Nothing
        SDPSstatus = theSession.Parts.SetDisplay(MyPart, False, False, MyPartLoadStatus)Dim tempScreenshot AsStringDim tempLocation AsString="C:\Temp" 
        'Getting Part AttributesTry
            Partno = MyPart.GetStringAttribute("DB_PART_NO")Catch ex As NXException
            lw.WriteLine("Partno Not found"& ex.ErrorCode&":"& ex.Message.ToString)
            Partno ="Not Found"EndTry 
 
        'Capture ViewsDim Mylayout As Layout =Nothing'Hide unwanted Items in ViewDim visibleObjects()As DisplayableObject =NothingTry
            Mylayout =CType(MyPart.Layouts.FindObject("L1"), Layout)Const OtheritemLayer AsInteger=6'Const Solidlayer As Integer = 1Dim Isoview As ModelingView =CType(MyPart.ModelingViews.FindObject("Isometric"), ModelingView)
            Mylayout.ReplaceView(MyPart.ModelingViews.WorkView, Isoview, True)
            visibleObjects = MyPart.ModelingViews.WorkView.AskVisibleObjects()ForEach Obj As DisplayableObject In visibleObjects
                IfTypeOf(Obj)Is DatumPlane Then
                    Obj.Layer= OtheritemLayer
                    Obj.RedisplayObject()EndIfIfTypeOf(Obj)Is CoordinateSystem Then
                    Obj.Layer= OtheritemLayer
                    Obj.RedisplayObject()EndIfIfTypeOf(Obj)Is DatumAxis Then
                    Obj.Layer= OtheritemLayer
                    Obj.RedisplayObject()EndIfIfTypeOf(Obj)Is Curve Then
                    Obj.Layer= OtheritemLayer
                    Obj.RedisplayObject()EndIf 
                IfTypeOf(Obj)Is Sketch Then
                    Obj.Layer= OtheritemLayer
                    Obj.RedisplayObject()EndIf 
            Next
            MyPart.Layers.SetState(1, Layer.State.WorkLayer)
            MyPart.Layers.SetState(6, Layer.State.Hidden)Catch ex As NXException
            lw.WriteLine(Partno &": Layers are not correct Please Check Image-"& ex.ErrorCode&":"& ex.Message.ToString)EndTry 
 
        TryDim currentScale AsDouble= workPart.ModelingViews.WorkView.Scale
            workPart.ModelingViews.WorkView.Fit()
            workPart.ModelingViews.WorkView.SetScale(currentScale)Catch ex As Exception
            lw.WriteLine(Partno & ex.Message.ToString&"View Scale failed")EndTryTryDim Isoview As ModelingView =CType(MyPart.ModelingViews.FindObject("Isometric"), ModelingView)
            Mylayout.ReplaceView(MyPart.ModelingViews.WorkView, Isoview, True)
            MyPart.ModelingViews.WorkView.RenderingStyle= NXOpen.View.RenderingStyleType.ShadedWithEdges
            tempScreenshot = IO.Path.Combine(tempLocation, Partno &"- ISO.jpg")
            ExportScreenshot(tempScreenshot) 
        Catch ex As NXException
            lw.WriteLine(Partno &": ISO View Not Generated-"& ex.ErrorCode&":"& ex.Message.ToString)EndTry'Capture Front ViewTryDim Frontview As ModelingView =CType(MyPart.ModelingViews.FindObject("Front"), ModelingView)
            Mylayout.ReplaceView(MyPart.ModelingViews.WorkView, Frontview, True)
            MyPart.ModelingViews.WorkView.RenderingStyle= NXOpen.View.RenderingStyleType.ShadedWithEdges
            tempScreenshot = IO.Path.Combine(tempLocation, Partno &"- Front.jpg")
            ExportScreenshot(tempScreenshot) 
        Catch ex As NXException
            lw.WriteLine(Partno &": Front View Not Generated-"& ex.ErrorCode&":"& ex.Message.ToString)EndTry 
        'Capture Left ViewTryDim Leftview As ModelingView =CType(MyPart.ModelingViews.FindObject("Left"), ModelingView)
            Mylayout.ReplaceView(MyPart.ModelingViews.WorkView, Leftview, True)
            MyPart.ModelingViews.WorkView.RenderingStyle= NXOpen.View.RenderingStyleType.ShadedWithEdges
            tempScreenshot = IO.Path.Combine(tempLocation, Partno &"- Left.jpg")
            ExportScreenshot(tempScreenshot) 
        Catch ex As NXException
            lw.WriteLine(Partno &": Left View Not Generated-"& ex.ErrorCode&":"& ex.Message.ToString)EndTry 
        'Capture Top ViewTryDim Topview As ModelingView =CType(MyPart.ModelingViews.FindObject("Top"), ModelingView)
            Mylayout.ReplaceView(MyPart.ModelingViews.WorkView, Topview, True)
            MyPart.ModelingViews.WorkView.RenderingStyle= NXOpen.View.RenderingStyleType.ShadedWithEdges
            tempScreenshot = IO.Path.Combine(tempLocation, Partno &"- Top.jpg")
            ExportScreenshot(tempScreenshot) 
        Catch ex As NXException
            lw.WriteLine(Partno &": Top View Not Generated-"& ex.ErrorCode&":"& ex.Message.ToString)EndTry 
 
        AppPowerPoint.ActivePresentation.Slides.AddSlide(AppPowerPoint.ActivePresentation.Slides.Count+1, AppPowerPoint.ActivePresentation.SlideMaster.CustomLayouts(7))
        AppPowerPoint.ActiveWindow.View.GotoSlide(AppPowerPoint.ActivePresentation.Slides.Count)
        ActiveSlide = AppPowerPoint.ActivePresentation.Slides(AppPowerPoint.ActivePresentation.Slides.Count)'Adding Images from Temporary LocationTry
            ActiveSlide.Shapes.AddPicture(tempLocation &"\"& Partno &"- ISO.jpg", False, True, 40, 60, 200, 200)
            ActiveSlide.Shapes.AddPicture(tempLocation &"\"& Partno &"- Left.jpg", False, True, 40, 280, 200, 200)
            ActiveSlide.Shapes.AddPicture(tempLocation &"\"& Partno &"- Top.jpg", False, True, 280, 60, 200, 200)
            ActiveSlide.Shapes.AddPicture(tempLocation &"\"& Partno &"- Front.jpg", False, True, 280, 280, 200, 200)Catch ex As Exception
            lw.WriteLine(Partno &": Image Not added-"& ex.Message.ToString)EndTry 
        ForEach Myshape AsObjectIn ActiveSlide.Shapes
            Myshape.Select()
            Myshape.Line.Transparency=1
            Myshape.Line.Weight=1
            Myshape.Line.Visible=1Next 
 
    EndSub 
 
    Sub ExportScreenshot(ByVal filename AsString) 
        'save user preference for visibility of WCS, triad, view name, and view borderDim wcsVisible AsBoolean= theSession.Parts.BaseDisplay.WCS.VisibilityDim triadVisible AsInteger= theSession.Preferences.ScreenVisualization.TriadVisibilityDim displayModelViewNames AsBoolean= theSession.Parts.BaseDisplay.Preferences.NamesBorderVisualization.ShowModelViewNamesDim displayModelViewBorders AsBoolean= theSession.Parts.BaseDisplay.Preferences.NamesBorderVisualization.ShowModelViewBorders 
        'turn off the WCS, triad, view name, and view border
        theSession.Parts.BaseDisplay.WCS.Visibility=False
        theSession.Preferences.ScreenVisualization.TriadVisibility=True
        theSession.Parts.BaseDisplay.Preferences.NamesBorderVisualization.ShowModelViewBorders=False
        theSession.Parts.BaseDisplay.Preferences.NamesBorderVisualization.ShowModelViewNames=False 
        Try
            ufs.Disp.CreateImage(filename, UFDisp.ImageFormat.Jpeg, UFDisp.BackgroundColor.White)'Dim Upleftcorner() As Integer = Nothing'Upleftcorner(0) = 0'Upleftcorner(1) = 0'ufs.Disp.CreateFramedImage(filename, UFDisp.ImageFormat.Jpeg, UFDisp.BackgroundColor.White, Upleftcorner, 200, 200)Catch ex As Exception
            MsgBox(ex.Message& ControlChars.NewLine& _
                   "'"& filename &"' could not be created")ThrowNew Exception("Screenshot could not be created")Finally'reset visibility of WCS, triad, view name, and view border to user's preference
            theSession.Parts.BaseDisplay.WCS.Visibility= wcsVisible
            theSession.Preferences.ScreenVisualization.TriadVisibility= triadVisible
            theSession.Parts.BaseDisplay.Preferences.NamesBorderVisualization.ShowModelViewBorders= displayModelViewBorders
            theSession.Parts.BaseDisplay.Preferences.NamesBorderVisualization.ShowModelViewNames= displayModelViewNames
        EndTry 
    EndSub 
    PublicFunction GetUnloadOption(ByVal dummy AsString)AsInteger'Unloads the image immediately after execution within NX
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately 
    EndFunction 
EndModule 
 
 

Option Strict Off
Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports NXOpen
Imports NXOpen.UF
 
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: Tools->Operation Navigator->Tool Path->Simulate...
' ----------------------------------------------
Dim markId1 As NXOpen.Session.UndoMarkId
markId1 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Invisible, "Start")
 
Dim kinematicConfigurator1 As NXOpen.SIM.KinematicConfigurator
kinematicConfigurator1 = workPart.KinematicConfigurator
 
Dim objects1(0) As NXOpen.CAM.CAMObject
Dim nCGroup1 As NXOpen.CAM.NCGroup = CType(workPart.CAMSetup.CAMGroupCollection.FindObject("NC_PROGRAM"), NXOpen.CAM.NCGroup)
 
objects1(0) = nCGroup1
Dim isvControlPanelBuilder1 As NXOpen.SIM.IsvControlPanelBuilder
isvControlPanelBuilder1 = kinematicConfigurator1.CreateIsvControlPanelBuilder(NXOpen.SIM.IsvControlPanelBuilder.VisualizationType.ToolPathSimulation, objects1)
 
isvControlPanelBuilder1.SetSingleStep(NXOpen.SIM.IsvControlPanelBuilder.SingleStepType.Block)
 
isvControlPanelBuilder1.SetSpeed(10)
 
theSession.SetUndoMarkName(markId1, "Simulation Control Panel Dialog")
 
theSession.SetUndoMarkVisibility(markId1, Nothing, NXOpen.Session.MarkVisibility.Invisible)
 
Dim simulationOptionsBuilder1 As NXOpen.CAM.SimulationOptionsBuilder
simulationOptionsBuilder1 = isvControlPanelBuilder1.SimulationOptionsBuilder
 
Dim response1 As Integer
response1 = isvControlPanelBuilder1.SetShow3dMaterialRemoval(True)
 
isvControlPanelBuilder1.SingleStepForward()
 ExportScreenshot("''''destination folder''''\Nx_screenshot0001.png")
isvControlPanelBuilder1.SingleStepForward()
 ExportScreenshot("''''destination folder''''\NX_screenshot0002.png")
isvControlPanelBuilder1.SingleStepForward()
 ExportScreenshot("''''destination folder''''\NX_screenshot0003.png")
isvControlPanelBuilder1.SingleStepForward()
 ExportScreenshot("''''destination folder''''\NX_screenshot0004.png")
isvControlPanelBuilder1.SingleStepForward()
 ExportScreenshot("''''destination folder''''\NX_screenshot0005.png")
isvControlPanelBuilder1.SingleStepForward()
 ExportScreenshot("''''destination folder''''\NX_screenshot0006.png")
isvControlPanelBuilder1.SingleStepForward()
 
isvControlPanelBuilder1.SingleStepForward()
 
isvControlPanelBuilder1.SingleStepForward()
 
isvControlPanelBuilder1.SingleStepForward()
 
isvControlPanelBuilder1.SingleStepForward()
 
isvControlPanelBuilder1.SingleStepForward()
 
 
' ----------------------------------------------
'   Menu: Tools->Journal->Stop Recording
' ----------------------------------------------
 
End Sub
 
Dim theSession As Session = Session.GetSession()
Dim theUfSession As UFSession = UFSession.GetUFSession()
 
Sub submain()
 
        If IsNothing(theSession.Parts.BaseWork) Then
            'active part required
            Return
        End If
 
        Dim workPart As Part = theSession.Parts.Work
        Dim lw As ListingWindow = theSession.ListingWindow
        lw.Open()
 
        'change export location as needed
        'ExportScreenshot("\\myhome.itap.purdue.edu\myhome\kbernadi\ecn.data\Desktop\testfolder\NX_screenshot.png")
 
        'optional, delete the image file
        'DeleteFile("\\myhome.itap.purdue.edu\myhome\kbernadi\ecn.data\Desktop\testfolder\NX_screenshot.png")
 
        lw.Close()
 
    End Sub
 
Sub ExportScreenshot(ByVal filename As String)
 
        Dim wcsVisible As Boolean = theSession.Parts.Display.WCS.Visibility
        Dim triadVisible As Integer = theSession.Preferences.ScreenVisualization.TriadVisibility
 
 
        Try
            DeleteFile(filename)
 
            theSession.Parts.Display.WCS.Visibility = False
            theSession.Preferences.ScreenVisualization.TriadVisibility = 0
 
            theUfSession.Disp.CreateImage(filename, UFDisp.ImageFormat.Png, UFDisp.BackgroundColor.White)
        Catch ex As Exception
            MsgBox(ex.Message & ControlChars.NewLine & _
                   "'" & filename & "' could not be created")
            'Return
 
        Finally
            theSession.Parts.Display.WCS.Visibility = wcsVisible
            theSession.Preferences.ScreenVisualization.TriadVisibility = triadVisible
 
        End Try
 
        'copy image to clipboard
        Dim theImage As Bitmap = CType(Image.FromFile(filename), Bitmap)
        Clipboard.SetImage(theImage)
 
    End Sub
 
Sub DeleteFile(ByVal filePath As String)
 
        'does file exist? if so, try to delete it (overwrite)
        If IO.File.Exists(filePath) Then
            IO.File.Delete(filePath)
        End If
 
    End Sub
 
Public Function GetUnloadOption(ByVal dummy As String) As Integer
 
        'Unloads the image immediately after execution within NX
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
 
    End Function
 
End Module

Option Strict Off
Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports NXOpen
Imports NXOpen.UF
 
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
 
 
Dim markId1 As NXOpen.Session.UndoMarkId
markId1 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Invisible, "Start")
 
Dim kinematicConfigurator1 As NXOpen.SIM.KinematicConfigurator
kinematicConfigurator1 = workPart.KinematicConfigurator
 
Dim objects1(0) As NXOpen.CAM.CAMObject
Dim nCGroup1 As NXOpen.CAM.NCGroup = CType(workPart.CAMSetup.CAMGroupCollection.FindObject("NC_PROGRAM"), NXOpen.CAM.NCGroup)
 
objects1(0) = nCGroup1
Dim isvControlPanelBuilder1 As NXOpen.SIM.IsvControlPanelBuilder
isvControlPanelBuilder1 = kinematicConfigurator1.CreateIsvControlPanelBuilder(NXOpen.SIM.IsvControlPanelBuilder.VisualizationType.ToolPathSimulation, objects1)
 
isvControlPanelBuilder1.SetSingleStep(NXOpen.SIM.IsvControlPanelBuilder.SingleStepType.Block)
 
isvControlPanelBuilder1.SetSpeed(10)
 
theSession.SetUndoMarkName(markId1, "Simulation Control Panel Dialog")
 
theSession.SetUndoMarkVisibility(markId1, Nothing, NXOpen.Session.MarkVisibility.Invisible)
 
Dim simulationOptionsBuilder1 As NXOpen.CAM.SimulationOptionsBuilder
simulationOptionsBuilder1 = isvControlPanelBuilder1.SimulationOptionsBuilder
 
Dim response1 As Integer
response1 = isvControlPanelBuilder1.SetShow3dMaterialRemoval(True)
 
isvControlPanelBuilder1.SingleStepForward()
 
End Sub
 
End Module

theSession = NXOpen.Session.GetSession()
theSession.Parts.SaveAll()

import NXOpen.UF
theUFSession = NXOpen.UF.UFSession.GetUFSession()
 
theUFSession.Part.SaveAs('newFileName')

Option Strict Off
Imports System
Imports System.IOImports System.Windows.FormsImports System.DrawingImports System.Drawing.ImagingImports System.CollectionsImports System.Runtime.InteropServicesImports NXOpen
Imports NXOpen.GeometricUtilitiesImports NXOpen.UFImports NXOpen.AssembliesImports NXOpenUI
Imports System.Collections.GenericImports System.ThreadingImports Microsoft.OfficeImports Microsoft.Office.Interop.ExcelImports Microsoft.Office.Interop 
 
Module MassandCG
 
    Dim theSession As Session = Session.GetSession()Dim workPart As Part = theSession.Parts.WorkDim displayPart As Part = theSession.Parts.DisplayDim theUI As UI = UI.GetUIDim ufs As UFSession = UFSession.GetUFSessionDim lw As ListingWindow = theSession.ListingWindow 
    Sub Main() 
        Dim MyExcel AsObject=NothingDim MyBook AsObject=NothingDim Mysheet AsObject=NothingDim RefBook AsObject=NothingDim RefSheet AsObject=NothingDim ExcelFileName AsString="C:\Users\t5371pa\Desktop\Checklist.xlsx"Dim ExcelNewFileName AsString="C:\Users\t5371pa\Desktop\Myexcel.xlsx"Dim ExcelFileExists AsBoolean=FalseDim NewExcel AsString=Nothing'Dim MyExcel As Excel.Application = Nothing'Dim MyBook As Workbook = Nothing'Dim Mysheet As Worksheet = Nothing'Dim RefBook As Workbook = Nothing'Dim RefSheet As Worksheet = Nothing 
 
        Dim Partno AsString=NothingDim tempScreenshot AsString=NothingDim tempLocation AsString="C:\Temp"Try
            Partno = workPart.GetStringAttribute("DB_PART_NO")Catch ex As NXException
            lw.WriteLine("Partno Not found"& ex.ErrorCode&":"& ex.Message.ToString)
            Partno ="Not Found"EndTry 
        'Create Excel File and Save it in user defined locationDim Savechecklist AsNew SaveFileDialog
        With Savechecklist
            .Title="Saving Standard DP Check File".InitialDirectory="C:\Users\t5371pa\Desktop".Filter="ExcelFiles (*.xlsx)|*.xlsx|Macro enabled Powerpoint files (*.xlsm)|*.xlsm|All files (*.*)|*.*".FilterIndex=1.RestoreDirectory=True.FileName= ExcelNewFileName
            If.ShowDialog= DialogResult.OKThen
                NewExcel =.FileNameEndIfEndWith 
        If MyExcel IsNothingThen
            MyExcel =CreateObject("Excel.Application")If MyExcel IsNothingThen
                theUI.NXMessageBox.Show("Error", NXMessageBox.DialogType.Error, "Could not start Excel, journal exiting")ExitSubEndIfEndIf 
        MyExcel.Visible=False 
        If File.Exists(ExcelNewFileName)Then'Open the Excel file
            ExcelFileExists =True
            MyBook = MyExcel.Workbooks.Open(ExcelNewFileName)Else'Create the Excel file
            MyBook = MyExcel.Workbooks.Add
            MyBook.SaveAs(ExcelNewFileName)EndIfIf MyBook IsNothingThen
            theUI.NXMessageBox.Show("Error", NXMessageBox.DialogType.Error, "Could not open Excel file: "& ExcelFileName & ControlChars.NewLine&"journal exiting.")ExitSubEndIf 
        Mysheet = MyBook.Worksheets.Add()
        Mysheet.Activate() 
        Dim Row AsInteger=NothingDim i AsInteger=NothingDim MyGroupRep As NXObject =NothingDim MyGroup As Features.Brep=NothingDim Replist As ArrayList =New ArrayList
        Dim Mylist As ArrayList =New ArrayList
 
        ForEach MyGroupRep In workPart.FeaturesIfTypeOf MyGroupRep Is Features.BrepThen
                Replist.Add(MyGroupRep)EndIfNext 
        ForEach MyGroup In Replist
            Mylist.Add(MyGroup)NextMsgBox(Mylist.Count.ToString) 
 
        For Row =1To Mylist.Count-1Dim Thegroup As Features.Brep= Mylist(Row)Dim GruopName AsString= Thegroup.Name
            Thegroup.ShowBody(False)Dim BodyList()As Body =NothingDim MYSolidBodies As List(Of Body)=NothingDim MYSheetBodies As List(Of Body)=Nothing
            BodyList = Thegroup.GetBodies() 
            For j =1To BodyList.Length-1If BodyList(j).IsSolidBodyThen
                    MYSolidBodies.Add(BodyList(i))ElseIf BodyList(j).IsSheetBodyThen
                    MYSheetBodies.Add(BodyList(i))EndIfNextMsgBox(MYSolidBodies.Count.ToString)Dim thebodies()As Body = MYSolidBodies.ToArrayDim Partvolume AsString=NothingDim PartDen AsString=NothingDim PartMass AsString=NothingDim CGValue As Point3d =NothingDim CGX AsString=NothingDim CGY AsString=NothingDim CGZ AsString=Nothing 
            Dim myMeasure As MeasureManager = theSession.Parts.Display.MeasureManager()Dim massUnits(4)As Unit
            massUnits(0)= theSession.Parts.Display.UnitCollection.GetBase("Area")
            massUnits(1)= theSession.Parts.Display.UnitCollection.GetBase("Volume")
            massUnits(2)= theSession.Parts.Display.UnitCollection.GetBase("Mass")
            massUnits(3)= theSession.Parts.Display.UnitCollection.GetBase("Length") 
            Dim MyNewmeasure As MeasureBodies =NothingTry
                MyNewmeasure = myMeasure.NewMassProperties(massUnits, 0.99, thebodies)
                MyNewmeasure.InformationUnit= MeasureBodies.AnalysisUnit.KilogramMillimeterTry
                    Partvolume = MyNewmeasure.Volume.ToString("#.0")Catch ex As NXException
                    Partvolume = MyNewmeasure.Volume.ToString("#.0")EndTryTry
                    PartMass = MyNewmeasure.Mass.ToString("#.0")Catch ex As NXException
                    PartMass = MyNewmeasure.Mass.ToString("#.0")EndTryTry
                    CGValue = MyNewmeasure.Centroid
                    CGX = CGValue.X.ToString("#.0")
                    CGY = CGValue.Y.ToString("#.0")
                    CGZ = CGValue.Z.ToString("#.0")Catch ex As NXException
                    CGX =0
                    CGY =0
                    CGZ =0EndTryTryDim DenFor AsInteger=(MyNewmeasure.Mass.ToString/ MyNewmeasure.Volume.ToString)
                    PartDen = DenFor.ToString("#.0")Catch ex As NXException
                    PartDen =(MyNewmeasure.Mass.ToString/ MyNewmeasure.Volume.ToString).ToString("#.0")EndTryCatch ex As Exception
                lw.WriteLine(Partno &": MassProperties error-"& ex.Message.ToString)EndTry 
            Try
                tempScreenshot = IO.Path.Combine(tempLocation, Partno &"-"& Row.ToString&".jpg")
                ExportScreenshot(tempScreenshot) 
            Catch ex As NXException
                lw.WriteLine(Partno & Row.ToString&": View Not Generated-"& ex.ErrorCode&":"& ex.Message.ToString)EndTry
            Mysheet.cells(Row, 1).value()= GruopName
            Dim Piccommant AsObject= Mysheet.Cells(Row, 2).AddComment()
            Mysheet.cells(Row, 3).value()= Partvolume
            Mysheet.cells(Row, 4).value()= PartMass
            Mysheet.cells(Row, 5).value()= PartDen
            Mysheet.cells(Row, 6).value()= CGX
            Mysheet.cells(Row, 7).value()= CGY
            Mysheet.cells(Row, 8).value()= CGZ
 
            'Dim Piccommant As Excel.Comment = Mysheet.Cells(Row, 3).AddComment()With Piccommant.Shape.Fill.UserPicture(tempLocation &"\"& Partno &"-"& Row.ToString&".jpg").Height=600.Width=600EndWith 
            Thegroup.HideBody()Next 
 
        MyBook.Save()
        MyBook.Close()
        MyBook =Nothing
        MyExcel.Quit() 
    EndSub 
 
 
    Sub ExportScreenshot(ByVal filename AsString) 
        'save user preference for visibility of WCS, triad, view name, and view borderDim wcsVisible AsBoolean= theSession.Parts.BaseDisplay.WCS.VisibilityDim triadVisible AsInteger= theSession.Preferences.ScreenVisualization.TriadVisibilityDim displayModelViewNames AsBoolean= theSession.Parts.BaseDisplay.Preferences.NamesBorderVisualization.ShowModelViewNamesDim displayModelViewBorders AsBoolean= theSession.Parts.BaseDisplay.Preferences.NamesBorderVisualization.ShowModelViewBorders 
        'turn off the WCS, triad, view name, and view border
        theSession.Parts.BaseDisplay.WCS.Visibility=False
        theSession.Preferences.ScreenVisualization.TriadVisibility=False
        theSession.Parts.BaseDisplay.Preferences.NamesBorderVisualization.ShowModelViewBorders=False
        theSession.Parts.BaseDisplay.Preferences.NamesBorderVisualization.ShowModelViewNames=False 
        Try
            ufs.Disp.CreateImage(filename, UFDisp.ImageFormat.Jpeg, UFDisp.BackgroundColor.White)Catch ex As Exception
            MsgBox(ex.Message& ControlChars.NewLine& _
                   "'"& filename &"' could not be created")ThrowNew Exception("Screenshot could not be created")Finally'reset visibility of WCS, triad, view name, and view border to user's preference
            theSession.Parts.BaseDisplay.WCS.Visibility= wcsVisible
            theSession.Preferences.ScreenVisualization.TriadVisibility= triadVisible
            theSession.Parts.BaseDisplay.Preferences.NamesBorderVisualization.ShowModelViewBorders= displayModelViewBorders
            theSession.Parts.BaseDisplay.Preferences.NamesBorderVisualization.ShowModelViewNames= displayModelViewNames
        EndTry 
    EndSubEndModule

Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.UFImports NXOpen.UI 
Module NXJournal
 
    Dim ufs As UFSession = UFSession.GetUFSession() 
    Sub Main()
        CreatePartsList()EndSub 
    Function CreatePartsList()Dim origin AsDouble()=NewDouble(2){0.0, 0.0, 0.0} 
        Dim partsListTag As Tag = NXOpen.Tag.Null 
        Dim partUnits AsInteger=0 
        Dim prefs As UFPlist.Prefs=Nothing 
        ufs.Plist.AskDefaultPrefs(prefs) 
        SelectPoint("Parts List Position", origin) 
        ufs.Plist.Create(prefs, origin, partsListTag) 
    EndFunction 
    Function SelectPoint(cue AsString, ByRef base_pt AsDouble())AsIntegerDim point_tag As NXOpen.Tag= NXOpen.Tag.Null 
        Dim response AsInteger=0 
        Dim base_method As UFUi.PointBaseMethod= UFUi.PointBaseMethod.PointInferred 
        ufs.Ui.LockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
        ufs.Ui.PointConstruct(cue, base_method, point_tag, base_pt, response)
        ufs.Ui.UnlockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM) 
        Return response
 
    EndFunction 
EndModule

Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpenUI
 
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
theSession.ApplicationSwitchImmediate("UG_APP_SBSM")
 
Dim markId1 As NXOpen.Session.UndoMarkId = Nothing
markId1 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Visible, "Enter Sheet Metal")
Dim markId2 As NXOpen.Session.UndoMarkId = Nothing
markId2 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Visible, "Start")
 
Dim nullNXOpen_Features_Feature As NXOpen.Features.Feature = Nothing
 
Dim convertToSheetmetalBuilder1 As NXOpen.Features.SheetMetal.ConvertToSheetmetalBuilder = Nothing
convertToSheetmetalBuilder1 = workPart.Features.SheetmetalManager.CreateConvertToSheetmetalFeatureBuilder(nullNXOpen_Features_Feature)
 
convertToSheetmetalBuilder1.SetApplicationContext(NXOpen.Features.SheetMetal.ApplicationContext.NxSheetMetal)
 
Dim expression1 As NXOpen.Expression = Nothing
expression1 = workPart.Preferences.PartSheetmetal.GetBendReliefDepth()
 
Dim expression2 As NXOpen.Expression = Nothing
expression2 = workPart.Preferences.PartSheetmetal.GetBendReliefWidth()
 
Dim nullNXOpen_Features_SketchFeature As NXOpen.Features.SketchFeature = Nothing
 
convertToSheetmetalBuilder1.Sketch = nullNXOpen_Features_SketchFeature
 
Dim nullNXOpen_Face As NXOpen.Face = Nothing
 
convertToSheetmetalBuilder1.BaseFace = nullNXOpen_Face
 
Dim nullNXOpen_Section As NXOpen.Section = Nothing
 
convertToSheetmetalBuilder1.RipSection = nullNXOpen_Section
 
Dim scCollector1 As NXOpen.ScCollector = Nothing
scCollector1 = convertToSheetmetalBuilder1.AdditionalFacesToConvert
 
Dim expression3 As NXOpen.Expression = Nothing
expression3 = workPart.Preferences.PartSheetmetal.GetBendReliefDepth()
 
Dim expression4 As NXOpen.Expression = Nothing
expression4 = workPart.Preferences.PartSheetmetal.GetBendReliefWidth()
 
convertToSheetmetalBuilder1.BendReliefType = NXOpen.Features.SheetMetal.ConvertToSheetmetalBuilder.BendReliefTypeOptions.None
 
Dim expression5 As NXOpen.Expression = Nothing
expression5 = convertToSheetmetalBuilder1.BendReliefDepth
 
Dim expression6 As NXOpen.Expression = Nothing
expression6 = workPart.Preferences.PartSheetmetal.GetBendReliefDepth()
 
Dim name1 As String = Nothing
name1 = expression6.Name
 
expression5.RightHandSide = name1
 
Dim expression7 As NXOpen.Expression = Nothing
expression7 = convertToSheetmetalBuilder1.BendReliefWidth
 
Dim expression8 As NXOpen.Expression = Nothing
expression8 = workPart.Preferences.PartSheetmetal.GetBendReliefWidth()
 
Dim name2 As String = Nothing
name2 = expression8.Name
 
expression7.RightHandSide = name2
 
convertToSheetmetalBuilder1.MaintainZeroBendRadius = False
 
theSession.SetUndoMarkName(markId2, "Convert to Sheet Metal Dialog")
 
Dim section1 As NXOpen.Section = Nothing
section1 = workPart.Sections.CreateSection(0.00095, 0.001, 0.01)
 
Dim markId3 As NXOpen.Session.UndoMarkId = Nothing
markId3 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Invisible, "Convert to Sheet Metal")
 
theSession.DeleteUndoMark(markId3, Nothing)
 
Dim markId4 As NXOpen.Session.UndoMarkId = Nothing
markId4 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Invisible, "Convert to Sheet Metal")
 
        'Dim brep1 As NXOpen.Features.Brep = CType(workPart.Features.FindObject("UNPARAMETERIZED_FEATURE(14)"), NXOpen.Features.Brep)
 
        'Dim face1 As NXOpen.Face = CType(brep1.FindObject("FACE 3 {(0.75,17.65125,8.6937488451453) UNPARAMETERIZED_FEATURE(14)}"), NXOpen.Face)
        Dim face1 As NXopen.face = SelectPlanarFace()
 
 
convertToSheetmetalBuilder1.BaseFace = face1
 
Dim ripEdges1(-1) As NXOpen.Edge
convertToSheetmetalBuilder1.SetRipEdges(ripEdges1)
 
convertToSheetmetalBuilder1.Sketch = nullNXOpen_Features_SketchFeature
 
convertToSheetmetalBuilder1.RipSection = section1
 
convertToSheetmetalBuilder1.MaintainZeroBendRadius = False
 
Dim builderDataValidity1 As Integer = Nothing
builderDataValidity1 = convertToSheetmetalBuilder1.ValidateBuilderData()
 
Dim feature1 As NXOpen.Features.Feature = Nothing
feature1 = convertToSheetmetalBuilder1.CommitFeature()
 
theSession.DeleteUndoMark(markId4, Nothing)
 
theSession.SetUndoMarkName(markId2, "Convert to Sheet Metal")
 
convertToSheetmetalBuilder1.Destroy()
 
section1.Destroy()
 
    End Sub
 
    Function SelectPlanarFace() As Face
 
        Dim ui As UI = ui.GetUI
        Dim title As String = "Select a planar face"
        Dim message As String = "Selection"
        Dim includeFeatures As Boolean = False
        Dim keepHighlighted As Boolean = False
        Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
        Dim cursor As Point3d
        Dim scope As Selection.SelectionScope = Selection.SelectionScope.WorkPart
        Dim selectionMask_array(0) As Selection.MaskTriple
 
        With selectionMask_array(0)
            .Type = UFConstants.UF_solid_type
            .SolidBodySubtype = UFConstants.UF_UI_SEL_FEATURE_PLANAR_FACE
        End With
 
'Problem in this line below 
 
        Dim resp As Face = ui.SelectionManager.SelectObject(message, title, scope, selAction, includeFeatures, keepHighlighted, selectionMask_array, cursor)
 
        If resp Is Nothing Then
            Return Nothing
        End If
 
    End Function
 
 
    Public Function GetUnloadOption(ByVal dummy As String) As Integer
 
        'Unloads the image when the NX session terminates
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
 
    End Function
 
End Module

Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.Assemblies 
Module ArrangementUpdateNew
 
    Dim theSession As Session = Session.GetSession()Dim workPart As Part = theSession.Parts.WorkDim lw As ListingWindow = theSession.ListingWindow 
    Sub Main()
        lw.Open() 
        'ArrangementOptions.IndividuallyPositionedDim Mycomponent As Assemblies.Component=NothingForEach Mycomponent In workPart.ComponentAssembly.RootComponent.GetChildren()
            lw.WriteLine(Mycomponent.Name)TryDim MyObj(0)As NXObject
                MyObj(0)= Mycomponent
                Dim assembliesParameterPropertiesBuilder1 As AssembliesParameterPropertiesBuilder = workPart.PropertiesManager.CreateAssembliesParameterPropertiesBuilder(MyObj)
                assembliesParameterPropertiesBuilder1.Arrangements= Assemblies.AssembliesParameterPropertiesBuilder.ArrangementOptions.IndividuallyPositionedDim NxObject1 As NXObject
                NxObject1 = assembliesParameterPropertiesBuilder1.Commit()
                assembliesParameterPropertiesBuilder1.Destroy()Catch ex As NXException
                lw.WriteLine("Failed")EndTry 
        Next 
    EndSub 
EndModule

theSession   = NXOpen.Session.GetSession()
 
    #Opens assembly part desired to modify
    #Try to open Part; throw an error upon failure
    try:
        basepart1, partLoadStatus1 = theSession.Parts.OpenBaseDisplay(assemblyFile)
        partLoadStatus1.Dispose()
    except Exception:
        msg.error(fullLogFile,' The specified file could not be opened.'
                                 +' Ensure that the file name and path are correct.')
 
#get work part of assembly
workPart = theSession.Parts.Work
 
##------------------------------------------------------------
##------------------------------------------------------------
## CODE MODIFICATIONS GO HERE (not relevant to problem at hand)
##------------------------------------------------------------
##------------------------------------------------------------
 
#try to open new part file to edit (different than assemblyFile)
newPart = 'C:/my/directory/to/newPart/' 
#use class method to open new session/workPart
newWorkPart,newDisplayPart = ModMass.SetNXFile(newPart,logFile)
 
##------------------------------------------------------------
##------------------------------------------------------------
## NEW PART MODIFICATIONS GO HERE
##------------------------------------------------------------
##------------------------------------------------------------
 
#now we need to get back to original assembly file.
workPart,displayPart = ModMass.SetNXFile(assemblyFile,logFile)

import NXOpen
import MsgAppend as msg
 
#Configure message appending
msg    = msg.MsgAppend()
 
class ModMassIndex():
 
    def __init__(self):
        super(ModMassIndex, self).__init__()
 
    def SetNXFile(self,NXFile,logFile):
        theSession   = NXOpen.Session.GetSession()
        #Opens assembly part desired to modify
        #Try to open Part; throw an error upon failure
        try:
            basepart1, partLoadStatus1 = theSession.Parts.OpenBaseDisplay(NXFile)
            partLoadStatus1.Dispose()
        except Exception:
            msg.error(logFile,' The specified file could not be opened.'
                                     +' Ensure that the file name and path are correct.')
 
        #Obtains needed NXOpen work class that give access to other objects
        if theSession.Parts.Work == None:
            msg.error(logFile,' NXOpen.Session.GetSession().Parts.Work is Null.')
        else:
            workPart    = theSession.Parts.Work
            displayPart = theSession.Parts.Display
 
        return workPart, displayPart