|
发表于 2018-7-11 10:20:16
|
显示全部楼层
//适用PM版本:2016
//星月 修订
INCLUDE 'C:\dcam\config\MyFunction.inc'
FUNCTION MAIN() {
GRAPHICS LOCK
ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT
TOOLBAR COMMANDBAR LOWER
MACRO STOP
STRING ARRAY EntType[]={'Machinetool','NCProgram','Toolpath','Tool','Boundary','pattern','Featureset','Workplane','Level','Model','StockModel','Group'}
FOREACH str IN EntType {
CALL LeftAndFolder(str)
}
CALL LEFT('MACRO')
GRAPHICS UNLOCK
} |
|