Get user to select and fill surface

Hi all! I am new to NX Open Journaling.
Recently I am trying to modified the journal that I've created so that user can select a group of projected curve and fill surface.
As I am quite new to NX Journaling, the code that I modified cant work!
Any help will be ok! Thanks in advance!!!

' NX 10.0.3.5
' Journal created by ManTech-Sin on Fri Jun 17 13:55:01 2016 Malay Peninsula Standard Time
'
Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.UI

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

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

Dim displayPart As NXOpen.Part = theSession.Parts.Display

' ----------------------------------------------
' Menu: Insert->Surface->Fill Surface...
' ----------------------------------------------
Dim markId1 As NXOpen.Session.UndoMarkId
markId1 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Visible, "Start")

Dim nullNXOpen_Features_FillHole As NXOpen.Features.FillHole = Nothing

If Not workPart.Preferences.Modeling.GetHistoryMode Then
Throw(New Exception("Create or edit of a Feature was recorded in History Mode but playback is in History-Free Mode."))
End If

Dim fillHoleBuilder1 As NXOpen.Features.FillHoleBuilder
fillHoleBuilder1 = workPart.Features.FreeformSurfaceCollection.CreateFillHoleBuilder(nullNXOpen_Features_FillHole)

fillHoleBuilder1.Tolerance = 0.01

fillHoleBuilder1.DefaultEdgeContinuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G1

fillHoleBuilder1.Fullness.RightHandSide = "0"

theSession.SetUndoMarkName(markId1, "Fill Surface Dialog")

fillHoleBuilder1.CurveChain.DistanceTolerance = 0.01

fillHoleBuilder1.CurveChain.ChainingTolerance = 0.0095

fillHoleBuilder1.SelectPassThrougCurves.DistanceTolerance = 0.01

fillHoleBuilder1.SelectPassThrougCurves.ChainingTolerance = 0.0095

fillHoleBuilder1.CurveChain.SetAllowedEntityTypes(NXOpen.Section.AllowTypes.OnlyCurves)

Dim markId2 As NXOpen.Session.UndoMarkId
markId2 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Invisible, "section mark")

Dim markId3 As NXOpen.Session.UndoMarkId
markId3 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Invisible, Nothing)

Dim features1(0) As NXOpen.Features.Feature
'Dim projectCurve1 As NXOpen.Features.ProjectCurve = CType(workPart.Features.FindObject("CPROJ(134)"), NXOpen.Features.ProjectCurve)
'add
Dim projectCurve1 As Curve = Nothing
If SelectCurve("Select a curve", projectCurve1) = Selection.Response.Cancel Then
Return
End If
'end
features1(0) = projectCurve1
Dim curveFeatureRule1 As NXOpen.CurveFeatureRule
curveFeatureRule1 = workPart.ScRuleFactory.CreateRuleCurveFeature(features1)

fillHoleBuilder1.CurveChain.AllowSelfIntersection(True)

Dim rules1(0) As NXOpen.SelectionIntentRule
rules1(0) = curveFeatureRule1
Dim nullNXOpen_NXObject As NXOpen.NXObject = Nothing

Dim helpPoint1 As NXOpen.Point3d = New NXOpen.Point3d(0.0, 0.0, 0.0)
fillHoleBuilder1.CurveChain.AddToSection(rules1, nullNXOpen_NXObject, nullNXOpen_NXObject, nullNXOpen_NXObject, helpPoint1, NXOpen.Section.Mode.Create, False)

theSession.DeleteUndoMark(markId3, Nothing)

' Dim markertonodelistitem1(150) As NXOpen.Features.FillHoleBuilder.BorderContinuity
' Dim spline1 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 1 {9 (-22.2915218937917,-11.2692456554817,884.5167247292206)}"), NXOpen.Spline)

' markertonodelistitem1(0).BorderObject = spline1
' markertonodelistitem1(0).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline2 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 151 {9 (-22.171133236995,-11.1065728520564,882.8404612389408)}"), NXOpen.Spline)

' markertonodelistitem1(1).BorderObject = spline2
' markertonodelistitem1(1).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline3 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 150 {9 (-21.8233682623084,-10.8785873645389,882.5642058438201)}"), NXOpen.Spline)

' markertonodelistitem1(2).BorderObject = spline3
' markertonodelistitem1(2).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline4 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 149 {9 (-21.4697583124097,-10.6482926531905,882.2996236610569)}"), NXOpen.Spline)

' markertonodelistitem1(3).BorderObject = spline4
' markertonodelistitem1(3).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline5 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 148 {9 (-21.1029587385432,-10.4120018318159,882.0627038605994)}"), NXOpen.Spline)

' markertonodelistitem1(4).BorderObject = spline5
' markertonodelistitem1(4).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline6 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 147 {9 (-20.7507314409325,-10.1836592836219,881.7937995304684)}"), NXOpen.Spline)

