这种走线应该怎么画

寻雨

选中矩形的shape，设置快捷键hiSetBindKey("Layout" "<Key>1" "RectChopToLadder(5 1)")，使用快捷键1或者在CIW输入RectChopToLadder(5 1)就能将矩形转换成两个阶梯
，阶梯的高度和宽度自己调节


;Divide the rectangle into two ladders
;stepW:The width of the ladder
;stepH:The height of the ladder
hiSetBindKey("Layout" "<Key>1" "RectChopToLadder(5 1)")
procedure(RectChopToLadder(stepW stepH)
let((shapes shapeH shapeW steps MinLadderWidth firstPoint chopPoints P1 P2 lastPoint)
shapes=geGetSelectedset()
foreach(shape shapes
        if(shape!=nil&&shape~>objType=="rect" then
        shapeH=yCoord(cadr(shape->bBox))-yCoord(car(shape~>bBox))
        shapeW=xCoord(cadr(shape->bBox))-xCoord(car(shape~>bBox))
        steps=round2((shapeW-stepW)/(stepW+stepH))+1
        MinLadderWidth=(shapeH-stepH*(steps-1))/2
        firstPoint=list(xCoord(car(shape~>bBox)) yCoord(car(shape~>bBox))+MinLadderWidth)
        chopPoints=nil
        chopPoints=append1(chopPoints firstPoint)
        for(n 1 steps-1
                P1=list(xCoord(firstPoint)+stepw yCoord(firstPoint))
                chopPoints=append1(chopPointsP1)
                P2=list(xCoord(firstPoint)+stepW+stepH yCoord(firstPoint)+stepH)
                chopPoints=append1(chopPoints P2) firstPoint=P2
                );end for
        lastPoint=list(xCoord(cadr(shape~>bBox)) yCoord(P2))
        chopPoints=append1(chopPointslastPoint)
        );end if
        leChopShape(shape choppoints nil nil 10)
);end foreach
);end let
);end procedure

寻雨

   

realgb 发表于 2024-5-14 11:48
这个校对一下里面的一些错误还是可以用的。

有错误自己debug一下，这个手敲的没测试过，原版文件转不出来的

寻雨

   

寻雨 发表于 2024-5-14 11:16
选中矩形的shape，设置快捷键hiSetBindKey("Layout" "1" "RectChopToLadder(5 1)")，使用快捷键1或者在CIW ...

更新一下，修复不在格点的问题


hiSetBindKey("Layout" "<Key>1" "RectChopToLadder(10 5)")
procedure(RectChopToLadder(stepW stepH)
let((shapes shapeH shapeW steps MinLadderWidth firstPoint chopPoints P1 P2 lastPoint)
shapes=geGetSelectedSet()
foreach(shape shapes
        if(shape!=nil&&shape~>objType=="rect" then
        shapeH=yCoord(cadr(shape~>bBox))-yCoord(car(shape~>bBox))
        shapeW=xCoord(cadr(shape~>bBox))-xCoord(car(shape~>bBox))
        steps=round2((shapeW-stepW)/(stepW+stepH))+1
        mfgGrid=techGetMfgGridResolution(techGetTechFile(shap~>cellView))
        MinLadderWidth=round2(((shapeH-stepH*(steps-1))/2)/mfgGrid)*mfgGrid
        firstPoint=list(xCoord(car(shape~>bBox)) yCoord(car(shape~>bBox))+MinLadderWidth)
        chopPoints=nil
        chopPoints=append1(chopPoints firstPoint)
        for(n 1 steps-1
                P1=list(xCoord(firstPoint)+stepW yCoord(firstPoint))
                chopPoints=append1(chopPoints P1)
                P2=list(xCoord(firstPoint)+stepW+stepH yCoord(firstPoint)+stepH)
                chopPoints=append1(chopPoints P2)
                firstPoint=P2
                 );end for
        lastPoint=list(xCoord(cadr(shape~>bBox)) yCoord(P2))
        chopPoints=append1(chopPoints lastPoint)
        );end if
        leChopShape(shape chopPoints nil nil 10)
        );end foreach
);end let
);end procedure