UG后处理程序头带刀具单与换刀前输出序列号N代码

mashanquang123

坎坎坷坷坎坎坷坷

够了

谢谢分享

weitey

看看高手的后处理 研究研究

ytf123456

前几天手工编了段宏程序，把它以固定循环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了！

wxl7373

正需要，谢谢分享。

yy130316

哎呦，不错哦

别了疯子

gxdxxxxxx

xiaochun80

谢谢分享，顶

张宇轩*

11111111111

hzh如意

不错，支持。