找回密码
 注册

扫一扫,访问微社区

今日签到15:00准时开抢啦!
查看: 94|回复: 1

Share skill [stichingvia]

  [复制链接]

该用户从未签到

发表于 2019-11-2 09:51 | 显示全部楼层 |阅读模式

EDA365欢迎您登录!

您需要 登录 才可以下载或查看,没有帐号?注册

x
;         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

您需要登录后才可以回帖 登录 | 注册

本版积分规则

EDA365公众号

关于我们|手机版|EDA365电子论坛网 ( 粤ICP备18020198号 )

GMT+8, 2019-11-18 02:41 , Processed in 0.062500 second(s), 19 queries , Gzip On.

深圳市墨知创新科技有限公司

地址:深圳市南山区科技生态园2栋A座805 电话:19925233282

快速回复 返回顶部 返回列表