MagicCopy的脚本是用来复制底层的polygon的。使用方法是在layout界面左侧LSW中选中要copy的layer，按下快捷键 5 ，鼠标处出现box拉框。框选中的layer会被copy到当前层。
脚本中有一个foreach循环现在是用；屏蔽的，这个循环是把copy上来的layer转换成path，个人习惯用path拉线，所以加了这一行。
procedure(MagicCopy()
let((cv objs Box transList objList objTransList newObj)
cv=geGetEditCellView()
Box=enterBox()
Box=list(geWindowToEditPoint(hiGetCurrentWindow() xCoord(Box))
geWindowToEditPoint(hiGetCurrentWindow() yCoord(Box)))
objs=dbShapeQuery(cv leGetEntryLayer() Box)
foreach(obj objs
transList=nconc(transList list(dbGetHierPathTransform(obj)))
);foreach
objs=FlatList(objs)
objTransList=mapcar('list objs transList)
newObj=foreach(mapcar obj objTransList
dbCopyFig(car(obj) cv cadr(obj))
);foreach
;foreach(obj newObj
; if(obj~>objType == "polygon" || obj~>objType == "rect" then
; obj=leConvertPolygonToPath(obj)
; );if
😉;foreach
);let
);proc
procedure(FlatList(testList)
let((cv listNew)
listNew=nil
if(listp(testList)
then
foreach(one testList
if(listp(car(last(one)))
then
listNew=nconc(listNew FlatList(one))
else
listNew=append1(listNew car(last(one)))
);if
);foreach
else
error("FlatList():argument must be a list")
);if
listNew
);let
);proc
hiSetBindKey("Layout" "
)
