QQ登录

只需一步,快速开始

快捷登录

登录 或者 注册 请先

UG爱好者

查看: 975|回复: 6
打印 上一主题 下一主题

[求助] 我的是PowerMill10.0,谁会写宏程序

[复制链接]

少尉

Rank: 5Rank: 5

7

主题

152

帖子

2895

积分
楼主
发表于 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[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文件就是获取定义刀具路径列表的
原理就这么一个原理  再稍微串联一下 改一下代码就好了
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

 
 
QQ:1359218528
工作时间:
9:00-17:00
 
微信公众号
手机APP
机械社区
微信小程序

手机版|UG爱好者论坛 ( 京ICP备10217105号-2 )    论坛管理员QQ:1359218528

本站信息均由会员发表,不代表本网站立场,如侵犯了您的权利请联系管理员,邮箱:1359218528@qq.com  

Powered by UG爱好者 X3.2  © 2001-2014 Comsenz Inc. GMT+8, 2024-6-4 03:26

返回顶部