这种走线应该怎么画

luwang

创建这个线的脚本需求多嘛，想写个试试

寻雨

寻雨 发表于 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

着着着火了

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

帅哥，借用了你的代码进行了一点点修改，另发了个帖子，感谢




两个造滑梯的skill脚本
https://bbs.eetop.cn/thread-969772-1-1.html
(出处: EETOP 创芯网论坛 (原名：电子顶级开发网))