Easy Material Weight Management - Part 1

Imports System
Imports NXOpen
Imports System.Collections.Generic
Imports NXOpen.UF

Module NXJournal
Dim theSession As Session
Dim theUFSession As UFSession
Dim workPart As Part
Dim displayPart As Part
Dim mySelectedObjects As New List(Of DisplayableObject)
Dim theUI As UI
Dim bodyWeight As Double

'------------------------
' Configuration Settings:

' Material Name - Change this name to your own material
Dim materialname As String = "12mm Plywood"

' Material Density - Kg/m3 or Pound/Cubic Foot - Change this value to your own specific density
Dim density As Double = 440

' Unit System - "kg" for Kilograms or "lbm" for Pounds.
Dim unitsystem As String = "kg"

' Body Settings:
Dim bodycolor As Double = 111 ' Set the solid body color to ID: 111
Dim bodylayer As Double = 1 ' Set the solid body to layer 1
Dim bodytranslucency As Double = 0 ' Set the solid body transparency to 0

'------------------------

Sub Main(ByVal args() As String)
Try
theSession = Session.GetSession()
theUFSession = UFSession.GetUFSession()
workPart = theSession.Parts.Work
displayPart = theSession.Parts.Display
theUI = UI.GetUI()

Dim markId1 As Session.UndoMarkId = Nothing
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Material Journal")

If SelectObjects("Hey, select multiple somethings", mySelectedObjects) = Selection.Response.Ok Then
For Each tempComp As Body In mySelectedObjects
Dim displayModification1 As DisplayModification
displayModification1 = theSession.DisplayManager.NewDisplayModification()

With displayModification1
.ApplyToAllFaces = False
.ApplyToOwningParts = True
.NewColor = bodycolor
.NewLayer = bodylayer
.NewTranslucency = bodytranslucency
.Apply({tempComp})
End With

displayModification1.Dispose()

'DeleteAllAttributes(tempComp)
AddBodyAttribute(tempComp, "EW_Material", materialname)

Dim attributePropertiesBuilder1 As AttributePropertiesBuilder
attributePropertiesBuilder1 = theSession.AttributeManager.CreateAttributePropertiesBuilder(workPart, {tempComp}, AttributePropertiesBuilder.OperationType.None)
attributePropertiesBuilder1.Title = "EW_Material_Density"
attributePropertiesBuilder1.DataType = NXOpen.AttributePropertiesBaseBuilder.DataTypeOptions.Number

If unitsystem = "kg" Then
attributePropertiesBuilder1.Units = "KilogramPerCubicMeter"
Else
attributePropertiesBuilder1.Units = "PoundMassPerCubicFoot"
End If

attributePropertiesBuilder1.NumberValue = density

AddBodyAttribute(tempComp, "Component_created", String.Empty)

Dim nXObject1 As NXObject
nXObject1 = attributePropertiesBuilder1.Commit()
attributePropertiesBuilder1.Destroy()

' Calculate volume using mass properties
Dim myMeasure As MeasureManager = workPart.MeasureManager()
Dim massUnits(4) As Unit
massUnits(1) = workPart.UnitCollection.GetBase("Volume")
Dim mb As MeasureBodies = myMeasure.NewMassProperties(massUnits, 0.99, {tempComp})

' Create or update an attribute named 'EW_Body_Weight' and assign the weight value to it
Dim attributePropertiesBuilderForWeight As AttributePropertiesBuilder
attributePropertiesBuilderForWeight = theSession.AttributeManager.CreateAttributePropertiesBuilder(workPart, {tempComp}, AttributePropertiesBuilder.OperationType.Create)

If unitsystem = "kg" Then
mb.InformationUnit = MeasureBodies.AnalysisUnit.KilogramMilliMeter
' Extract volume and multiply it by density to get weight
Dim bodyVolume As Double = mb.Volume
bodyWeight = bodyVolume / 1000000000.0 * density
attributePropertiesBuilderForWeight.Units = "Kilogram"
Else
mb.InformationUnit = MeasureBodies.AnalysisUnit.PoundInch
Dim bodyVolume As Double = mb.Volume
bodyWeight = bodyVolume / 1728 * density
attributePropertiesBuilderForWeight.Units = "Lbm"
End If

attributePropertiesBuilderForWeight.Title = "EW_Body_Weight"
attributePropertiesBuilderForWeight.DataType = AttributePropertiesBaseBuilder.DataTypeOptions.Number
attributePropertiesBuilderForWeight.NumberValue = bodyWeight
Dim attributeObjectForWeight As NXObject = attributePropertiesBuilderForWeight.Commit()
attributePropertiesBuilderForWeight.Destroy()
Next
End If
Catch ex As Exception
Console.WriteLine("Houston, we have a situation... an error occurred: " & ex.Message)
End Try
End Sub

