463520934 发表于 2023-8-30 15:13:36

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

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

这么近 发表于 2023-8-30 20:52:17

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

bc123456 发表于 2023-8-31 16:38:58

满足自动换刀 第一后处理是如果处理不同刀具号的第二机床是如何识别不同刀具号的
举个例子 后处理和机床以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
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文件就是获取定义刀具路径列表的
原理就这么一个原理再稍微串联一下 改一下代码就好了

463520934 发表于 2023-9-4 15:34:38

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

谢谢!十分感谢

463520934 发表于 2023-9-4 15:36:19

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

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

这么近 发表于 2023-9-4 22:23:17

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

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

yingying* 发表于 2023-9-5 14:06:00

PM10压根就不支持变量宏.实现不了
页: [1]
查看完整版本: 我的是PowerMill10.0,谁会写宏程序