EDA365电子论坛网

标题: [skill]-share some skill [打印本页]

作者: EDAstudent365 时间: 2019-5-22 18:16
标题: [skill]-share some skill
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

欢迎光临 EDA365电子论坛网 (https://bbs.eda365.com/)