Function SelectObjects(prompt As String,
ByRef dispObj As List(Of DisplayableObject)) As Selection.Response
Dim selObj As NXObject()
Dim title As String = ("Select solid bodies - " & materialname)
Dim includeFeatures As Boolean = False
Dim keepHighlighted As Boolean = False
Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
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_SOLID_BODY
End With

Dim resp As Selection.Response = theUI.SelectionManager.SelectObjects(prompt,
title, scope, selAction,
includeFeatures, keepHighlighted, selectionMask_array,
selObj)

If resp = Selection.Response.ObjectSelected Or
resp = Selection.Response.ObjectSelectedByName Or
resp = Selection.Response.Ok Then
For Each item As NXObject In selObj
dispObj.Add(CType(item, DisplayableObject))
Next
Return Selection.Response.Ok
Else
Return Selection.Response.Cancel
End If
End Function

Sub AddBodyAttribute(ByVal theBody As Body, ByVal attTitle As String, ByVal attValue As String)
Dim attributePropertiesBuilder1 As AttributePropertiesBuilder
attributePropertiesBuilder1 = theSession.AttributeManager.CreateAttributePropertiesBuilder(workPart, {theBody}, AttributePropertiesBuilder.OperationType.None)

attributePropertiesBuilder1.IsArray = False
attributePropertiesBuilder1.DataType = AttributePropertiesBaseBuilder.DataTypeOptions.String

attributePropertiesBuilder1.Title = attTitle
attributePropertiesBuilder1.StringValue = attValue

Dim nXObject1 As NXObject
nXObject1 = attributePropertiesBuilder1.Commit()

attributePropertiesBuilder1.Destroy()
End Sub

Sub DeleteAllAttributes(ByVal theObject As NXObject)
Dim attributeInfo() As NXObject.AttributeInformation = theObject.GetUserAttributes()

For Each temp As NXObject.AttributeInformation In attributeInfo
theObject.DeleteUserAttributes(temp.Type, Update.Option.Now)
Next
End Sub

Imports System
Imports NXOpen
Imports System.Collections.Generic
Imports NXOpen.UF

Module NXJournal
Dim theSession As Session
Dim theUFSession As UFSession
Dim workPart As Part
Dim displayPart As Part
Dim mySelectedObjects As New List(Of DisplayableObject)
Dim physicalMaterial1 As PhysicalMaterial = Nothing
Dim theUI As UI

'------------------------
' Configuration Settings:

' Material Name - This name has to match with your created material in your library
Dim materialName As String = "12mm Plywood"

' Material Library Path
Dim materialLibraryPath As String = "C:\Your Folder\To your material library\physicalmateriallibrary_custom.xml"

' Body Settings:
Dim bodycolor As Double = 111 ' Set the solid body color to ID: 111
Dim bodylayer As Double = 1 ' Set the solid body to layer 1
Dim bodytranslucency As Double = 0 ' Set the solid body transparency to 0
'------------------------

Sub Main(ByVal args() As String)

Try
theSession = Session.GetSession()
theUFSession = UFSession.GetUFSession()
workPart = theSession.Parts.Work
displayPart = theSession.Parts.Display
theUI = UI.GetUI()
Dim lw As ListingWindow = theSession.ListingWindow
lw.Open()

Dim markId1 As Session.UndoMarkId = Nothing
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Material Journal")

' Initialize the builders
Dim physicalMaterialListBuilder1 As NXOpen.PhysMat.PhysicalMaterialListBuilder = Nothing
Dim physicalMaterialAssignBuilder1 As NXOpen.PhysMat.PhysicalMaterialAssignBuilder = Nothing
physicalMaterialListBuilder1 = workPart.MaterialManager.PhysicalMaterials.CreateListBlockBuilder()
physicalMaterialAssignBuilder1 = workPart.MaterialManager.PhysicalMaterials.CreateMaterialAssignBuilder()
Dim materialLibraryLoaded As Boolean = False
Try
' Check if the material is already loaded
Dim loadedMaterial As NXOpen.Material = workPart.MaterialManager.PhysicalMaterials.GetLoadedLibraryMaterial(materialLibraryPath, materialName)
If loadedMaterial Is Nothing Then
' Material is not loaded, load it from the library
physicalMaterial1 = workPart.MaterialManager.PhysicalMaterials.LoadFromMatmlLibrary(materialLibraryPath, materialName)
materialLibraryLoaded = True
'lw.WriteLine("Material library loaded.")
Else
physicalMaterial1 = loadedMaterial
materialLibraryLoaded = True
'lw.WriteLine("Material already loaded.")
End If
Catch ex As Exception
lw.WriteLine("Failed to check/load material library: " & ex.Message)
End Try

If SelectObjects("Hey, select multiple somethings", mySelectedObjects) = Selection.Response.Ok Then
For Each tempComp As Body In mySelectedObjects
Try
Dim pmaterialname as String = ("PhysicalMaterial[" & materialName & "]")
Dim physicalMaterial1 As NXOpen.PhysicalMaterial = CType(workPart.MaterialManager.PhysicalMaterials.FindObject(pmaterialname), NXOpen.PhysicalMaterial)
If physicalMaterial1 Is Nothing Then
lw.WriteLine("Error: Material " & materialName & " not found.")
Return
End If