' markertonodelistitem1(5).BorderObject = spline6
' markertonodelistitem1(5).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline7 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 146 {9 (-20.3359158866375,-9.8769966320938,880.687332278698)}"), NXOpen.Spline)

' markertonodelistitem1(6).BorderObject = spline7
' markertonodelistitem1(6).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline8 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 145 {9 (-20.5766457661628,-9.9519450174135,879.2532459917575)}"), NXOpen.Spline)

' markertonodelistitem1(7).BorderObject = spline8
' markertonodelistitem1(7).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline9 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 144 {9 (-20.8912478302695,-9.8659474938311,873.8322501487013)}"), NXOpen.Spline)

' markertonodelistitem1(8).BorderObject = spline9
' markertonodelistitem1(8).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline10 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 143 {9 (-20.2531571967306,-9.2565153113786,869.3243739573165)}"), NXOpen.Spline)

' markertonodelistitem1(9).BorderObject = spline10
' markertonodelistitem1(9).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline11 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 142 {9 (-19.8406326629812,-8.9578123736371,868.2035970317062)}"), NXOpen.Spline)

' markertonodelistitem1(10).BorderObject = spline11
' markertonodelistitem1(10).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline12 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 141 {9 (-19.0684406937372,-8.438999538351,866.8189319841059)}"), NXOpen.Spline)

' markertonodelistitem1(11).BorderObject = spline12
' markertonodelistitem1(11).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline13 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 140 {9 (-17.9850792013855,-7.7754561852675,866.0300847778876)}"), NXOpen.Spline)

' markertonodelistitem1(12).BorderObject = spline13
' markertonodelistitem1(12).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline14 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 139 {9 (-17.5645387856441,-7.4794086023004,864.9201302375739)}"), NXOpen.Spline)

' markertonodelistitem1(13).BorderObject = spline14
' markertonodelistitem1(13).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline15 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 138 {9 (-17.1370127623064,-7.1813025045903,863.8248271953069)}"), NXOpen.Spline)

' markertonodelistitem1(14).BorderObject = spline15
' markertonodelistitem1(14).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline16 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 137 {9 (-16.42642468934,-6.7505919432836,863.2672204788358)}"), NXOpen.Spline)

' markertonodelistitem1(15).BorderObject = spline16
' markertonodelistitem1(15).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline17 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 136 {9 (-16.3568260135304,-6.6707713491167,862.4429654961429)}"), NXOpen.Spline)

' markertonodelistitem1(16).BorderObject = spline17
' markertonodelistitem1(16).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline18 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 135 {9 (-15.9988905754835,-6.4553405204388,862.1689506138704)}"), NXOpen.Spline)

' markertonodelistitem1(17).BorderObject = spline18
' markertonodelistitem1(17).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline19 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 134 {9 (-15.0028720535865,-5.8939931466896,862.1507191109275)}"), NXOpen.Spline)

' markertonodelistitem1(18).BorderObject = spline19
' markertonodelistitem1(18).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline20 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 133 {9 (-14.5597540921103,-5.5951633750293,861.0847572947608)}"), NXOpen.Spline)

' markertonodelistitem1(19).BorderObject = spline20
' markertonodelistitem1(19).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline21 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 132 {9 (-13.8464735126149,-5.1707939694111,860.5249064509952)}"), NXOpen.Spline)

' markertonodelistitem1(20).BorderObject = spline21
' markertonodelistitem1(20).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline22 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 131 {9 (-13.4911245021599,-4.9599044311548,860.241228551513)}"), NXOpen.Spline)

' markertonodelistitem1(21).BorderObject = spline22
' markertonodelistitem1(21).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline23 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 130 {9 (-13.4171268078093,-4.8807908462602,859.4246262543966)}"), NXOpen.Spline)

' markertonodelistitem1(22).BorderObject = spline23
' markertonodelistitem1(22).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline24 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 129 {9 (-12.354335035842,-4.2533895395965,858.5614877456936)}"), NXOpen.Spline)

' markertonodelistitem1(23).BorderObject = spline24
' markertonodelistitem1(23).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline25 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 128 {9 (-11.291150495176,-3.6299811376359,857.694147458006)}"), NXOpen.Spline)

' markertonodelistitem1(24).BorderObject = spline25
' markertonodelistitem1(24).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline26 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 127 {9 (-11.1998654316019,-3.544986567244,856.9173452890839)}"), NXOpen.Spline)

' markertonodelistitem1(25).BorderObject = spline26
' markertonodelistitem1(25).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline27 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 126 {9 (-10.8424688098472,-3.3371153555258,856.6339195337212)}"), NXOpen.Spline)

' markertonodelistitem1(26).BorderObject = spline27
' markertonodelistitem1(26).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline28 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 125 {9 (-10.4891122547656,-3.1314860802664,856.3406309769159)}"), NXOpen.Spline)

