distance between 2 points

Submitted by quicova@gmail.com on Mon, 02/05/2018 - 02:24
Forums: 
Journaling / NXOpen API

I'm trying to find the minimum distance between 2 points but I keep getting an error.
I get and error saying I can't convert a point3d to an object

This is what I have so far:

Dim LEpoint as Point3D
Dim intpoint as Point3D

Dim chord As MeasureDistance = workPart.MeasureManager.NewDistance(workPart.UnitCollection.FindObject("Milimiters"), MeasureManager.MeasureType.Minimum, LEpoint, intpoint)

lw.writeline ("distance is " & chord.value)

NXJournaling - Mon, 02/05/2018 - 06:04

The MeasureManager.NewDistance method requires two objects of type "DisplayableObject" to be passed to the method. You could create a point object using the Point3D coordinates, then delete it after you get the distance value.

Alternatively, you could use the AskMinimumDist function to find the distance. It allows the input of point coordinates in the form of arrays of double values. In this case, you could convert the Point3D coordinates to arrays and pass them to the function.

quicova@gmail.com - Mon, 02/05/2018 - 06:44

Nice that would be faster then creating a point and thane deleting it.

Can you show me an example, I can’t find the apis for it and keeps telling me I’m missing something for it to work.

Thanks

NXJournaling - Mon, 02/05/2018 - 07:46

The code below calculates the distance between the point locations represented by the arrays pt1 and pt2.

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, "NXJ")

lw.Open()

Dim pt1() As Double = {0, 0, 0}
Dim pt2() As Double = {3.14, 2.71, 1.41}

Dim temp1(2) As Double
Dim temp2(2) As Double
Dim minDist As Double
theUfSession.Modl.AskMinimumDist(Nothing, Nothing, 1, pt1, 1, pt2, minDist, temp1, temp2)

lw.WriteLine("minimum distance: " & minDist.ToString)

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