Dim displayModification1 As DisplayModification
displayModification1 = theSession.DisplayManager.NewDisplayModification()

With displayModification1
.ApplyToAllFaces = False
.ApplyToOwningParts = True
.NewColor = bodycolor
.NewLayer = bodylayer
.NewTranslucency = bodytranslucency
.Apply({tempComp})
End With

displayModification1.Dispose()

AddBodyAttribute(tempComp, "Component_created", String.Empty)

If physicalMaterial1 IsNot Nothing Then
physicalMaterial1.AssignObjects(New NXOpen.NXObject() {tempComp})
'lw.WriteLine("Material " & materialName & " successfully assigned to body: " & tempComp.JournalIdentifier)
Else
lw.WriteLine("Error: Material " & materialName & " not found in the material library.")
End If
Catch ex As Exception
lw.WriteLine("Error processing body: " & tempComp.JournalIdentifier & " - " & ex.Message)
lw.WriteLine("Exception occurred: " & ex.ToString())
End Try
Next
theSession.UpdateManager.DoUpdate(markId1)
Else
lw.WriteLine("No objects were selected.")
End If

If physicalMaterialAssignBuilder1 IsNot Nothing Then
physicalMaterialAssignBuilder1.Destroy()
physicalMaterialAssignBuilder1 = Nothing
End If

If physicalMaterialListBuilder1 IsNot Nothing Then
physicalMaterialListBuilder1.Destroy()
physicalMaterialListBuilder1 = Nothing
End If
Catch ex As Exception
Console.WriteLine("Houston, we have a situation... an error occurred: " & ex.Message)
Finally
If physicalMaterial1 IsNot Nothing Then
physicalMaterial1 = Nothing
End If
End Try
End Sub

Function SelectObjects(prompt As String,
ByRef dispObj As List(Of DisplayableObject)) As Selection.Response
Dim selObj As NXObject()
Dim title As String = ("Select solid bodies - " & materialName)
Dim includeFeatures As Boolean = False
Dim keepHighlighted As Boolean = False
Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
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_SOLID_BODY
End With

Dim resp As Selection.Response = theUI.SelectionManager.SelectObjects(prompt,
title, scope, selAction,
includeFeatures, keepHighlighted, selectionMask_array,
selObj)

If resp = Selection.Response.ObjectSelected Or
resp = Selection.Response.ObjectSelectedByName Or
resp = Selection.Response.Ok Then
For Each item As NXObject In selObj
dispObj.Add(CType(item, DisplayableObject))
Next
Return Selection.Response.Ok
Else
Return Selection.Response.Cancel
End If
End Function

Sub AddBodyAttribute(ByVal theBody As Body, ByVal attTitle As String, ByVal attValue As String)
Dim attributePropertiesBuilder1 As AttributePropertiesBuilder
attributePropertiesBuilder1 = theSession.AttributeManager.CreateAttributePropertiesBuilder(workPart, {theBody}, AttributePropertiesBuilder.OperationType.None)

attributePropertiesBuilder1.IsArray = False
attributePropertiesBuilder1.DataType = AttributePropertiesBaseBuilder.DataTypeOptions.String

attributePropertiesBuilder1.Title = attTitle
attributePropertiesBuilder1.StringValue = attValue

Dim nXObject1 As NXObject
nXObject1 = attributePropertiesBuilder1.Commit()

attributePropertiesBuilder1.Destroy()
End Sub

Option Strict Off
Imports System
Imports System.Collections.Generic
Imports NXOpen
Imports NXOpen.UF

Module NXJournal
Dim theSession As Session = Session.GetSession()
Dim theUfSession As UFSession = UFSession.GetUFSession()
Dim theUI As UI = UI.GetUI()
Dim lw As ListingWindow = theSession.ListingWindow

'------------------------
' Configuration Settings:

' Face Settings:
Dim facecolor As Double = 17 ' Set the face color to ID: 17
Dim facename As String = "Inside"
'------------------------

Sub Main()
Dim markId1 As Session.UndoMarkId
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Face Color")
Dim selobj As NXObject
Dim type As Integer
Dim subtype As Integer
Dim theFaces As New List(Of Face)
Dim theUI As UI = UI.GetUI
Dim numsel As Integer = theUI.SelectionManager.GetNumSelectedObjects()

' Process the preselected Faces
If numsel > 0 Then
For inx As Integer = 0 To numsel - 1
selobj = theUI.SelectionManager.GetSelectedTaggedObject(inx)
theUfSession.Obj.AskTypeAndSubtype(selobj.Tag, type, subtype)
If type = UFConstants.UF_solid_type Then
theFaces.Add(selobj)
End If
Next
Else
' Prompt to select Faces
If SelectFaces("Select Faces to change color", theFaces) = Selection.Response.Cancel Then
Return
End If
End If