' markertonodelistitem1(27).BorderObject = spline28
' markertonodelistitem1(27).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline29 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 124 {9 (-10.1293935852297,-2.9235206126858,856.0616940453288)}"), NXOpen.Spline)

' markertonodelistitem1(28).BorderObject = spline29
' markertonodelistitem1(28).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline30 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 123 {9 (-9.4519715026033,-2.5490872590992,855.9001260281542)}"), NXOpen.Spline)

' markertonodelistitem1(29).BorderObject = spline30
' markertonodelistitem1(29).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline31 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 122 {9 (-9.0797829342493,-2.3369026111929,855.6498367698337)}"), NXOpen.Spline)

' markertonodelistitem1(30).BorderObject = spline31
' markertonodelistitem1(30).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline32 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 121 {9 (-8.3969225752872,-1.9619699334989,855.4991046154821)}"), NXOpen.Spline)

' markertonodelistitem1(31).BorderObject = spline32
' markertonodelistitem1(31).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline33 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 120 {9 (-7.6495191605629,-1.5392297796202,855.003404172322)}"), NXOpen.Spline)

' markertonodelistitem1(32).BorderObject = spline33
' markertonodelistitem1(32).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline34 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 119 {9 (-6.6368000377818,-0.9963222072986,854.9945580080047)}"), NXOpen.Spline)

' markertonodelistitem1(33).BorderObject = spline34
' markertonodelistitem1(33).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline35 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 118 {9 (-5.262970466141,-0.2523834526289,854.7052872573465)}"), NXOpen.Spline)

' markertonodelistitem1(34).BorderObject = spline35
' markertonodelistitem1(34).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline36 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 117 {9 (-3.2287524176915,0.8254848905661,854.7018768214566)}"), NXOpen.Spline)

' markertonodelistitem1(35).BorderObject = spline36
' markertonodelistitem1(35).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline37 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 116 {9 (-1.8719528903062,1.5349995849971,854.8520377416953)}"), NXOpen.Spline)

' markertonodelistitem1(36).BorderObject = spline37
' markertonodelistitem1(36).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline38 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 115 {9 (-1.4855045576472,1.745242467676,854.6300758417491)}"), NXOpen.Spline)

' markertonodelistitem1(37).BorderObject = spline38
' markertonodelistitem1(37).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline39 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 114 {9 (-0.7857615393733,2.1156988181731,854.5084158458186)}"), NXOpen.Spline)

' markertonodelistitem1(38).BorderObject = spline39
' markertonodelistitem1(38).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline40 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 113 {9 (-0.0920662057753,2.4823714523136,854.369992956641)}"), NXOpen.Spline)

' markertonodelistitem1(39).BorderObject = spline40
' markertonodelistitem1(39).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline41 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 112 {9 (0.5353561530601,2.8032189664495,854.5708572096893)}"), NXOpen.Spline)

' markertonodelistitem1(40).BorderObject = spline41
' markertonodelistitem1(40).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline42 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 111 {9 (1.2451883283052,3.1752286915244,854.4717762354918)}"), NXOpen.Spline)

' markertonodelistitem1(41).BorderObject = spline42
' markertonodelistitem1(41).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline43 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 110 {9 (2.2586507526771,3.7012856559288,854.4444199957221)}"), NXOpen.Spline)

' markertonodelistitem1(42).BorderObject = spline43
' markertonodelistitem1(42).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline44 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 109 {9 (3.2746565695342,4.2265855024242,854.4219374117965)}"), NXOpen.Spline)

' markertonodelistitem1(43).BorderObject = spline44
' markertonodelistitem1(43).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline45 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 108 {9 (4.9780220988673,5.0952145975999,854.7173258500542)}"), NXOpen.Spline)

' markertonodelistitem1(44).BorderObject = spline45
' markertonodelistitem1(44).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline46 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 107 {9 (6.6704529384616,5.9541313226338,855.0419751166595)}"), NXOpen.Spline)

' markertonodelistitem1(45).BorderObject = spline46
' markertonodelistitem1(45).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline47 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 106 {9 (7.3374714185976,6.2885297641749,855.3390384284749)}"), NXOpen.Spline)

' markertonodelistitem1(46).BorderObject = spline47
' markertonodelistitem1(46).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline48 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 105 {9 (8.9451104775472,7.0876554218513,856.4693242991831)}"), NXOpen.Spline)

' markertonodelistitem1(47).BorderObject = spline48
' markertonodelistitem1(47).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline49 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 104 {9 (10.5677354937713,7.8969509072169,857.5862903450218)}"), NXOpen.Spline)

' markertonodelistitem1(48).BorderObject = spline49
' markertonodelistitem1(48).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline50 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 103 {9 (11.0491952572415,8.1364427827086,858.0205780540809)}"), NXOpen.Spline)

' markertonodelistitem1(49).BorderObject = spline50
' markertonodelistitem1(49).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline51 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 102 {9 (11.355040219411,8.2856684549956,858.6187267112421)}"), NXOpen.Spline)

