|
|
发表于 2015-11-6 22:41:11
|
显示全部楼层
前几天手工编了段宏程序，把它以固定循环G代码的格式加在后处理的钻孔循环，刀轨结束苦于不能自动输出G67来替代G80。
后来在后处理群里遇到好人帮忙，终于完美用G67替代了G80，虽然是有偿的，依然非常开心！
终于觉得要学习TCL是何等重要啊！！！
昨天才下载了小梁的TCL语言教材，今天就来试做判断装夹偏置的可以后处理出G54~G59和G54.1 P坐标系的后处理啊哈哈，得瑟一回嘿嘿
下面回归主题，代码如下：
本帖隐藏的内容
global mom_fixture_offset_value
set c [expr $mom_fixture_offset_value+53]
set d [expr $mom_fixture_offset_value-10]
if {$mom_fixture_offset_value <= "6" } {
MOM_output_literal "G$c"
} else {
MOM_output_literal "G54.1 P$d"
}
复制代码
这里装夹偏置小于等于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了！ |
|
