API Drawing/Swept Cut Question

In my code I have a drawing that I am getting all the lines and arcs then I want to xfer that to a template part and make a swept cut. Everything works pretty well on the drawing part other than sometimes it leaves an arc out and I can't ever use the drawing for a swept cut unless I go edit it manually.

I am also wondering if anyone has an example of a swept cut using profile/path through api?

Here is my code to xfer the drawing.

    Dim swApp As New SldWorks
    Dim swModel As ModelDoc2 = swApp.OpenDoc("C:\SolidWorksDrawings\Test\Edge.sldprt", 1)
    Dim swExt As ModelDocExtension
    Dim boolstatus As Boolean
    swExt = swModel.Extension
    boolstatus = swExt.SelectByID2("Sketch1", "SKETCH", 0, 0, 0, True, 0, Nothing, 0)
    swModel.EditSketch()

    Dim m As ISketch = swModel.IGetActiveSketch2

    Dim mLineCount As Integer = m.GetLineCount
    Dim mArcCount As Integer = m.GetArcCount
    Dim mArcs As Object
    mArcs = m.GetArcs()
    Dim mLines As Object
    mLines = m.GetLines()
    swApp.CloseDoc("C:\SolidWorksDrawings\Test\Edge.sldprt")
    Dim swModel2 As ModelDoc2 = swApp.OpenDoc("C:\SolidWorksDrawings\Test\Part3.sldprt", 1)

    Dim swExt2 As ModelDocExtension = swModel2.Extension

    boolstatus = swExt2.SelectByID2("Right Plane", "PLANE", 0, 0, 0, True, 0, Nothing, 0)


    Dim skManager As SketchManager

    skManager = swModel2.SketchManager


    'There are 11 values per arc
    For i = 0 To mArcCount - 1 Step 1
      skManager.CreateArc(mArcs(i * 11 + 7), mArcs(i * 11 + 8), 0, mArcs(i * 11 + 1), mArcs(i * 11 + 2), 0, mArcs(i * 11 + 4), mArcs(i * 11 + 5), 0, mArcs(i * 11 + 10))
    Next
    'There are 7 values per line
    For i = 0 To mLineCount - 1
      skManager.CreateLine(mLines(i * 7 + 1), mLines(i * 7 + 2), 0, mLines(i * 7 + 4), mLines(i * 7 + 5), 0)
    Next

    skManager.InsertSketch(True)

Thanks in advance for any help

SolidworksApi macros