' markertonodelistitem1(50).BorderObject = spline51
' markertonodelistitem1(50).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline52 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 101 {9 (11.8448884133474,8.5303589769516,859.0773199146188)}"), NXOpen.Spline)

' markertonodelistitem1(51).BorderObject = spline52
' markertonodelistitem1(51).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline53 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 100 {9 (12.5175025227315,8.8693518642157,859.391718343538)}"), NXOpen.Spline)

' markertonodelistitem1(52).BorderObject = spline53
' markertonodelistitem1(52).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline54 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 99 {9 (13.4670876541339,9.3461208851325,860.2283408177293)}"), NXOpen.Spline)

' markertonodelistitem1(53).BorderObject = spline54
' markertonodelistitem1(53).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline55 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 98 {9 (14.4357449718577,9.8342719040055,861.1195976867732)}"), NXOpen.Spline)

' markertonodelistitem1(54).BorderObject = spline55
' markertonodelistitem1(54).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline56 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 97 {9 (15.0113888001087,10.1252991151271,862.2282923748654)}"), NXOpen.Spline)

' markertonodelistitem1(55).BorderObject = spline56
' markertonodelistitem1(55).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline57 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 96 {9 (15.6806116056226,10.4651653487641,862.5364239420462)}"), NXOpen.Spline)

' markertonodelistitem1(56).BorderObject = spline57
' markertonodelistitem1(56).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline58 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 95 {9 (17.0340216253852,11.1580991905859,864.2054969780191)}"), NXOpen.Spline)

' markertonodelistitem1(57).BorderObject = spline58
' markertonodelistitem1(57).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline59 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 94 {9 (18.6148820876668,11.979222202084,866.3227674778027)}"), NXOpen.Spline)

' markertonodelistitem1(58).BorderObject = spline59
' markertonodelistitem1(58).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline60 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 93 {9 (18.84451481019,12.1014344814954,866.7895937354294)}"), NXOpen.Spline)

' markertonodelistitem1(59).BorderObject = spline60
' markertonodelistitem1(59).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline61 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 92 {9 (19.131412419144,12.2545890452211,867.3497288835141)}"), NXOpen.Spline)

' markertonodelistitem1(60).BorderObject = spline61
' markertonodelistitem1(60).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline62 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 91 {9 (20.0774335226556,12.7493346935395,868.2228775373688)}"), NXOpen.Spline)

' markertonodelistitem1(61).BorderObject = spline62
' markertonodelistitem1(61).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline63 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 90 {9 (20.4838155033583,12.9703134481341,869.0450906409487)}"), NXOpen.Spline)

' markertonodelistitem1(62).BorderObject = spline63
' markertonodelistitem1(62).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline64 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 89 {9 (20.2674208329083,12.8699261227786,869.6203339139494)}"), NXOpen.Spline)

' markertonodelistitem1(63).BorderObject = spline64
' markertonodelistitem1(63).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline65 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 88 {9 (20.2240301165015,12.8554116465706,870.0446674782436)}"), NXOpen.Spline)

' markertonodelistitem1(64).BorderObject = spline65
' markertonodelistitem1(64).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline66 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 87 {9 (20.5060638055387,13.0111276668256,870.6275754552613)}"), NXOpen.Spline)

' markertonodelistitem1(65).BorderObject = spline66
' markertonodelistitem1(65).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline67 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 86 {9 (20.7601049502028,13.1624968763074,871.6431382628576)}"), NXOpen.Spline)

' markertonodelistitem1(66).BorderObject = spline67
' markertonodelistitem1(66).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline68 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 85 {9 (21.2332785405727,13.4275262906025,872.5946540860767)}"), NXOpen.Spline)

' markertonodelistitem1(67).BorderObject = spline68
' markertonodelistitem1(67).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline69 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 84 {9 (21.5625642662422,13.6137835740203,873.271765916507)}"), NXOpen.Spline)

' markertonodelistitem1(68).BorderObject = spline69
' markertonodelistitem1(68).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline70 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 83 {9 (21.3377747728906,13.5118176666237,873.8358499139171)}"), NXOpen.Spline)

' markertonodelistitem1(69).BorderObject = spline70
' markertonodelistitem1(69).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline71 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 82 {9 (21.6231627669457,13.6749661322527,874.4271049930221)}"), NXOpen.Spline)

' markertonodelistitem1(70).BorderObject = spline71
' markertonodelistitem1(70).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline72 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 81 {9 (21.919499400147,13.8452529535096,875.0362410163388)}"), NXOpen.Spline)

' markertonodelistitem1(71).BorderObject = spline72
' markertonodelistitem1(71).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline73 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 80 {9 (22.1386100215506,13.9717899880966,875.485480706859)}"), NXOpen.Spline)

' markertonodelistitem1(72).BorderObject = spline73
' markertonodelistitem1(72).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline74 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 79 {9 (22.3067332026342,14.0691970281391,875.8279541339133)}"), NXOpen.Spline)