For Each temp As Face In theFaces
Dim displayModification As DisplayModification = theSession.DisplayManager.NewDisplayModification()
With displayModification
' .ApplyToAllFaces = False
.ApplyToOwningParts = True
.NewColor = facecolor
.Apply({temp})
End With
displayModification.Dispose()
Next
End Sub

Function SelectFaces(ByVal prompt As String, ByRef selFace As List(Of Face)) As Selection.Response
Dim theUI As UI = UI.GetUI
Dim title As String = ("Select Faces - " & facename)
Dim includeFeatures As Boolean = False
Dim keepHighlighted As Boolean = False
Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
Dim scope As Selection.SelectionScope = Selection.SelectionScope.WorkPart
Dim selectionMask_array(0) As Selection.MaskTriple
Dim selObj() As TaggedObject

With selectionMask_array(0)
.Type = UFConstants.UF_solid_type
.Subtype = 0
.SolidBodySubtype = UFConstants.UF_UI_SEL_FEATURE_ANY_FACE
End With

Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObjects(prompt,
title, scope, selAction,
includeFeatures, keepHighlighted, selectionMask_array, selObj)

If resp = Selection.Response.Ok Then
For Each temp As TaggedObject In selObj
selFace.Add(temp)
Next
Return Selection.Response.Ok
Else
Return Selection.Response.Cancel
End If
End Function

Public Function GetUnloadOption(ByVal dummy As String) As Integer
GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
End Function

Imports System
Imports NXOpen
Imports System.Collections.Generic
Imports NXOpen.UF

Module NXJournal
Dim theSession As Session = Session.GetSession()
Dim theUFSession As UFSession
Dim workPart As Part
Dim displayPart As Part
Dim mySelectedObjects As New List(Of DisplayableObject)
Dim theUI As UI
Dim lw As ListingWindow = theSession.ListingWindow
Dim scrib_weight As Double

'------------------------
' Configuration Settings:

' Body Settings:
Dim bodyLayer As Integer = 170 ' Set the solid body to layer 170
Dim bodyTranslucency As Integer = 70 ' Set the solid body transparency to 70
'------------------------

Sub Main(ByVal args() As String)

Dim theSession As Session = Session.GetSession()
Dim markId1 As NXOpen.Session.UndoMarkId
markId1 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Visible, "Raw Body Journal")

lw.Open()
Try
theSession = Session.GetSession()
theUFSession = UFSession.GetUFSession()
workPart = theSession.Parts.Work
displayPart = theSession.Parts.Display
theUI = UI.GetUI()

' Variables to store attributes from the first selected body (original body)
Dim origmat_density As Double = 0.0
Dim orig_weight As Double = 0.0

' First selection for the original body
Try
If SelectObjects("Select the Original body", mySelectedObjects) = Selection.Response.Ok Then
For Each tempComp As Body In mySelectedObjects
Dim attributes = tempComp.GetUserAttributes()
For Each attr1 As NXObject.AttributeInformation In attributes
If attr1.Title = "EW_Material_Density" Then
origmat_density = CDbl(attr1.StringValue)
ElseIf attr1.Title = "EW_Body_Weight" Then
orig_weight = CDbl(attr1.StringValue)
End If
Next
Next
End If
If origmat_density = 0.0 Or orig_weight = 0.0 Then
'Throw New Exception("Failed to decipher the weight value for this body! Please apply the appropriate Material Journal before proceeding")
End If

' Clear previous selections
mySelectedObjects.Clear()

' Second selection for the Raw body
If SelectObjects("Select the Raw body", mySelectedObjects) = Selection.Response.Ok Then
For Each tempComp As Body In mySelectedObjects
' Measure Raw body volume
Dim myMeasure As MeasureManager = workPart.MeasureManager()
Dim massUnits(4) As Unit
massUnits(1) = workPart.UnitCollection.GetBase("Volume")

Dim mb As MeasureBodies = myMeasure.NewMassProperties(massUnits, 0.99, {tempComp})

Dim bodyVolume As Double = mb.Volume
If bodyVolume = 0.0 Then
Throw New Exception("Invalid body volume.")
End If

If Double.IsNaN(scrib_weight) Or Double.IsInfinity(scrib_weight) Then
Throw New Exception("Invalid Raw weight calculated.")
End If

' Add new attribute
Dim attributePropertiesBuilderForWeight As AttributePropertiesBuilder
attributePropertiesBuilderForWeight = theSession.AttributeManager.CreateAttributePropertiesBuilder(workPart, {tempComp}, AttributePropertiesBuilder.OperationType.Create)
attributePropertiesBuilderForWeight.Title = "Raw_Body_Delta_Weight"
attributePropertiesBuilderForWeight.DataType = AttributePropertiesBaseBuilder.DataTypeOptions.Number

