Code:
Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.UFModule NXJournal
Sub Main
Dim theSession As Session = Session.GetSession()
Dim theUI As UI = UI.GetUI()
Dim ufs As UFSession = UFSession.GetUFSession()
Dim lw As ListingWindow = theSession.ListingWindow
Dim spline As NXObject = nothing
Dim splineData As UFCurve.Spline = nothing
spline = SelectSpline("Select a Spline")
ufs.Curve.AskSplineData(spline.Tag, splineData)
Dim junk3(2) As Double
Dim junk As Double
Dim point(2) As Double
lw.Open()
ufs.Modl.AskCurveProps( spline.Tag, _
splineData.start_param, point, _
junk3, junk3, junk3, junk, junk )
lw.WriteLine( "Startpoint: " _
& point(0).ToString & ", " _
& point(1).ToString & ", " _
& point(2).ToString )
ufs.Modl.AskCurveProps( spline.Tag, _
splineData.end_param, point, _
junk3, junk3, junk3, junk, junk )
lw.WriteLine( "Endpoint: " _
& point(0).ToString & ", " _
& point(1).ToString & ", " _
& point(2).ToString )
End Sub
Function SelectSpline(ByVal prompt as String) As NXObject
Dim ui As UI = ui.GetUI()
Dim title As String = "Select a Spline"
Dim response As Selection.Response
Dim selectionMask(0) As Selection.MaskTriple
With selectionMask(0)
.Type = UFConstants.UF_spline_type
.Subtype = 0
.SolidBodySubtype = 0
End With
Dim cursor As Point3d = Nothing
Dim selectedObject as NXObject = Nothing
response = ui.SelectionManager.SelectObject(prompt, _
"Select a Spline", Selection.SelectionScope.WorkPart, _
Selection.SelectionAction.ClearAndEnableSpecific, _
False, False, selectionMask, selectedObject, cursor)
Return selectedObject
End Function
End Module