在线咨询
eetop公众号 创芯大讲堂 创芯人才网
切换到宽版

EETOP 创芯网论坛 (原名:电子顶级开发网)

手机号码,快捷登录

手机号码,快捷登录

找回密码

  登录   注册  

快捷导航
搜帖子
查看: 2278|回复: 2

[求助] 有没有大神有去 offgrid 的skill脚本啊!跪求!

[复制链接]
发表于 2018-7-12 12:39:56 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?注册

x
有没有大神有去 offgrid 的skill脚本啊!跪求!
发表于 2020-5-27 15:22:38 | 显示全部楼层
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)
)
   )
       )
    )
  )

发表于 2021-9-15 10:05:49 来自手机 | 显示全部楼层
感谢
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

站长推荐 上一条 /1 下一条

小黑屋| 关于我们| 联系我们| 在线咨询| 隐私声明| EETOP 创芯网
( 京ICP备:10050787号 京公网安备:11010502037710 )

GMT+8, 2024-3-28 22:58 , Processed in 0.018074 second(s), 7 queries , Gzip On, Redis On.

eetop公众号 创芯大讲堂 创芯人才网
快速回复 返回顶部 返回列表