' markertonodelistitem1(73).BorderObject = spline74
' markertonodelistitem1(73).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline75 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 78 {9 (22.4335726372727,14.1584572922138,876.5918250017996)}"), NXOpen.Spline)

' markertonodelistitem1(74).BorderObject = spline75
' markertonodelistitem1(74).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline76 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 77 {9 (23.2046048546207,14.5953208201924,877.6655293738852)}"), NXOpen.Spline)

' markertonodelistitem1(75).BorderObject = spline76
' markertonodelistitem1(75).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline77 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 76 {9 (23.3228123578656,14.7025551615872,878.9605217887422)}"), NXOpen.Spline)

' markertonodelistitem1(76).BorderObject = spline77
' markertonodelistitem1(76).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline78 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 75 {9 (22.8961880823862,14.5029759244052,879.6328892618481)}"), NXOpen.Spline)

' markertonodelistitem1(77).BorderObject = spline78
' markertonodelistitem1(77).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline79 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 74 {9 (22.8240216191687,14.479003866961,880.0168896276258)}"), NXOpen.Spline)

' markertonodelistitem1(78).BorderObject = spline79
' markertonodelistitem1(78).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline80 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 73 {9 (22.6972914015195,14.4416717011657,880.8123592123703)}"), NXOpen.Spline)

' markertonodelistitem1(79).BorderObject = spline80
' markertonodelistitem1(79).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline81 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 72 {9 (22.5720960163543,14.405698602315,881.6101123043104)}"), NXOpen.Spline)

' markertonodelistitem1(80).BorderObject = spline81
' markertonodelistitem1(80).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline82 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 71 {9 (22.4373665343705,14.3645177538889,882.393216483296)}"), NXOpen.Spline)

' markertonodelistitem1(81).BorderObject = spline82
' markertonodelistitem1(81).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline83 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 70 {9 (22.3327849066511,14.3416634537076,883.2235060965891)}"), NXOpen.Spline)

' markertonodelistitem1(82).BorderObject = spline83
' markertonodelistitem1(82).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline84 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 69 {9 (22.2447330245824,14.3292507138571,884.0803389346413)}"), NXOpen.Spline)

' markertonodelistitem1(83).BorderObject = spline84
' markertonodelistitem1(83).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline85 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 68 {9 (22.528694259132,14.5062510874171,884.6774734189792)}"), NXOpen.Spline)

' markertonodelistitem1(84).BorderObject = spline85
' markertonodelistitem1(84).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline86 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 67 {9 (22.7882649015053,14.6695164638447,885.2370926947745)}"), NXOpen.Spline)

' markertonodelistitem1(85).BorderObject = spline86
' markertonodelistitem1(85).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline87 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 66 {9 (22.25592879437,14.4263656929266,886.2396535904729)}"), NXOpen.Spline)

' markertonodelistitem1(86).BorderObject = spline87
' markertonodelistitem1(86).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline88 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 65 {9 (21.7332575810101,14.1875660531272,887.2567413247713)}"), NXOpen.Spline)

' markertonodelistitem1(87).BorderObject = spline88
' markertonodelistitem1(87).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline89 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 64 {9 (21.6133259170592,14.1576336154757,888.0633354210205)}"), NXOpen.Spline)

' markertonodelistitem1(88).BorderObject = spline89
' markertonodelistitem1(88).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline90 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 63 {9 (21.4828840461821,14.1214458392503,888.8532986844253)}"), NXOpen.Spline)

' markertonodelistitem1(89).BorderObject = spline90
' markertonodelistitem1(89).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline91 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 62 {9 (20.9753499288038,13.8894631333761,889.8922840401878)}"), NXOpen.Spline)

' markertonodelistitem1(90).BorderObject = spline91
' markertonodelistitem1(90).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline92 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 61 {9 (20.7872330324272,13.839356576553,891.088349205853)}"), NXOpen.Spline)

' markertonodelistitem1(91).BorderObject = spline92
' markertonodelistitem1(91).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline93 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 60 {9 (20.4311661784514,13.6550541497128,891.3711204206242)}"), NXOpen.Spline)

' markertonodelistitem1(92).BorderObject = spline93
' markertonodelistitem1(92).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline94 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 59 {9 (20.3519464111505,13.6277392951719,891.7428204237202)}"), NXOpen.Spline)

' markertonodelistitem1(93).BorderObject = spline94
' markertonodelistitem1(93).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline95 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 58 {9 (20.2109796397033,13.5840226800956,892.514372149742)}"), NXOpen.Spline)

' markertonodelistitem1(94).BorderObject = spline95
' markertonodelistitem1(94).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline96 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 57 {9 (20.1078389314885,13.5641723208816,893.3471695215775)}"), NXOpen.Spline)

' markertonodelistitem1(95).BorderObject = spline96
' markertonodelistitem1(95).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline97 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 56 {9 (19.9949283673139,13.5382423291568,894.1642604733181)}"), NXOpen.Spline)

