ModelCompare function API called UF_MODL_model_compare

The code below worked for me. Note that I opened 2 revisions of an existing part that I had on hand; in the Main sub it loops through the open parts looking for these particular parts. This was to quickly get references to parts for testing; at the very least you will need to change the names of the parts before running this journal. The code was written/tested on NX 9.

Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.UF

Module Module1

Dim theSession As Session = Session.GetSession()
Dim theUfSession As UFSession = UFSession.GetUFSession()

Dim theUI As UI = UI.GetUI()
Dim lw As ListingWindow = theSession.ListingWindow

Sub Main()

Dim markId1 As Session.UndoMarkId
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "model compare")

lw.Open()

Dim compPart1 As Part
Dim compPart2 As Part

For Each tempPart As Part In theSession.Parts
'lw.WriteLine(tempPart.Leaf)
If tempPart.Leaf = "00020-sld.b" Then
compPart1 = tempPart
End If

If tempPart.Leaf = "00020-sld.e" Then
compPart2 = tempPart
End If
Next

If IsNothing(compPart1) OrElse IsNothing(compPart2) Then
lw.WriteLine("one or both parts = nothing")
Return
Else
lw.WriteLine("compPart1: " & compPart1.Leaf)
lw.WriteLine("compPart2: " & compPart2.Leaf)
End If

Dim theCompareData() As UFModl.ComparePartMapData3 = Nothing
theCompareData = MyModelCompare(compPart1, compPart2)

'lw.WriteLine("compare data length: " & theCompareData.Length.ToString)

lw.WriteLine("identical parts: " & theCompareData(0).identical_parts.ToString)
lw.WriteLine("")
lw.WriteLine("part 1: " & compPart1.Leaf)
lw.WriteLine(" number of faces: " & theCompareData(0).part1(0).faces(0).num_entities.ToString)
lw.WriteLine(" average face deviation: " & theCompareData(0).part1(0).faces(0).entity_info(0).avg_deviation.ToString)
lw.WriteLine(" number of edges: " & theCompareData(0).part1(0).edges(0).num_entities.ToString)
lw.WriteLine(" average edge deviation: " & theCompareData(0).part1(0).edges(0).entity_info(0).avg_deviation.ToString)

lw.WriteLine("")

lw.WriteLine("part 2: " & compPart2.Leaf)
lw.WriteLine(" number of faces: " & theCompareData(0).part2(0).faces(0).num_entities.ToString)
lw.WriteLine(" number of edges: " & theCompareData(0).part2(0).edges(0).num_entities.ToString)

lw.Close()

End Sub

Function MyModelCompare(ByRef iPart1 As Part, ByRef iPart2 As Part) As UFModl.ComparePartMapData3()

Try
Dim intPart1Tag As NXOpen.Tag = iPart1.Tag
Dim oBody_Eids_Part1 As Tag = Tag.Null
Dim intPart2Tag As NXOpen.Tag = iPart2.Tag
Dim oBody_Eids_Part2 As NXOpen.Tag = Tag.Null

'Initialize NX CompareMapdata
Dim nxMappingData() As UFModl.ComparePartMapData3 = Nothing
'theUfSession.Modl.InitializeCompareData(nxMappingData)

'Initialize NX compare options
Dim myCompareOptions As UFModl.CompareOptions = Nothing
myCompareOptions.accuracy = UFModl.CompareAccuracy.CompCoarse
myCompareOptions.compare_feat_and_exp = False
myCompareOptions.continue_if_examine_geom_fails = False
myCompareOptions.identical_face_rule = UFModl.CompareIdenticalfaceRule.CompAlledges
Dim dblTolerance As Double = 0.001
myCompareOptions.tolerance = dblTolerance

Dim a_mtx4Identity(15) As Double
theUfSession.Mtx4.Identity(a_mtx4Identity)

Try
theUfSession.Modl.ModelCompare3(iPart1.Tag, oBody_Eids_Part1, a_mtx4Identity,
iPart2.Tag, oBody_Eids_Part2, a_mtx4Identity,
myCompareOptions, nxMappingData)
Catch ex1 As Exception
Throw New Exception(ex1.Message.ToString)
End Try

Return nxMappingData
Catch ex As Exception
lw.WriteLine(ex.ToString)
Return Nothing
End Try

End Function

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