将底层instance的任意深度layer复制到当前层次的脚本

寻雨

使用快捷键4将当前选中的instances的底层layers 拷贝到当前层次，复制的层次是当前选中的layer，可以设置底层的深度1到32
hiSetBindKey("Layout""<Key>4""FloatupLayer(1 32)")

procedure(FloatUpLayer(@optional (startLevel 1) (stopLevel 32))
let((cv instcvs Tech layerlpp layerTransList newlayer)
cv=geGetEditCellview(getCurrentWindow( ))
objcvs=geGetSelectedset()
instcvs=setof(o objcvs o~>isAnyInst==t)
Tech=techGetTechFile(geGetEditRep())
layerlpp=leGetEntryLayer(Tech)
foreach(instcv instcvs
        layerTransList=myGetShape(cv layerlpp instcv~>bBox startLevel stopLevel)
        foreach(objTranslayerTransList
                newlayer=dbCopyFig(car(objTrans)cv cadr(objTrans))
                );end foreach
        );end foreach
);end let
);end procedure

procedure(myGetShape(cv lpp bbox @optional (startLevel 0)(stopLevel 32))
let((objHier objTransTable key objTransList)
/*for test
cv=geGetEditCellView(getCurrentWindow( ))
bbox=cv~>bBox startLevel=0 stopLevel=32
Tech=techGetTechFile(geGetEditRep())
lpp=leGetEntryLayer(Tech)
*/
objHier=dbShapeQuery(cv lpp bbox startLevel stopLevel)
objTransTable=makeTable(gensym('trSparseArray))
key=0
foreach(obj objHier
        if(atom(obj) then
                objTransTable[key]=list(obj dbGetHierPathTransform(obj))
                key=key+1
        else
                objTransTable[key]=list(car(last(obj)) dbGetHierPathTransform(obj)
                key=key+1
                );end if
        );end foreach
objTransList=nil
foreach(key objTransTable
        objTransList=tconc(objTransList objTransTable[key])
        );end foreach
objTransList=car(objTransList)
);end let
);end procedure

note30933

谢谢分享