QQ登录

只需一步,快速开始

快捷登录

登录 或者 注册 请先

UG爱好者

查看: 1194|回复: 1
打印 上一主题 下一主题

[求助] 求一个命名刀路,自带碰撞后刀伸出长度的宏

[复制链接]

上等兵

Rank: 1

2

主题

6

帖子

71

积分
跳转到指定楼层
楼主
发表于 2022-12-7 01:03:05 来自手机 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
求一个命名刀路,自带碰撞后刀伸出长度的宏

有奖推广贴子: 

回复

使用道具 举报

二级士官

Rank: 2

0

主题

4

帖子

360

积分
推荐
发表于 2023-8-22 09:28:33 | 只看该作者
DIALOGS MESSAGE OFF DIALOGS ERROR OFF  INT b =1 FOREACH c IN folder('TOOLPATH') {  STRING q= c.Tool.Diameter  STRING p= c.Tool.TipRadius  STRING jc= c.Tool.HolderName  REAL sc= c.Tool.Overhang  REAL rc= c.Tool.Length  STRING j= c.Thickness  STRING z= c.AxialThickness    if $c.UseAxialThickness ==1 {   STRING d = b+"-"+"D"+q+"R"+p+"("+j+"/"+z+")"+jc+"_"+"L"+sc+"-"+rc  rename TOOLPATH $c.Name $d  }  if $c.UseAxialThickness ==0 {   STRING d = b+"-"+"D"+q+"R"+p+"("+j+"/"+j+")"+jc+"_"+"L"+sc+"-"+rc  rename TOOLPATH $c.Name $d  }   $b=b+1 } DIALOGS MESSAGE ON DIALOGS ERROR ON
回复 支持 1 反对 0

使用道具 举报

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

本版积分规则

 
 
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-11-23 16:27

返回顶部