分享一些脚本

Lcy_001 · 发表于 2023-5-22 17:06:39

okfunny 发表于 2016-11-16 09:01
4.
名字：layout_cross_ruler.il
语言：skill

学习下

young_82 · 发表于 2023-5-23 16:25:13

rauljin · 发表于 2023-6-26 18:02:43

谢谢分享

fjfj2 · 发表于 2023-6-27 10:27:27

procedure( OnGrid( Point )
if( listp( Point ) then
mapcar( lambda( (x) OnGrid(x) ) Point)
else
round((Point/Grid))*Grid
)
)

procedure( PutOnGrid( Grid )
let(( SelectObj )
SelectObj = geGetSelSet()
foreach( Object SelectObj
cond(
(Object~>objType == "path"
Polygon = leConvertShapeToPolygon(Object)
Polygon~>points = OnGrid(Polygon~>points)
)

(Object~>objType == "polygon"
Object~>points = OnGrid(Object~>points)
)

(Object~>objType == "rect"
Object~>bBox = OnGrid(Object~>bBox)
)

(Object~>objType == "inst" || Object~>objType == "mosaic"
Object~>xy = OnGrid(Object~>xy)
)
)
)
)
)

; 1. load "offGrid.il 2. PutOnGrid(0.005)