[求skill]shape倒角 - EDA365电子论坛网

;;v1.0 初稿
axlCmdRegister("sh2arc" 'dbShape2Arc
?cmdType "interactive"
?doneCmd '_dbShape2ArcDone
?cancelCmd '_dbShape2ArcCancel
)
;;---------------------------------------------------------
;; skill load "shape2arc.il"
;;指令: sh2arc
;;功能: shape倒角成弧形
;;描述: v1.0
;;
;;---------------------------------------------------------
procedure(dbShape2Arc()
(let ()
axlUIPopupSet(axlUIPopupDefine(nil
'(("Done" _dbShape2ArcDone)
("Oops" _dbShape2ArcOops)
("Cancel" _dbShape2ArcCancel)
)))
mk_sh2arc = axlDBTransactionStart()
axlSetFindFilter(?enabled `("NOALL" "SHAPES" "boundary_shapes") ?onButtons `("all"))
while(axlSelect()
axlDBCloak('_dbShape2Arc() 'shape)
)
axlUIPopupSet(nil)
))
procedure(_dbShape2Arc()
(let (polys shp)
foreach(i axlGetSelSet()
polys = axlPolyFromDB(i ?layer i->layer || car(i->startEnd) ?xhatch t )
polys = axlPolyExpand(polys axlMKSConvert(10 "mils" car((axlDBGetDesignUnits))) 'ALL_ARC)
polys = axlPolyExpand(polys -axlMKSConvert(10 "mils" car((axlDBGetDesignUnits))) 'ALL_ARC)
shp = axlDBCreateShape(car(polys) t i->layer i->net->name)
axlDBAddProp(car(shp) axlDBGetProperties(i nil))
axlDeleteObject(i)
)
))
procedure( _dbShape2ArcDone()
axlDBTransactionCommit(mk_sh2arc)
axlFinishEnterFun()
)
procedure( _dbShape2ArcCancel()
axlDBTransactionRollback(mk_sh2arc)
axlCancelEnterFun()
)
procedure( _dbShape2ArcOops()
axlDBTransactionOops(mk_sh2arc)
)

复制代码