Maxscript / Set Spline Knots Type

macroScript SplKnotCorner
category:"EvilTools"
buttonText:"Corner"
toolTip:"Change knots to Corner"
(
    fn changeKnot type = (
        if (selection.count==1) and (Filters.Is_EditSplineSpecifyLevel #{2}) do (
            for sp=1 to (numSplines $) do (
                if (local kk=getKnotSelection $ sp).count != 0 do (
                    for k=1 to kk.count do setKnotType $ sp kk[k] type
                )
            )
            updateShape $
        )
    )
    changeKnot #corner
)

macroScript SplKnotSmooth
category:"EvilTools"
buttonText:"Smooth"
toolTip:"Change knots to Smooth"
(
    fn changeKnot type = (
        if (selection.count==1) and (Filters.Is_EditSplineSpecifyLevel #{2}) do (
            for sp=1 to (numSplines $) do (
                if (local kk=getKnotSelection $ sp).count != 0 do (
                    for k=1 to kk.count do setKnotType $ sp kk[k] type
                )
            )
            updateShape $
        )
    )
    changeKnot #smooth
)

macroScript SplKnotBezier
category:"EvilTools"
buttonText:"Bezier"
toolTip:"Change knots to Bezier"
(
    fn changeKnot type = (
        if (selection.count==1) and (Filters.Is_EditSplineSpecifyLevel #{2}) do (
            for sp=1 to (numSplines $) do (
                if (local kk=getKnotSelection $ sp).count != 0 do (
                    for k=1 to kk.count do setKnotType $ sp kk[k] type
                )
            )
            updateShape $
        )
    )
    changeKnot #bezier
)

macroScript SplKnotBrCorner
category:"EvilTools"
buttonText:"BrCorner"
toolTip:"Change knots to BezierCorner"
(
    fn changeKnot type = (
        if (selection.count==1) and (Filters.Is_EditSplineSpecifyLevel #{2}) do (
            for sp=1 to (numSplines $) do (
                if (local kk=getKnotSelection $ sp).count != 0 do (
                    for k=1 to kk.count do setKnotType $ sp kk[k] type
                )
            )
            updateShape $
        )
    )
    changeKnot #bezierCorner
)