Measure distance between 2 csys

Module NXJournal

Dim theUfSession As UFSession = UFSession.GetUFSession()
Dim theSession As Session = Session.GetSession()
Dim theUI As UI = UI.GetUI
Dim workPart As Part = theSession.Parts.Work
Dim myUDOclass As UserDefinedObjects.UserDefinedClass = Nothing

Sub Main (ByVal args() As String)

initUDO(True)

Dim myUDOcorner(2) As Double
Dim lw As ListingWindow = theSession.ListingWindow()
Dim MyBody As Body = Nothing
Dim a_body As NXOpen.Tag = NXOpen.Tag.Null

Dim min_corner(2) As Double
Dim directions(2, 2) As Double
Dim distances(2) As Double

If SelectBody("select a body", MyBody) = Selection.Response.Cancel Then
Return
End If
a_body = MyBody.Tag
lw.open()

For Each myFeature As Features.Feature In theSession.Parts.Work.Features.GetFeatures()
If myFeature.name = "PECA" Then
Dim csysTag As Tag
Dim originTag As Tag
Dim daxesTags(2) As Tag
Dim dplanesTags(2) As Tag

theUfSession.Modl.AskDatumCsysComponents(myFeature.Tag, csysTag, originTag, daxesTags, dplanesTags)
theUfSession.Modl.AskBoundingBoxExact(a_body, csysTag, min_corner, directions, distances)

myUDOcorner= min_corner
lw.writeline("corner: " & formatnumber(myUDOcorner(0),2) & " , " & formatnumber(myUDOcorner(1),2) & " , " & formatnumber(myUDOcorner(2),2))

'theUFSession.Disp.AddItemToDisplay(myUDOcorner)
'theUI.SelectionManager.SetSelectionStatusOfUserDefinedClass(myUDOcorner, True)
'displayEvent.UserDefinedObject.SetDoubles(myUDOcorner)

Exit For
End If
Next
End Sub

Function SelectBody(ByVal prompt As String, ByRef selObj As TaggedObject) As Selection.Response

Dim title As String = "Select a solid body"
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.AnyInAssembly
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.SelectTaggedObject(prompt, _
title, scope, selAction, _
includeFeatures, keepHighlighted, selectionMask_array, _
selobj, cursor)
If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
Return Selection.Response.Ok
Else
Return Selection.Response.Cancel
End If

End Function

Public Function initUDO(ByVal alertUser As Boolean) As Integer
Try
If theSession Is Nothing Then
theSession = Session.GetSession()
End If
If theUI Is Nothing Then
theUI = UI.GetUI()
End If
If theUFSession Is Nothing Then
theUFSession = NXOpen.UF.UFSession.GetUFSession()
End If
If myUDOclass Is Nothing Then
If alertUser = True Then
MsgBox("Registering VB UDO Class", MsgBoxStyle.OkOnly)
End If
' Define your custom UDO class
myUDOclass = theSession.UserDefinedClassManager.CreateUserDefinedObjectClass("Sample_VB_UDO", "Sample VB UDO")
' Setup properties on the custom UDO class
myUDOclass.AllowQueryClassFromName = UserDefinedObjects.UserDefinedClass.AllowQueryClass.On
' Register callbacks for the UDO class
myUDOclass.AddDisplayHandler(AddressOf myDisplayCB)
myUDOclass.AddAttentionPointHandler(AddressOf myDisplayCB)
myUDOclass.AddFitHandler(AddressOf myDisplayCB)
myUDOclass.AddSelectionHandler(AddressOf myDisplayCB)
myUDOclass.AddEditHandler(AddressOf myEditCB)
myUDOclass.AddInformationHandler(AddressOf myInfoCB)
' Add this class to the list of object types available for selection in NX.
' If you skip this step you won't be able to select UDO's of this class,
' even though you registered a selection callback.
theUI.SelectionManager.SetSelectionStatusOfUserDefinedClass(myUDOclass, True)
End If
Catch ex As NXException
' We may be initializing the UDO class during NX Startup
' Print any error messages directly to the syslog
If theUFSession Is Nothing Then
theUFSession = NXOpen.UF.UFSession.GetUFSession()
End If
theUfSession.UF.PrintSyslog("Caught Exception in initUDO: '" & ex.Message() & "'" & vbCrLf, False)
End Try
initUDO = 0
End Function

