【无私奉献】 做G54~G59和G54.1 P 一体的后处理！！！

cdj_456

前几天手工编了段宏程序，把它以固定循环G代码的格式加在后处理的钻孔循环，刀轨结束苦于不能自动输出G67来替代G80。
后来在后处理群里遇到好人帮忙，终于完美用G67替代了G80，虽然是有偿的，依然非常开心！
终于觉得要学习TCL是何等重要啊！！！
昨天才下载了小梁的TCL语言教材，今天就来试做判断装夹偏置的可以后处理出G54~G59和G54.1 P坐标系的后处理啊哈哈，得瑟一回嘿嘿


下面回归主题，代码如下：

1. global mom_fixture_offset_value
   
2. set c [expr $mom_fixture_offset_value+53]
   
3. set d [expr $mom_fixture_offset_value-10]
   
4. if {$mom_fixture_offset_value <= "6" } {
   
5. MOM_output_literal "G$c"
   
6. } else {
   
7. MOM_output_literal "G54.1 P$d"
   
8. }

复制代码

这里装夹偏置小于等于6输出G54~G59；装夹偏置大于等于11（好记一点）输出G54.1 P1~
没有判断7~10之间。该定制命令插的位置要放对，自己研究一下就知道了



==================================


补充内容 (2014-11-9 00:10):
补充内容：


改善了一下代码，比较完美了
位置还是要放在“快速移动”这里比较好看，以前手工编程也是这样的格式，看着顺眼多了
不设置隐藏了，让UG爱好者都能看的到


命令如下：

• global mom_fixture_offset_value
• set c [expr $mom_fixture_offset_value+53]
• set d [expr 0-$mom_fixture_offset_value]
• global e
• if {$mom_fixture_offset_value >= "0"} {
• set e $c
• } else {
• set e 54.1\ P[format "%02.0f" $d]
• }
  

[color=rgb(0, 51, 153) !important]复制代码

这里装夹偏置大于等于0输出+53；装夹偏置为小于0的负数，输出G54.1 P+它的绝对值，P后面输出2位整数格式。
比如第一张图程序的偏置为6、-1、-48

该定制命令插在快速移动第一行，把原来的G54表达式改成$e确定。然后右击编辑，新建一个文字格式，数据类型选“文本”，确定。







好了，保存后处理，OK了！
然后试试不同装夹偏置，同一把刀和不同刀具都可以，是不是非常之完美呢？嘿嘿

笑沩装眼泪_yǎn

相互学习，共同进步!~

laomei*

真为你高兴，祝贺。

习惯le孤单

感谢楼主无私奉献

cdj_456

laomei 发表于 2014-11-4 06:46
真为你高兴，祝贺。

老师傅，起的很早啊！

bichun

谢谢楼主.支持主持

初吻给烟

支持原创啊

副总经理

我来支持一下。

85867019

谢谢楼主.谢谢楼主.

cdj_456

老叶 发表于 2014-11-4 09:21
我来支持一下。

感谢老叶加精