PM2016宏应用之六：刀路文件夹批量复制为NC

rh落叶随风 · 发表于 2018-10-16 23:14:58

ENTITY LIST Mod=Folder('Model')
IF Size(Mod)<=0 {
Message info "没有导入任何数据！"
MACRO ABORT ALL
}
//MESSAGE INFO Mod[0].Path
IF Mod[0].Origin !='archive' {
MESSAGE INFO "第一个或者全部数模不是来自文件！"
MACRO ABORT ALL
}
String Array ModPath[]=tokens(Mod[0].Path,'.')
STRING Cmd="PROJECT SAVE AS FILESAVE "+$ModPath[0]
Docommand $Cmd

3533658069 · 发表于 2018-10-9 08:33:29

6666666666666666666

hua555666 · 发表于 2018-9-22 19:15:02

谢谢老师学习天天向上

xunmi* · 发表于 2018-9-15 23:19:26

学习学习

liuquan21 · 发表于 2018-9-12 14:41:16

谢谢老师

枫叶殇 · 发表于 2018-9-11 02:03:13

学习学习

一口家 · 发表于 2018-9-10 20:03:01

厉害厉害

1397042768 · 发表于 2018-9-10 11:33:22

谢谢老师学习天天向上

a4b3c2d1 · 发表于 2018-9-5 18:17:31

谢谢楼主

ssssddsad · 发表于 2018-9-5 09:34:44

谢谢分享

[原创] PM2016宏应用之六：刀路文件夹批量复制为NC