' Now, perform the unit check on the currentPart
If workPart.PartUnits = BasePart.Units.Inches Then

mb.InformationUnit = MeasureBodies.AnalysisUnit.PoundInch
attributePropertiesBuilderForWeight.Units = "Lbm"
scrib_weight = origmat_density * (bodyVolume / 1728) - orig_weight
Else

mb.InformationUnit = MeasureBodies.AnalysisUnit.KilogramMilliMeter
attributePropertiesBuilderForWeight.Units = "Kilogram"
scrib_weight = origmat_density * (bodyVolume / 1000000000.0) - orig_weight
End If

attributePropertiesBuilderForWeight.NumberValue = scrib_weight
AddBodyAttribute(tempComp, "Component_created", String.Empty)
Dim attributeObjectForWeight As NXObject = attributePropertiesBuilderForWeight.Commit()
attributePropertiesBuilderForWeight.Destroy()

' Delete old attribute
DeleteUserAttribute(tempComp, "EW_Body_Weight")

' Move body to Layer
Dim displayModification1 As DisplayModification
displayModification1 = theSession.DisplayManager.NewDisplayModification()
With displayModification1
.ApplyToAllFaces = False
.ApplyToOwningParts = True
.NewTranslucency = bodyTranslucency
.NewLayer = bodyLayer
.Apply({tempComp})
End With
displayModification1.Dispose()
Next
End If
Catch ex As Exception
lw.WriteLine("An error occurred: " & ex.Message)
Finally
lw.Close()
End Try

Catch ex As Exception
Console.WriteLine("An error occurred: " & ex.Message)
End Try
End Sub

Function SelectObjects(prompt As String,
ByRef dispObj As List(Of DisplayableObject)) As Selection.Response
Dim selObj As NXObject() = Nothing
Dim title As String = prompt
Dim includeFeatures As Boolean = False
Dim keepHighlighted As Boolean = False
Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
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_SOLID_BODY
End With

Dim resp As Selection.Response = theUI.SelectionManager.SelectObjects(prompt,
title, scope, selAction,
includeFeatures, keepHighlighted, selectionMask_array,
selObj)

If resp = Selection.Response.ObjectSelected Or
resp = Selection.Response.ObjectSelectedByName Or
resp = Selection.Response.Ok Then
For Each item As NXObject In selObj
dispObj.Add(CType(item, DisplayableObject))
Next
Return Selection.Response.Ok
Else
Return Selection.Response.Cancel
End If
End Function

Sub AddBodyAttribute(ByVal theBody As Body, ByVal attTitle As String, ByVal attValue As String)
Dim attributePropertiesBuilder1 As AttributePropertiesBuilder
attributePropertiesBuilder1 = theSession.AttributeManager.CreateAttributePropertiesBuilder(workPart, {theBody}, AttributePropertiesBuilder.OperationType.None)

attributePropertiesBuilder1.IsArray = False
attributePropertiesBuilder1.DataType = AttributePropertiesBaseBuilder.DataTypeOptions.String

attributePropertiesBuilder1.Title = attTitle
attributePropertiesBuilder1.StringValue = attValue

Dim nXObject1 As NXObject
nXObject1 = attributePropertiesBuilder1.Commit()

attributePropertiesBuilder1.Destroy()
End Sub

Sub DeleteUserAttribute(ByVal theObject As NXObject, ByVal attributeName As String)
Dim attributeInfo() As NXObject.AttributeInformation = CType(theObject, Body).GetUserAttributes()

For Each temp As NXObject.AttributeInformation In attributeInfo
If temp.Title = attributeName Then
theObject.DeleteUserAttribute(temp.Type, temp.Title, False, Update.Option.Now)
Exit For
End If
Next
End Sub

Imports System
Imports NXOpen
Imports System.Collections.Generic
Imports NXOpen.UF

Module NXJournal
Dim theSession As Session = Session.GetSession()
Dim workPart As Part
Dim displayPart As Part
Dim mySelectedObjects As New List(Of DisplayableObject)
Dim physicalMaterial1 As PhysicalMaterial = Nothing
Dim theUI As UI
Dim lw As ListingWindow = theSession.ListingWindow

'------------------------
' Configuration Settings:

' Material Name - This name has to match with your created material in your library
Dim materialName As String = "NullMaterial"

' Material Library Path
Dim materialLibraryPath As String = "C:\Your Folder\To your material library\physicalmateriallibrary_custom.xml"

' Body Settings:
Dim bodyLayer As Integer = 170 ' Set the solid body to layer 170
Dim bodyTranslucency As Integer = 70 ' Set the solid body transparency to 70
'------------------------

Sub Main(ByVal args() As String)

Dim theSession As Session = Session.GetSession()
Dim markId1 As NXOpen.Session.UndoMarkId
markId1 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Visible, "Raw Body Journal")

