如何通过Visual Basic将草图文件以编程方式导入NX？

如何解决如何通过Visual Basic将草图文件以编程方式导入NX？

我需要将草图导入NX，此草图是2D草图，它可以是任何几何形状，我不知道它的外观，因为它取决于客户。该草图应作为对象的横截面。在获得此草图之后，应该将其拉伸并创建对象。下面是我为其他目的编写的程序，我在代码中留出了一段空白，因为我相信我应该在其中插入一些内容以呼出草图，但是我不知道应该写什么差距。谁能告诉我在空白处写些什么以呼出草图？非常感谢！

Option Strict Off
Imports System
Imports NXOpen
Module Points_01
     Sub Main(ByVal args() As String)
              'Declare working part of the NX session
       Dim theSession As Session = Session.GetSession()
       Dim workPart As Part = theSession.Parts.Work




              'Create a section
              Dim circ As NXOpen.Section = workPart.Sections.CreateSection(ctol,dtol,atol)
              Dim helpPoint As New NXOpen.Point3d(X,Y,Z)
              Dim nullObj As NXOpen.NXObject = nothing
              Dim noChain As Boolean = False
              Dim createMode As NXOpen.Section.Mode = Section.Mode.Create
              ' Create rules to add the circle to the section
              Dim circl As NXOpen.CurveDumbRule = workPart.ScruleFactory.CreateRuleBaseCurveDumb({disk0,disk1})
              circ.AddToSection({circl},disk0,nullObj,helpPoint,createMode,noChain)
              circ.AddToSection({circl},disk1,noChain)
              Dim builder = workPart.Features.CreateExtrudeBuilder(nothing)
              builder.Section = circ
              'Define the direction of the Extrude
              Dim origin As New NXOpen.Point3d(X,Z)
              Dim axisZ As New NXOpen.Vector3d(0,1)
              Dim updateOption = SmartObject.UpdateOption.DontUpdate
              builder.Direction = workPart.Directions.CreateDirection(origin,axisZ,updateOption)
              builder.Limits.StartExtend.Value.RightHandSide = "0"
              builder.Limits.EndExtend.Value.RightHandSide = "50"
              Dim pegs As NXOpen.Features.Extrude = builder.CommitFeature
              builder.Destroy
              'Get the displayable object of the Extrude feature
               Dim bodies As NXOpen.Body() = pegs.GetBodies
              ' Change its color to color red (186)
              bodies(0).Color = 186
              'Show object
              bodies(0).RedisplayObject
     End Sub
End Module