我的是PowerMill10.0，谁会写宏程序

463520934

我的是pm10.0，谁会写宏程序，我想把框选的文件合并成3个文件实现自动换刀要不还需要手动移动，麻烦大家；了代码帮忙写到回复里谢谢！

yingying*

PM10压根就不支持变量宏.实现不了

这么近

463520934 发表于 2023-9-4 15:36
那创建文件夹后，能让文件夹中的程序自动合并吗？

选上刀路文件夹，右键 ，复制为NC

463520934

这么近 发表于 2023-8-30 20:52
分成刀路文件夹不好吗 ？ 你要做宏也要把规则讲清楚 ， 要以什么条件分组 。

那创建文件夹后，能让文件夹中的程序自动合并吗？

463520934

bc123456 发表于 2023-8-31 16:38
满足自动换刀 第一后处理是如果处理不同刀具号的  第二机床是如何识别不同刀具号的
举个例子 后处理和机床 ...

谢谢！十分感谢

bc123456

满足自动换刀 第一后处理是如果处理不同刀具号的  第二机床是如何识别不同刀具号的
举个例子 后处理和机床以T1D1的方式来识别的 那么你在编程的时候 就要把刀号和机床刀位号对应好
自动合并是简单的事就是把刀具路径串在一起
DIALOGS MESSAGE OFF
DIALOGS ERROR OFF
GRAPHICS LOCK
DEACTIVATE Workplane
UNDRAW Workplane "#"
STRING LIST Workplane=EXTRACT(FOLDER("Workplane"),'name')
int t = INPUT CHOICE $Workplane "选择坐标"
ACTIVATE Workplane $Workplane[t]
CREATE NCPROGRAM ; EDIT NCPROGRAM ; QUIT FORM NCTOOLPATH
NCTOOLPATH ACCEPT FORM ACCEPT NCTOOLPATHLIST FORM ACCEPT NCTOOLLIST
String ActivateTh=basename(pathname('Toolpath',name))
if ActivateTh=='' {
   MESSAGE WARN "老板请激活刀路"
   MACRO ABORT ALL
   GRAPHICS UNLOCK
   DIALOGS MESSAGE ON
   DIALOGS ERROR ON
}
STRING Tpn = Toolpath.name
ACTIVATE NCProgram $Tpn
macro 'D:\work\pmill2\XuDa\AdditionVIP\DiaLog\mergeNC.mac'
DEACTIVATE NCProgram
macro的目标mac文件就是获取定义刀具路径列表的
原理就这么一个原理  再稍微串联一下 改一下代码就好了

这么近

分成刀路文件夹不好吗 ？ 你要做宏也要把规则讲清楚 ， 要以什么条件分组 。