[skill]-share some skill

EDAstudent365

Share a skill that create stichingvia. The source code  
is very simple.
;         skill load "stichingvia.il"
/************************************************* ************************************************/
axlCmdRegister("st" 'DelShape ?cmdType "interactive")
/************************************************* ************************************************/
Defun(DelShape ()
        Let((Shape1 Shape2 Shape1Poly Shape2Poly AndShape OpenShape CloseShape)
        axlSetFindFilter( ?enabled list("NOALL" "SHAPES") ?onButtons list("NOALL" "SHAPES"))
        Shape1 = car(axlGetSelSet(axlSelect(?prompt "Select Shape")))
        Shape2 = car(axlGetSelSet(axlSelect(?prompt "Select Shape")))

        Shape1Poly = car(axlPolyFromDB(Shape1))
        Shape2Poly = car(axlPolyFromDB(Shape2))
       
        AndShape = car(axlPolyOperation(Shape1Poly Shape2Poly 'ANDNOT))
        OpenShape = axlDBCreateOpenShape(AndShape t "ETCH/TOP")
        CloseShape axlDBCreateCloseShape(OpenShape)




           );end-let
     );end-defun