[Closed] Spline Inseter

I made a script (with the help of you beautiful people) that can take a spline and pull the ends in 3 units. There’s probably a more elegant way to do this, but I’m not much a programer so I did the best I could. It works fine so long as I only have one shape selected. If I have multiple shapes selected, though, the part towards the end that welds knots together doesn’t work right. It works fine for the last shape in the selection, and it works fine as long as no spline has more than 3 knots in it, but if there’s a spline with 4 or more knots that is not in the last shape of the selection, it doesn’t weld. I can’t figure out why. If anyone has any suggestions on how I can get it to weld reliably, I would appreciate it. Here’s the whole script to look at and if anyone else would get a use out of it.

try (destroyDialog spline_inseter) catch()

rollout spline_inseter “Spline Inseter”
(
–Creates button
button do_it “Inset Splines” width:141 height:27

on do_it pressed do
(
    --Makes an array of selected splines
    thesel = selection as array
    --Loops through selection
    for i = 1 to thesel.count do
    (
        --Isolates one spline
        obj = thesel[i]
        --Keeps track of the spline name
        name_tracker = obj.name
        --Empties the face array
        face_array = #()
        --Empties the edges array
        edges = #()
        --Makes an extrude modifier
        extr = extrude()
        --Sets the extrude amount
        extr.amount = 100000
        --Adds an extrude modifier to the spline
        addmodifier thesel[i] extr
        --Converts the extruded spline to an editable poly
        converttopoly obj 
        --Insets the polys, creates a shape from the inseted polys, deletes the original spline, and renames the new spline with the old name
        select obj
        subobjectLevel = 4
        polyOp.setFaceSelection obj #all
        obj.insetType = 0
        obj.insetAmount = 3
        obj.EditablePoly.buttonOp #Inset
        face_array = polyOp.getFaceSelection obj
        edges = polyop.getEdgesUsingFace obj face_array
        polyop.createShape obj edges
        spl = $Shape01
        delete obj
        spl.name = name_tracker
        
        setCommandPanelTaskMode mode:#modify
        --Welds all verts together
        max select none
        select spl
        subObjectLevel = 1
        max select all
        splineOps.weld spl
        subObjectLevel = 0
        updateshape spl
        
        --Deletes all knots but the bottom ones
        
        for s = 1 to (numsplines $) do
        (
            global edge_array = #()
            global deleter = 0
            for k = 1 to (numsegments $ s) do
            (
                tracker = 0
                knt_1 = getKnotPoint $ s k
                if isClosed $ s do
                (
                    if k < (numsegments $ s) do
                    (
                        knt_2 = getKnotPoint $ s (k+1)
                    )
                    if k== (numsegments $ s) do
                    (
                        knt_2 = getKnotPoint $ s (1)
                    )
                )
                
                if isClosed $ s == false do
                (
                    knt_2 = getKnotPoint $ s (k+1)
                )
                
                
                if knt_1.z > ($.pos.z+40000) do
                (
                    if tracker == 0 do
                    (
                        deleter = (deleter + 1)
                        edge_array [deleter] = k
                        tracker = 1
                    )
                )
                if knt_2.z > ($.pos.z+40000) do
                (
                    if tracker == 0 do
                    (
                        deleter = (deleter + 1)
                        edge_array [deleter] = k
                        tracker = 1
                    )
                )
                subObjectLevel = 2
                setsegselection spl s edge_array
            )
        )
        max delete
        updateshape $
        
        --Welds all verts together
        subObjectLevel = 1
        max select all
        splineOps.weld $
        subObjectLevel = 0
        updateshape $
        
        --Sets the knots to corner
        for s = 1 to (numSplines $) do
        (
            for k = 1 to (numKnots $ s) do
            (
                knt = getKnotPoint $ s k
                in_vec = getInVec $ s k
                out_vec = getOutVec $ s k
                setKnotType $ s k #corner
                knt.z = (knt.z - 3)
                setInVec $ s k in_vec
                setOutVec $ s k out_vec
                setKnotPoint $ s k knt
                updateshape $
            )
        )
    )
)

)

createDialog spline_inseter 160 40