PM收缩扩展资源管理的节点

xingyue*

好久没有发帖了！！！今趁着有空，发两个大家感兴趣的宏！它们分别可以实现刀具路径，刀路，边界等等的扩展和收缩，当然包括这些根节点下的文件夹！！！大家看一下效果演示：

回复可以直接看到宏的源代码
1）收缩
//适用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
}

2）扩展
//适用PM版本：2016
//2017-10-18   星月   修订
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 RightAndFolder(str)
    }
    GRAPHICS UNLOCK
}

绔星

好东西啊  

h925

感谢 分享 好人一生平安

sir88061314*

好东西好东西...

sir88061314*

好东西好东西...

h925

非常感谢  好东西

海川工作室

说好的代码呢，都封装了。

海川工作室

是不是这个样子啊，这个是Toolpath的，楼主用了一个数组实现了所有元素的收缩或是展开。

海川工作室

h256841 发表于 2020-6-28 15:46
怎么错误提示

因为没有这个过程，Call呼叫不到这个函数，LeftAndFolder(str)，所以肯定报错！

海川工作室

感谢楼主的分享

h925

感谢楼主的分享