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