' markertonodelistitem1(96).BorderObject = spline97
' markertonodelistitem1(96).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline98 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 55 {9 (19.5553354052934,13.3206294690569,894.8096151975617)}"), NXOpen.Spline)

' markertonodelistitem1(97).BorderObject = spline98
' markertonodelistitem1(97).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline99 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 54 {9 (19.4097425755987,13.2730791297463,895.5720715094277)}"), NXOpen.Spline)

' markertonodelistitem1(98).BorderObject = spline99
' markertonodelistitem1(98).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline100 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 53 {9 (18.9470079638828,13.0384704497605,896.1778697431378)}"), NXOpen.Spline)

' markertonodelistitem1(99).BorderObject = spline100
' markertonodelistitem1(99).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline101 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 52 {9 (18.1977204903713,12.6346495079685,896.6772840000185)}"), NXOpen.Spline)

' markertonodelistitem1(100).BorderObject = spline101
' markertonodelistitem1(100).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline102 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 51 {9 (18.0589470229584,12.5888909767805,897.4486268915861)}"), NXOpen.Spline)

' markertonodelistitem1(101).BorderObject = spline102
' markertonodelistitem1(101).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline103 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 50 {9 (17.9155782380202,12.5399338768205,898.2120234373826)}"), NXOpen.Spline)

' markertonodelistitem1(102).BorderObject = spline103
' markertonodelistitem1(102).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline104 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 49 {9 (17.167441997672,12.1312038392225,898.7101909877302)}"), NXOpen.Spline)

' markertonodelistitem1(103).BorderObject = spline104
' markertonodelistitem1(103).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline105 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 48 {9 (16.6234155957377,11.8569717155719,899.6746475837661)}"), NXOpen.Spline)

' markertonodelistitem1(104).BorderObject = spline105
' markertonodelistitem1(104).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline106 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 47 {9 (16.11823337617,11.605305648983,900.7033258052788)}"), NXOpen.Spline)

' markertonodelistitem1(105).BorderObject = spline106
' markertonodelistitem1(105).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline107 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 46 {9 (15.6156400470923,11.3526607646925,901.7338400785072)}"), NXOpen.Spline)

' markertonodelistitem1(106).BorderObject = spline107
' markertonodelistitem1(106).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline108 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 45 {9 (15.0944985819807,11.0851763005105,902.7309251673856)}"), NXOpen.Spline)

' markertonodelistitem1(107).BorderObject = spline108
' markertonodelistitem1(107).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline109 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 44 {9 (14.3468448598884,10.6621068415271,903.2215477420879)}"), NXOpen.Spline)

' markertonodelistitem1(108).BorderObject = spline109
' markertonodelistitem1(108).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline110 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 43 {9 (13.5562644643678,10.2081556486367,903.6359669347573)}"), NXOpen.Spline)

' markertonodelistitem1(109).BorderObject = spline110
' markertonodelistitem1(109).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline111 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 42 {9 (12.775075194097,9.7575993128101,904.0649477565273)}"), NXOpen.Spline)

' markertonodelistitem1(110).BorderObject = spline111
' markertonodelistitem1(110).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline112 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 41 {9 (11.616581499035,9.0852254501746,904.727879292424)}"), NXOpen.Spline)

' markertonodelistitem1(111).BorderObject = spline112
' markertonodelistitem1(111).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline113 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 40 {9 (10.4312519007195,8.3890293961978,905.338603284408)}"), NXOpen.Spline)

' markertonodelistitem1(112).BorderObject = spline113
' markertonodelistitem1(112).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline114 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 39 {9 (9.6356525886111,7.9179004267777,905.7332518094141)}"), NXOpen.Spline)

' markertonodelistitem1(113).BorderObject = spline114
' markertonodelistitem1(113).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline115 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 38 {9 (8.5971137934051,7.2842329634888,905.5989936624972)}"), NXOpen.Spline)

' markertonodelistitem1(114).BorderObject = spline115
' markertonodelistitem1(114).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline116 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 37 {9 (7.1647801841653,6.4130548452306,905.6708761943783)}"), NXOpen.Spline)

' markertonodelistitem1(115).BorderObject = spline116
' markertonodelistitem1(115).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline117 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 36 {9 (5.6026109615196,5.4688636915639,906.4904235947882)}"), NXOpen.Spline)

' markertonodelistitem1(116).BorderObject = spline117
' markertonodelistitem1(116).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline118 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 35 {9 (4.1880083136489,4.5970220102938,906.5806784902239)}"), NXOpen.Spline)

' markertonodelistitem1(117).BorderObject = spline118
' markertonodelistitem1(117).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline119 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 34 {9 (3.7906977576235,4.3529892783422,906.7711917651945)}"), NXOpen.Spline)

