Journal to select endpoints

[zyxcba]

I'd like to create a journal in NX 7.5 that makes several arcs and then connects their endpoints to create a profile. I wrote a journal to create the arcs (simplified version below, the final version will have hundreds) but since I don't know exact coordinates of the arc endpoints, I haven't figured out a way to create lines connecting the arcs. Is there a way to designate the endpoint of an arc in a journal without the user selecting it? Thanks!

Option Strict Off
Imports System
Imports NXOpen

Module NXJournal
Sub Main

Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim displayPart As Part = theSession.Parts.Display

Dim angleStart As Double
angleStart = 0

Dim ptCenter As New Point3d(0, 0, 0)

Dim arcStep As Double
arcStep = 0.4

Do

DrawArc(angleStart, angleStart + arcStep, 4, ptCenter)

angleStart = angleStart + arcStep + 0.2

DrawArc(angleStart, angleStart + arcStep, 3, ptCenter)

angleStart = angleStart + arcStep + 0.2
arcStep = arcStep + 0.1

Loop Until angleStart > Math.pi

End Sub

Sub DrawArc(ByVal arcStart As Double, ByVal arcEnd As Double, ByVal radius As Double, ByVal ptCenter As Point3d)

Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim displayPart As Part = theSession.Parts.Display

Dim nxMatrix1 As NXMatrix = CType(workPart.NxMatrices.FindObject("WCS"),NXMatrix)

Dim arc1 As Arc
arc1 = workPart.Curves.CreateArc(ptCenter, nxMatrix1, radius, arcStart, arcEnd)

End Sub

End Module

 

[cowski]

Have a look here:

http://nxjournaling.com/?q=content/arc-start-point-and-end-point

www.nxjournaling.com

 

[zyxcba]

That's amazing, thank you so much!