这种走线应该怎么画

谷雨渔

这种走线怎么画，有快捷的方法画出来吗？

着着着火了

递进复制，切割，merge，再把merge后的图形复制一个翻转过来调整下space就成了

ZN0001

第一次见这么认真的

이지은

做方块mossic直接拉

熊韵

写了个脚本专门画这种线

啥也不会的小白

熊韵 发表于 2024-5-13 16:46
写了个脚本专门画这种线

可以把脚本分享一下吗 大佬

陈卫霖

熊韵 发表于 2024-5-13 16:46
写了个脚本专门画这种线

大佬，求个脚本

谷雨渔

熊韵 发表于 2024-5-13 16:46
写了个脚本专门画这种线

大佬，求个脚本！

佳佳佳佳

熊韵 发表于 2024-5-13 16:46
写了个脚本专门画这种线

求求求

寻雨

选中矩形的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