Obtaining information from datum axis

I'm using Visual Basic, does the U, V approach works with VB?

Also how do I get the direction of the datum axis in respect to a WCS defined by the user?

Thanks for the reply!

Thanks for the reply, I do not have SNAP, I tried using the NXOpen.UF.UFEvalsf but I don't know what the parameters mean.

Public Sub FindClosestPint(evaluator As System.IntPtr, point() As Double, ByRef srf_pos3 As NXOpen.UF.UFEvalsf.Pos3)

Public Sub Evaluate(evaluator As System.Int.Ptr, deriv_flag As Integer, uv_pair() As Double, ByRef surf_eval As NxOpen.UF.ModlSrfValue)

Can you please explain them to me?

The code lets the user open a CAD file, then enters modeling and opens the Point window. From the code I can already change the coordinates from absolute to WCS. But i want to know the angle of the face each point is made in reference to the WCS.

Public Sub puntos()

theSession = Session.GetSession()
theUFSession = UFSession.GetUFSession()

Dim theUI As UI = UI.GetUI()

'Insert code here
Dim base_pt As Double() = New Double(2) {}

Dim cont As Integer
cont = 0

'Dim arreglopunto() As String = {1, cont}
Dim arreglopuntox() As Double = {1, cont}
Dim arreglopuntoy() As Double = {1, cont}
Dim arreglopuntoz() As Double = {1, cont}

While select_point("Select Point", base_pt) = UFConstants.UF_UI_OK

'theUI.NXMessageBox.Show("Selected Point", NXMessageBox.DialogType.Information, (("X:" & base_pt(0).ToString() & vbLf & "Y:") + base_pt(1).ToString() & vbLf & "Z:") + base_pt(2).ToString())
Dim workPart As Part = theSession.Parts.Work

Dim destinationPoint1 As Point3d = New Point3d
destinationPoint1.X = base_pt(0)
destinationPoint1.Y = base_pt(1)
destinationPoint1.Z = base_pt(2)

Dim point3 As Point
point3 = workPart.Points.CreatePoint(destinationPoint1)

Dim nullFeatures_Feature As Features.Feature = Nothing
Dim pointFeatureBuilder1 As Features.PointFeatureBuilder
pointFeatureBuilder1 = workPart.BaseFeatures.CreatePointFeatureBuilder(nullFeatures_Feature)

pointFeatureBuilder1.Point = point3

Dim nXObject1 As NXObject
nXObject1 = pointFeatureBuilder1.Commit()

Dim doublee As Point3d = point3.Coordinates

If cont = 0 Then
MsgBox("-El eje de las X debe quedar apuntando a la derecha y el eje Z hacia arriba" & (Chr(10)) & (Chr(10)) & "-Si hace falta acomodar da doble click en el eje de coordenadas que aparecerá en la pieza" & (Chr(10)) & (Chr(10)) & "-Al finalizar presiona Esc")
Dim origin1 As Point3d = New Point3d(doublee.X, doublee.Y, doublee.Z)
Dim matrix1 As Matrix3x3 = New Matrix3x3()
workPart.WCS().SetOriginAndMatrix(origin1, matrix1)

Else : End If

'Manda llamar a la función que cambia el eje de coordenadas absoluto al definido por el usuario
doublee = Abs2WCS(doublee)

If cont = 0 Then

Else
Dim lw As ListingWindow = theSession.ListingWindow
lw.Open()
lw.WriteLine(doublee.ToString)
End If

'ReDim Preserve arreglopunto(cont)
ReDim Preserve arreglopuntox(cont)
ReDim Preserve arreglopuntoy(cont)
ReDim Preserve arreglopuntoz(cont)

For i As Integer = 0 To cont

arreglopuntox(cont) = doublee.X
arreglopuntoy(cont) = doublee.Y
arreglopuntoz(cont) = doublee.Z

Next i

Dim crearArchivo As String = "C:\Users\sse\Desktop\" & nombreArchivoSinExt & ".txt"
Dim fs As FileStream = Nothing

fs = File.Create(crearArchivo)
Using fs
End Using

Using sw As StreamWriter = New StreamWriter(crearArchivo)

sw.WriteLine("Aquí va la primera parte del programa")

For i As Integer = 1 To cont
sw.WriteLine("Punto " & i & ": X=" & arreglopuntox(i) & " Y=" & arreglopuntoy(i) & " Z=" & arreglopuntoz(i))
sw.WriteLine("")

Next i
End Using

cont = cont + 1

End While

'cierra el programa
If select_point("Select Point", base_pt) = UFConstants.UF_UI_CANCEL Then
varcerrar = 1
Else
varcerrar = 0
End If
If varcerrar = 1 Then
cerrar()
Dim pProcess() As Process = System.Diagnostics.Process.GetProcessesByName("ugraf")
For Each p As Process In pProcess
p.Kill()
Next
End If

End Sub

'Función para retornar valores de puntos seleccionados
Public Shared Function select_point(ByVal cue As String, ByRef base_pt As Double()) As Integer
Dim point_tag As NXOpen.Tag = NXOpen.Tag.Null
Dim response As Integer = 0
Dim base_method As UFUi.PointBaseMethod = UFUi.PointBaseMethod.PointOnSurfacePt

theUFSession.Ui.LockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
theUFSession.Ui.PointConstruct(cue, base_method, point_tag, base_pt, response)
theUFSession.Ui.UnlockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
Return response
End Function

'Función para cambiar las coordenadas de absolutas a las definidas por el usuario
Public Shared Function Abs2WCS(ByVal inPt As Point3d) As Point3d
Dim pt1(2), pt2(2) As Double
Dim ufs As UFSession = UFSession.GetUFSession()

pt1(0) = inPt.X
pt1(1) = inPt.Y
pt1(2) = inPt.Z

ufs.Csys.MapPoint(UFConstants.UF_CSYS_ROOT_COORDS, pt1, _
UFConstants.UF_CSYS_ROOT_WCS_COORDS, pt2)

Abs2WCS.X = pt2(0)
Abs2WCS.Y = pt2(1)
Abs2WCS.Z = pt2(2)

End Function

End Class

If I declare Dim faceTag As NXOpen.Tag = NXOpen.Tag.Null, the next error appears: NXOpen.NXException: The first parameter passed in was invalid.

No, I do not have that in the code, the user will only mark points, how do I add face selection?

Thank you, I do have access to that forum, let me check the code you posted.