lw.Open()
Try
theSession = Session.GetSession()
workPart = theSession.Parts.Work
displayPart = theSession.Parts.Display
theUI = UI.GetUI()

' Variables to store weight from the first and second selected body
Dim orig_weight As Double = 0.0
Dim Raw_weight As Double = 0.0

' First selection for the original body
If SelectObjects("Select the Original body", mySelectedObjects) = Selection.Response.Ok Then
For Each tempComp As Body In mySelectedObjects
orig_weight = GetBodyWeight(tempComp)
Next
End If

mySelectedObjects.Clear()

' Second selection for the Raw body
If SelectObjects("Select the Raw body", mySelectedObjects) = Selection.Response.Ok Then
For Each tempComp As Body In mySelectedObjects
Raw_weight = GetBodyWeight(tempComp)
' Calculate the weight difference
Dim weight_difference As Double = Raw_weight - orig_weight

' Add new attribute for weight difference
Dim attributePropertiesBuilderForWeight As AttributePropertiesBuilder
attributePropertiesBuilderForWeight = theSession.AttributeManager.CreateAttributePropertiesBuilder(workPart, {tempComp}, AttributePropertiesBuilder.OperationType.Create)
attributePropertiesBuilderForWeight.Title = "Raw_Body_Delta_Weight"
attributePropertiesBuilderForWeight.DataType = AttributePropertiesBaseBuilder.DataTypeOptions.Number
attributePropertiesBuilderForWeight.NumberValue = weight_difference

' Now, perform the unit check on the currentPart
If workPart.PartUnits = BasePart.Units.Inches Then
attributePropertiesBuilderForWeight.Units = "Lbm"
Else
attributePropertiesBuilderForWeight.Units = "Kilogram"
End If

Dim attributeObjectForWeight As NXObject = attributePropertiesBuilderForWeight.Commit()
attributePropertiesBuilderForWeight.Destroy()

' Initialize the builders
Dim physicalMaterialListBuilder1 As NXOpen.PhysMat.PhysicalMaterialListBuilder = Nothing
Dim physicalMaterialAssignBuilder1 As NXOpen.PhysMat.PhysicalMaterialAssignBuilder = Nothing
physicalMaterialListBuilder1 = workPart.MaterialManager.PhysicalMaterials.CreateListBlockBuilder()
physicalMaterialAssignBuilder1 = workPart.MaterialManager.PhysicalMaterials.CreateMaterialAssignBuilder()
Dim materialLibraryLoaded As Boolean = False
Try
' Check if the material is already loaded
Dim loadedMaterial As NXOpen.Material = workPart.MaterialManager.PhysicalMaterials.GetLoadedLibraryMaterial(materialLibraryPath, materialName)
If loadedMaterial Is Nothing Then
' Material is not loaded, load it from the library
physicalMaterial1 = workPart.MaterialManager.PhysicalMaterials.LoadFromMatmlLibrary(materialLibraryPath, materialName)
materialLibraryLoaded = True
'lw.WriteLine("Material library loaded.")
Else
physicalMaterial1 = loadedMaterial
materialLibraryLoaded = True
'lw.WriteLine("Material already loaded.")
End If
Catch ex As Exception
'lw.WriteLine("Failed to check/load material library: " & ex.Message)
End Try

' Apply display and material changes
Try
Dim pmaterialname As String = ("PhysicalMaterial[" & materialName & "]")
Dim physicalMaterial1 As NXOpen.PhysicalMaterial = CType(workPart.MaterialManager.PhysicalMaterials.FindObject(pmaterialname), NXOpen.PhysicalMaterial)
If physicalMaterial1 Is Nothing Then
lw.WriteLine("Error: Material " & materialName & " not found.")
Return
End If

Dim displayModification1 As DisplayModification
displayModification1 = theSession.DisplayManager.NewDisplayModification()

With displayModification1
.ApplyToAllFaces = False
.ApplyToOwningParts = True
.NewLayer = bodyLayer
.NewTranslucency = bodyTranslucency
.Apply({tempComp})
End With

displayModification1.Dispose()

If physicalMaterial1 IsNot Nothing Then
physicalMaterial1.AssignObjects(New NXOpen.NXObject() {tempComp})
'lw.WriteLine("Material " & materialName & " successfully assigned to body: " & tempComp.JournalIdentifier)
Else
lw.WriteLine("Error: Material " & materialName & " not found in the material library.")
End If
Catch ex As Exception
lw.WriteLine("Error processing body: " & tempComp.JournalIdentifier & " - " & ex.Message)
lw.WriteLine("Exception occurred: " & ex.ToString())
End Try

If physicalMaterialAssignBuilder1 IsNot Nothing Then
physicalMaterialAssignBuilder1.Destroy()
physicalMaterialAssignBuilder1 = Nothing
End If

