Share skill [stichingvia]

EDAstudent365

;         skill load "stichingvia.il"
/************************************************* ************************************************/
axlCmdRegister("svia" '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

clp1568

kankan

penny190

請問這個skill 的作用是 ? 求解
雖然不知道實際作用是甚麼,試著執行出現下列訊息
E- *Error* toplevel: undefined variable - DelShape

jason_hsu

penny190 发表于 2020-5-15 10:43
請問這個skill 的作用是 ? 求解
雖然不知道實際作用是甚麼,試著執行出現下列訊息
E- *Error* topl ...

对两个shape做void操作，就是与非。
应该是defun，不是Defun吧？最后一句closeshape忘了=，很初级的代码。

ssmagic

jason_hsu 发表于 2020-5-15 17:15
对两个shape做void操作，就是与非。
应该是defun，不是Defun吧？最后一句closeshape忘了=，很初级的代码 ...

先与，然后对第一个POLY进行非操作