S.O.S ~ 關於變更 Shape Fill - EDA365电子论坛网

axlCmdRegister("recs" 'dbRecreateShape
?cmdType "interactive"
?doneCmd '_dbRecreateShapeDone
?cancelCmd '_dbRecreateShapeCancel
)
procedure(dbRecreateShape()
(let (items lay net poly)
axlUIPopupSet(axlUIPopupDefine(nil
'(("Done" _dbRecreateShapeDone)
("Oops" _dbRecreateShapeOops) ;回退到上一步
("Cancel" _dbRecreateShapeCancel)
)))
axlClearSelSet()
axlSetFindFilter(?enabled `("NOALL" "SHAPES" "boundary_shapes") ?onButtons `("all"))
axlAddSelectAll()
items = axlGetSelSet()
axlClearSelSet()
mk_recs = axlDBTransactionStart()
foreach(i items ;每个处理对象遍历
when(i->fill && i->fill != t
poly = axlPolyFromDB(i ?layer i->layer || car(i->startEnd) ?xhatch nil)
lay = i->layer
net = i->net->name
axlDeleteObject(i)
axlDBCreateShape(car(poly) t lay net)
)
)
dbRecreateShapeEvent()
axlUIPopupSet(nil)
))
(defun _dbRecreateShapeDone ()
axlFinishEnterFun()
axlDBTransactionCommit(mk_recs)
)
(defun _dbRecreateShapeCancel ()
axlCancelEnterFun()
axlDBTransactionRollback(mk_recs)
)
(defun _dbRecreateShapeOops ()
axlDBTransactionOops(mk_recs)
)
procedure( dbRecreateShapeEvent()
(let (event loop )
loop = t
while( loop
event = axlEnterEvent('(PICK) "" nil)
caseq(event->type
(DONE
loop = nil
_dbRecreateShapeDone()
)
(CANCEL
loop = nil
_dbRecreateShapeCancel()
)
)
)
))

复制代码