Does anyone know of a method to determine if a PhysicalMaterial is used in the current part?
Dim LocalMaterials() As PhysicalMaterial =displaypart.MaterialManager.PhysicalMaterials.Get
but this returns materials that are used in components as well as displayPart. The Manage Materials window differentiates between used, un-used, and used in components as well as giving the location of the material. I just can't seem to locate a method to get this information.
Solved! Go to Solution.
This may not be the best or only way to do this, but here's what I came up with. It will report the materials available (locally) in the work part, it reports the material assigned to each body, and it reports which available materials are not used in the part. If you want to query an assembly, you could modify the code to process each component and report the used/unused materials in the full assembly.
Option Strict Off Imports System Imports System.Collections.Generic Imports NXOpen Imports NXOpen.UF Module Module2 Sub Main() Dim theSession As Session = Session.GetSession() Dim theUfSession As UFSession = UFSession.GetUFSession() 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() Const undoMarkName As String = "report material usage" Dim markId1 As Session.UndoMarkId markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visi
ble, undoMarkName) Dim materialsInPart As New List(Of PhysicalMaterial) Dim unusedMaterialsInPart As New List(Of String) For Each tempMaterial As PhysicalMaterial In workPart.MaterialManager.PhysicalMaterials.GetUsed Materials materialsInPart.Add(tempMaterial) unusedMaterialsInPart.Add(tempMaterial.Name) Next lw.WriteLine("Materials available in part") For Each temp As PhysicalMaterial In materialsInPart lw.WriteLine(temp.Name) Next lw.WriteLine("") lw.WriteLine("Bodies in part") For Each tempBody As Body In workPart.Bodies lw.WriteLine("body tag: " & tempBody.Tag.ToString) If tempBody.HasUserAttribute("Material", NXObject.AttributeType.String, -1) Then 'body has a material assigned, remove it from the "unused" list Dim materialAttribute As NXObject.AttributeInformation materialAttribute = tempBody.GetUserAttribute("Material", NXObject.AttributeType.String, -1) unusedMaterialsInPart.Remove(materialAttribute.Str ingValue) lw.WriteLine("material assigned: " & materialAttribute.StringValue) Else lw.WriteLine("no material assigned") End If lw.WriteLine("") Next lw.WriteLine("") lw.WriteLine("Unused materials") For Each temp As String In unusedMaterialsInPart lw.WriteLine(temp) Next lw.Close() 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
I use the following to determine if an assembly has materials assigned.
Dim LocalMaterials() As PhysicalMaterial =displaypart.MaterialManager.PhysicalMaterials.ToA
It does not report the materials of the component parts.