If physicalMaterialListBuilder1 IsNot Nothing Then
physicalMaterialListBuilder1.Destroy()
physicalMaterialListBuilder1 = Nothing
End If
Next
End If
Catch ex As Exception
lw.WriteLine("An error occurred: " & ex.Message)
Finally
lw.Close()
End Try
End Sub

Function SelectObjects(prompt As String,
ByRef dispObj As List(Of DisplayableObject)) As Selection.Response
Dim selObj As NXObject() = Nothing
Dim title As String = prompt
Dim includeFeatures As Boolean = False
Dim keepHighlighted As Boolean = False
Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
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_SOLID_BODY
End With

Dim resp As Selection.Response = theUI.SelectionManager.SelectObjects(prompt,
title, scope, selAction,
includeFeatures, keepHighlighted, selectionMask_array,
selObj)

If resp = Selection.Response.ObjectSelected Or
resp = Selection.Response.ObjectSelectedByName Or
resp = Selection.Response.Ok Then
For Each item As NXObject In selObj
dispObj.Add(CType(item, DisplayableObject))
Next
Return Selection.Response.Ok
Else
Return Selection.Response.Cancel
End If
End Function

Function GetBodyWeight(body As Body) As Double
Dim weight As Double = 0.0
Dim myMeasure As MeasureManager = theSession.Parts.Work.MeasureManager
Dim theBodies(0) As Body
theBodies(0) = body

Dim massUnits(4) As NXOpen.Unit
massUnits(2) = theSession.Parts.Work.UnitCollection.GetBase("Mass")

Try
Dim mb As MeasureBodies = myMeasure.NewMassProperties(massUnits, 0.99, theBodies)
weight = mb.Mass
mb.Dispose()
Catch ex As Exception
lw.WriteLine("Error measuring body weight: " & ex.Message)
End Try
Return weight
End Function

Imports System
Imports NXOpen
Imports System.Collections.Generic
Imports NXOpen.UF

Module NXJournal
Dim theSession As Session
Dim theUFSession As UFSession
Dim workPart As Part
Dim displayPart As Part
Dim mySelectedObjects As New List(Of DisplayableObject)
Dim theUI As UI

Sub Main(ByVal args() As String)
Try
theSession = Session.GetSession()
theUFSession = UFSession.GetUFSession()
workPart = theSession.Parts.Work
displayPart = theSession.Parts.Display
theUI = UI.GetUI()

Dim markId1 As Session.UndoMarkId = Nothing
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Delete Attributes")

Dim lw As ListingWindow = theSession.ListingWindow
lw.Open()

If SelectObjects("Select bodies", mySelectedObjects) = Selection.Response.Ok Then
' Convert DisplayableObjects to Bodies
Dim selectedBodies As New List(Of Body)
For Each obj As DisplayableObject In mySelectedObjects
If TypeOf obj Is Body Then
selectedBodies.Add(CType(obj, Body))
End If
Next

' Delete user attributes
For Each body As Body In selectedBodies
DeleteUserAttribute(body, "EW_Material")
DeleteUserAttribute(body, "EW_Body_Weight")
DeleteUserAttribute(body, "EW_Material_Density")
Next

' Commit the changes
theSession.UpdateManager.DoUpdate(markId1)
Else
lw.WriteLine("No objects were selected.")
End If
Catch ex As Exception
' Handle exceptions here
Console.WriteLine("An error occurred: " & ex.Message)
End Try
End Sub

Function SelectObjects(prompt As String,
ByRef dispObj As List(Of DisplayableObject)) As Selection.Response
Dim selObj As NXObject()
Dim title As String = "Select solid bodies to DELETE their Weight Data"
Dim includeFeatures As Boolean = False
Dim keepHighlighted As Boolean = False
Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
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_SOLID_BODY
End With

Dim resp As Selection.Response = theUI.SelectionManager.SelectObjects(prompt,
title, scope, selAction,
includeFeatures, keepHighlighted, selectionMask_array,
selObj)

If resp = Selection.Response.ObjectSelected Or
resp = Selection.Response.ObjectSelectedByName Or
resp = Selection.Response.Ok Then
For Each item As NXObject In selObj
dispObj.Add(CType(item, DisplayableObject))
Next
Return Selection.Response.Ok
Else
Return Selection.Response.Cancel
End If
End Function

Sub DeleteUserAttribute(ByVal theObject As NXObject, ByVal attributeName As String)
Dim attributeInfo() As NXObject.AttributeInformation = CType(theObject, Body).GetUserAttributes()

For Each temp As NXObject.AttributeInformation In attributeInfo
If temp.Title = attributeName Then
theObject.DeleteUserAttribute(temp.Type, temp.Title, False, Update.Option.Now)
Exit For
End If
Next
End Sub

Imports System
Imports NXOpen
Imports System.Collections.Generic
Imports NXOpen.UF

Module NXJournal
Dim theSession As Session
Dim theUFSession As UFSession
Dim workPart As Part
Dim displayPart As Part
Dim mySelectedObjects As New List(Of DisplayableObject)
Dim physicalMaterial1 As PhysicalMaterial = Nothing
Dim theUI As UI