' markertonodelistitem1(118).BorderObject = spline119
' markertonodelistitem1(118).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline120 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 33 {9 (3.386102208709,4.1036052269305,906.9474416954481)}"), NXOpen.Spline)

' markertonodelistitem1(119).BorderObject = spline120
' markertonodelistitem1(119).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline121 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 32 {9 (2.3401003179949,3.4519502957941,906.789971037394)}"), NXOpen.Spline)

' markertonodelistitem1(120).BorderObject = spline121
' markertonodelistitem1(120).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline122 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 31 {9 (1.3052597984748,2.8060811320445,906.6523734733863)}"), NXOpen.Spline)

' markertonodelistitem1(121).BorderObject = spline122
' markertonodelistitem1(121).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline123 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 30 {9 (0.9126556861935,2.561279173494,906.8479455988294)}"), NXOpen.Spline)

' markertonodelistitem1(122).BorderObject = spline123
' markertonodelistitem1(122).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline124 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 29 {9 (0.538341197233,2.32727326405,907.0768106188655)}"), NXOpen.Spline)

' markertonodelistitem1(123).BorderObject = spline124
' markertonodelistitem1(123).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline125 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 28 {9 (-0.4939253126176,1.6792500234676,906.9410488432598)}"), NXOpen.Spline)

' markertonodelistitem1(124).BorderObject = spline125
' markertonodelistitem1(124).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline126 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 27 {9 (-2.2308108158581,0.5878241932738,906.3711383506518)}"), NXOpen.Spline)

' markertonodelistitem1(125).BorderObject = spline126
' markertonodelistitem1(125).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline127 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 26 {9 (-3.9300698865793,-0.4810019839052,905.8358000507025)}"), NXOpen.Spline)

' markertonodelistitem1(126).BorderObject = spline127
' markertonodelistitem1(126).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline128 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 25 {9 (-4.7080169362802,-0.978554695486,906.22819201454)}"), NXOpen.Spline)

' markertonodelistitem1(127).BorderObject = spline128
' markertonodelistitem1(127).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline129 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 24 {9 (-5.7530942142925,-1.6409346240824,906.0631261877991)}"), NXOpen.Spline)

' markertonodelistitem1(128).BorderObject = spline129
' markertonodelistitem1(128).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline130 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 23 {9 (-6.7965299443921,-2.3036097950133,905.8997792453394)}"), NXOpen.Spline)

' markertonodelistitem1(129).BorderObject = spline130
' markertonodelistitem1(129).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline131 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 22 {9 (-6.9461165629969,-2.3935186182008,905.5913518462021)}"), NXOpen.Spline)

' markertonodelistitem1(130).BorderObject = spline131
' markertonodelistitem1(130).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline132 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 21 {9 (-7.2296621947164,-2.563484264178,905.0076450611506)}"), NXOpen.Spline)

' markertonodelistitem1(131).BorderObject = spline132
' markertonodelistitem1(131).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline133 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 20 {9 (-8.4212472258795,-3.3138640280536,904.5429117972113)}"), NXOpen.Spline)

' markertonodelistitem1(132).BorderObject = spline133
' markertonodelistitem1(132).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline134 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 19 {9 (-9.479721943707,-3.9858819092034,904.3505723943493)}"), NXOpen.Spline)

' markertonodelistitem1(133).BorderObject = spline134
' markertonodelistitem1(133).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline135 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 18 {9 (-10.1482450690414,-4.4041311421085,903.968704940635)}"), NXOpen.Spline)

' markertonodelistitem1(134).BorderObject = spline135
' markertonodelistitem1(134).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline136 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 17 {9 (-10.8160646894534,-4.8215950562032,903.5882413494528)}"), NXOpen.Spline)

' markertonodelistitem1(135).BorderObject = spline136
' markertonodelistitem1(135).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline137 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 16 {9 (-11.5649674254647,-5.2858690197353,903.0456395703043)}"), NXOpen.Spline)

' markertonodelistitem1(136).BorderObject = spline137
' markertonodelistitem1(136).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline138 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 15 {9 (-12.530626829683,-5.8741359085596,902.0614096748221)}"), NXOpen.Spline)

' markertonodelistitem1(137).BorderObject = spline138
' markertonodelistitem1(137).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline139 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 14 {9 (-13.5289743183903,-6.5120042317212,901.9906157816023)}"), NXOpen.Spline)

' markertonodelistitem1(138).BorderObject = spline139
' markertonodelistitem1(138).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline140 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 13 {9 (-14.1969903323302,-6.9277909533369,901.6117499335719)}"), NXOpen.Spline)

' markertonodelistitem1(139).BorderObject = spline140
' markertonodelistitem1(139).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline141 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 12 {9 (-15.1651269220232,-7.5130654197519,900.6270927726824)}"), NXOpen.Spline)

' markertonodelistitem1(140).BorderObject = spline141
' markertonodelistitem1(140).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline142 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 11 {9 (-16.1436720066017,-8.1017227055505,899.6263345554357)}"), NXOpen.Spline)