Public Function myInfoCB(ByVal infoEvent As UserDefinedObjects.UserDefinedEvent) As Integer
Dim theLW As ListingWindow = theSession.ListingWindow
theLW.Open()
Try
theLW.WriteLine(" ")
theLW.WriteLine("------------------------------------------------------------")
theLW.WriteLine("Begin Custom Information")
theLW.WriteLine(" ")
theLW.WriteLine("UDO Class Name: '" & infoEvent.UserDefinedObject.UserDefinedClass.ClassName & "'")
theLW.WriteLine("UDO Friendly Name: '" & infoEvent.UserDefinedObject.UserDefinedClass.FriendlyName & "'")
Dim myUDOdoubles() As Double = infoEvent.UserDefinedObject.GetDoubles()
theLW.WriteLine("myUDOdoubles(0) = " & myUDOdoubles(0).ToString)
theLW.WriteLine("myUDOdoubles(1) = " & myUDOdoubles(1).ToString)
theLW.WriteLine("myUDOdoubles(2) = " & myUDOdoubles(2).ToString)
theLW.WriteLine(" ")
theLW.WriteLine("End Custom Information")
Catch ex As NXException
theLW.WriteLine("Caught Exception in myInfoCB:'" & ex.Message() & "'")
End Try
myInfoCB = 0
End Function

Public Function myEditCB(ByVal editEvent As UserDefinedObjects.UserDefinedEvent) As Integer
Try
Dim myView As NXOpen.View = Nothing
Dim myCursor As Point3d
myCursor.X = 0
myCursor.Y = 0
myCursor.Z = 0

' highlight the current udo we are about to edit
' this is helpful if multiple udo's were on the selection
' list when the user decided to edit them
editEvent.UserDefinedObject.Highlight()

' ask the user to select a new origin for this UDO
Dim myResponse As Selection.DialogResponse = theUI.SelectionManager.SelectScreenPosition("Select New Origin for VB UDO", myView, myCursor)
' we are done asking the user for input... unhighlight the udo
editEvent.UserDefinedObject.Unhighlight()
' use the new screen position (if the user picked one)
If myResponse = Selection.DialogResponse.Pick Then
Dim myUDOdoubles(3) As Double
myUDOdoubles(0) = myCursor.X
myUDOdoubles(1) = myCursor.Y
myUDOdoubles(2) = myCursor.Z
' store the newly selected origin with the udo
editEvent.UserDefinedObject.SetDoubles(myUDOdoubles)

' add the udo to the display list manually
' this will force the udo display to regenerate
' immediately and show the changes we just made
theUFSession.Disp.AddItemToDisplay(editEvent.UserDefinedObject.Tag())
End If
Catch ex As NXException
Dim theLW As ListingWindow = theSession.ListingWindow
theLW.Open()
theLW.WriteLine("Caught Exception in myEditCB: '" & ex.Message() & "'")
End Try
myEditCB = 0
End Function

Public Function myDisplayCB(ByVal displayEvent As UserDefinedObjects.UserDefinedDisplayEvent) As Integer

Try
' Get the doubles used to define the selected screen position for this UDO.
Dim myUDOdoubles() As Double = displayEvent.UserDefinedObject.GetDoubles()

' Use the doubles to define points of a triangle
Dim myPoints(3) As Point3d
myPoints(0).X = myUDOdoubles(0) + 0
myPoints(0).Y = myUDOdoubles(1) + 0
myPoints(0).Z = myUDOdoubles(2) + 0

myPoints(1).X = myUDOdoubles(0) + 100
myPoints(1).Y = myUDOdoubles(1) + 0
myPoints(1).Z = myUDOdoubles(2) + 0

myPoints(2).X = myUDOdoubles(0) + 0
myPoints(2).Y = myUDOdoubles(1) + 100
myPoints(2).Z = myUDOdoubles(2) + 0

myPoints(3).X = myUDOdoubles(0) + 0
myPoints(3).Y = myUDOdoubles(1) + 0
myPoints(3).Z = myUDOdoubles(2) + 0

' Display the triangle
displayEvent.DisplayContext.DisplayPolyline(myPoints)

' Display the text next to the triangle
Dim myPt As Point3d
myPt.X = myUDOdoubles(0) + 100
myPt.Y = myUDOdoubles(1) + 0
myPt.Z = myUDOdoubles(2) + 0
displayEvent.DisplayContext.DisplayText("VB .Net UDO", myPt, 0)
Catch ex As NXException
' the display/selection/fit/attention callback is called so many times
' that it's best to print this error handling stuff in the syslog
' any interactive messages in the UI would drive the user crazy ;)
theUfSession.UF.PrintSyslog("Caught Exception in myDisplayCB: '" & ex.Message() & "'" & vbCrLf, False)
End Try

myDisplayCB = 0
End Function

End Module

Module NXJournal
Sub Main (ByVal args() As String)

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

lw.open()

lw.writeline("corner(0): " & myUDOcorner(0))
lw.writeline("corner(1): " & myUDOcorner(1))
lw.writeline("corner(2): " & myUDOcorner(2))