'------------------------
' Configuration Settings:

' Material Name
Dim materialName As String = "NullMaterial" ' Make sure this name is matches with your created material in your library

' Material Library Path
Dim materialLibraryPath As String = "C:\Your Folder\To your material library\physicalmateriallibrary_custom.xml"
'------------------------

Sub Main(ByVal args() As String)

Try
theSession = Session.GetSession()
theUFSession = UFSession.GetUFSession()
workPart = theSession.Parts.Work
displayPart = theSession.Parts.Display
theUI = UI.GetUI()
Dim lw As ListingWindow = theSession.ListingWindow
lw.Open()

Dim markId1 As Session.UndoMarkId = Nothing
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Material Journal")

' Initialize the builders
Dim physicalMaterialListBuilder1 As NXOpen.PhysMat.PhysicalMaterialListBuilder = Nothing
Dim physicalMaterialAssignBuilder1 As NXOpen.PhysMat.PhysicalMaterialAssignBuilder = Nothing
physicalMaterialListBuilder1 = workPart.MaterialManager.PhysicalMaterials.CreateListBlockBuilder()
physicalMaterialAssignBuilder1 = workPart.MaterialManager.PhysicalMaterials.CreateMaterialAssignBuilder()
Dim materialLibraryLoaded As Boolean = False
Try
' Check if the material is already loaded
Dim loadedMaterial As NXOpen.Material = workPart.MaterialManager.PhysicalMaterials.GetLoadedLibraryMaterial(materialLibraryPath, materialName)
If loadedMaterial Is Nothing Then
' Material is not loaded, load it from the library
physicalMaterial1 = workPart.MaterialManager.PhysicalMaterials.LoadFromMatmlLibrary(materialLibraryPath, materialName)
materialLibraryLoaded = True
'lw.WriteLine("Material library loaded.")
Else
physicalMaterial1 = loadedMaterial
materialLibraryLoaded = True
'lw.WriteLine("Material already loaded.")
End If
Catch ex As Exception
'lw.WriteLine("Failed to check/load material library: " & ex.Message)
End Try

If SelectObjects("Hey, select multiple somethings", mySelectedObjects) = Selection.Response.Ok Then
For Each tempComp As Body In mySelectedObjects
Try
Dim pmaterialname as String = ("PhysicalMaterial[" & materialName & "]")
Dim physicalMaterial1 As NXOpen.PhysicalMaterial = CType(workPart.MaterialManager.PhysicalMaterials.FindObject(pmaterialname), NXOpen.PhysicalMaterial)
If physicalMaterial1 Is Nothing Then
lw.WriteLine("Error: Material " & materialName & " not found.")
Return
End If

If physicalMaterial1 IsNot Nothing Then
physicalMaterial1.AssignObjects(New NXOpen.NXObject() {tempComp})
'lw.WriteLine("Material " & materialName & " successfully assigned to body: " & tempComp.JournalIdentifier)
Else
lw.WriteLine("Error: Material " & materialName & " not found in the material library.")
End If
Catch ex As Exception
lw.WriteLine("Error processing body: " & tempComp.JournalIdentifier & " - " & ex.Message)
lw.WriteLine("Exception occurred: " & ex.ToString())
End Try
Next
theSession.UpdateManager.DoUpdate(markId1)
Else
lw.WriteLine("No objects were selected.")
End If

If physicalMaterialAssignBuilder1 IsNot Nothing Then
physicalMaterialAssignBuilder1.Destroy()
physicalMaterialAssignBuilder1 = Nothing
End If

If physicalMaterialListBuilder1 IsNot Nothing Then
physicalMaterialListBuilder1.Destroy()
physicalMaterialListBuilder1 = Nothing
End If
Catch ex As Exception
Console.WriteLine("Houston, we have a situation... an error occurred: " & ex.Message)
Finally
If physicalMaterial1 IsNot Nothing Then
physicalMaterial1 = Nothing
End If
End Try
End Sub

Function SelectObjects(prompt As String,
ByRef dispObj As List(Of DisplayableObject)) As Selection.Response
Dim selObj As NXObject()
Dim title As String = ("Select solid bodies - " & materialName)
Dim includeFeatures As Boolean = False
Dim keepHighlighted As Boolean = False
Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
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_SOLID_BODY
End With

Dim resp As Selection.Response = theUI.SelectionManager.SelectObjects(prompt,
title, scope, selAction,
includeFeatures, keepHighlighted, selectionMask_array,
selObj)

If resp = Selection.Response.ObjectSelected Or
resp = Selection.Response.ObjectSelectedByName Or
resp = Selection.Response.Ok Then
For Each item As NXObject In selObj
dispObj.Add(CType(item, DisplayableObject))
Next
Return Selection.Response.Ok
Else
Return Selection.Response.Cancel
End If
End Function