' markertonodelistitem1(141).BorderObject = spline142
' markertonodelistitem1(141).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline143 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 10 {9 (-16.7823910054493,-8.4987050045704,899.3106168735292)}"), NXOpen.Spline)

' markertonodelistitem1(142).BorderObject = spline143
' markertonodelistitem1(142).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline144 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 9 {9 (-17.08632012399,-8.667873998773,898.7004163070591)}"), NXOpen.Spline)

' markertonodelistitem1(143).BorderObject = spline144
' markertonodelistitem1(143).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline145 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 8 {9 (-17.3937309189304,-8.796643044111,897.1184710241346)}"), NXOpen.Spline)

' markertonodelistitem1(144).BorderObject = spline145
' markertonodelistitem1(144).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline146 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 7 {9 (-17.9988402777295,-9.1292763319748,895.9076741030714)}"), NXOpen.Spline)

' markertonodelistitem1(145).BorderObject = spline146
' markertonodelistitem1(145).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline147 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 6 {9 (-18.8920944428482,-9.6604621576405,895.0886385006274)}"), NXOpen.Spline)

' markertonodelistitem1(146).BorderObject = spline147
' markertonodelistitem1(146).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline148 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 5 {9 (-19.1880238113879,-9.8211168700687,894.4991489659672)}"), NXOpen.Spline)

' markertonodelistitem1(147).BorderObject = spline148
' markertonodelistitem1(147).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline149 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 4 {9 (-20.3491818782903,-10.3987174164996,891.2285552371515)}"), NXOpen.Spline)

' markertonodelistitem1(148).BorderObject = spline149
' markertonodelistitem1(148).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline150 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 3 {9 (-21.802114034032,-11.1160220737517,887.3950711532301)}"), NXOpen.Spline)

' markertonodelistitem1(149).BorderObject = spline150
' markertonodelistitem1(149).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' Dim spline151 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 2 {9 (-22.0480483782004,-11.1938998128554,885.9527943097419)}"), NXOpen.Spline)

' markertonodelistitem1(150).BorderObject = spline151
' markertonodelistitem1(150).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0
' fillHoleBuilder1.SetBorderTypeItems(markertonodelistitem1)

theSession.DeleteUndoMark(markId2, Nothing)

Dim markId4 As NXOpen.Session.UndoMarkId
markId4 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Invisible, "Fill Surface")

theSession.DeleteUndoMark(markId4, Nothing)

Dim markId5 As NXOpen.Session.UndoMarkId
markId5 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Invisible, "Fill Surface")

Dim nXObject1 As NXOpen.NXObject
nXObject1 = fillHoleBuilder1.Commit()

Dim displayModification1 As NXOpen.DisplayModification
displayModification1 = theSession.DisplayManager.NewDisplayModification()

displayModification1.ApplyToAllFaces = False

displayModification1.SetNewGrid(0, 0)

displayModification1.PoleDisplayState = False

displayModification1.KnotDisplayState = False

Dim objects1(0) As NXOpen.DisplayableObject
Dim fillHole1 As NXOpen.Features.FillHole = CType(nXObject1, NXOpen.Features.FillHole)

Dim face1 As NXOpen.Face = CType(fillHole1.FindObject("FACE 1 {(0.7645655932465,2.4610161836951,880.631967689838) FILLHOLE(136)}"), NXOpen.Face)

objects1(0) = face1
displayModification1.Apply(objects1)

face1.Color = 32767

theSession.DeleteUndoMark(markId5, Nothing)

theSession.SetUndoMarkName(markId1, "Fill Surface")

fillHoleBuilder1.Destroy()

' ----------------------------------------------
' Menu: Tools->Journal->Stop Recording
' ----------------------------------------------

End Sub

Function SelectCurve(ByVal prompt As String, ByRef theObj As NXOpen.Features.ProjectCurve) As Selection.Response

Dim theUI As UI = UI.GetUI
Dim title As String = "Select a curve"
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(3) As Selection.MaskTriple
Dim selObj As NXOpen.Features.ProjectCurve = Nothing

' With selectionMask_array(0)
' .Type = UFConstants.UF_circle_type
' .Subtype = 0
' End With
' With selectionMask_array(1)
' .Type = UFConstants.UF_conic_type
' .Subtype = UFConstants.UF_all_subtype
' End With
' With selectionMask_array(2)
' .Type = UFConstants.UF_line_type
' .Subtype = UFConstants.UF_all_subtype
' End With
With selectionMask_array(3)
.Type = UFConstants.UF_spline_type
.Subtype = UFConstants.UF_all_subtype
End With

' Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt,
' title, scope, selAction,
' includeFeatures, keepHighlighted, selectionMask_array,
' selObj, cursor)

' theObj = selObj

' If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
' Return Selection.Response.Ok
' Else
' Return Selection.Response.Cancel
' End If

End Function
End Module