|
|
set w3 [format "%.6f" $d3]
if {![string compare "-1.000000" $w3]} {
set s3 "-#102"
} elseif {![string compare "1.000000" $w3]} {
set s3 "+#102"
} else {
if {[string index $w3 end-0] == "0"} {
if {[string index $w3 end-1] == "0"} {
if {[string index $w3 end-2] == "0"} {
if {[string index $w3 end-3] == "0"} {
if {[string index $w3 end-4] == "0"} {
if {[string index $w3 end-5] == "0"} {
set w3 [format "%d." [expr round($d3)]]
} else {
set w3 [format "%.1f" $d3]
}
} else {
set w3 [format "%.2f" $d3]
}
} else {
set w3 [format "%.3f" $d3]
}
} else {
set w3 [format "%.4f" $d3]
}
} else {
set w3 [format "%.5f" $d3]
}
}
if {$d3 > 0.0} {
set s3 [format "+%s*#102" $w3]
} elseif {$d3 < 0.0} {
set s3 [format "%s*#102" $w3]
} else {
set s3 "NONE"
}
}
set w4 [format "%.4f" $vz]
if {[string index $w4 end-0] == "0"} {
if {[string index $w4 end-1] == "0"} {
if {[string index $w4 end-2] == "0"} {
if {[string index $w4 end-3] == "0"} {
set w4 [format "%d." [expr round($vz)]]
} else {
set w4 [format "%.1f" $vz]
}
} else {
set w4 [format "%.2f" $vz]
}
} else {
set w4 [format "%.3f" $vz]
}
}
if {$vz > 0.0} {
set s4 [format "+%s" $w4]
} elseif {$vz < 0.0} {
set s4 [format "%s" $w4]
} else {
set s4 "NONE"
}
if {[string compare "NONE" $s1] && [string compare "NONE" $s2] && [string compare "NONE" $s3]} {
set s [format "%s%s%s" $s1 $s2 $s3]
} elseif {[string compare "NONE" $s1] && ![string compare "NONE" $s2] && ![string compare "NONE" $s3]} {
set s $s1
} elseif {![string compare "NONE" $s1] && [string compare "NONE" $s2] && ![string compare "NONE" $s3]} {
set s $s2
} elseif {![string compare "NONE" $s1] && ![string compare "NONE" $s2] && [string compare "NONE" $s3]} {
set s $s3
} elseif {[string compare "NONE" $s1] && [string compare "NONE" $s2] && ![string compare "NONE" $s3]} {
set s [format "%s%s" $s1 $s2]
} elseif {[string compare "NONE" $s1] && ![string compare "NONE" $s2] && [string compare "NONE" $s3]} {
set s [format "%s%s" $s1 $s3]
} elseif {![string compare "NONE" $s1] && [string compare "NONE" $s2] && [string compare "NONE" $s3]} {
set s [format "%s%s" $s2 $s3]
} else {
set s "NONE"
}
if {[string compare "NONE" $s] && [string compare "NONE" $s4]} {
set sz [format "\[%s%s\]" $s $s4]
} elseif {![string compare "NONE" $s] && [string compare "NONE" $s4]} {
set sz $s4
} elseif {[string compare "NONE" $s] && ![string compare "NONE" $s4]} {
set sz [format "\[%s\]" $s]
} else {
set sz "0."
}
return 1
}
return 0
点击确定。
8.在"程序和刀轨"选项卡中,选择左侧"工序结束序列"选项，在"刀轨结束"事件下添加G91 G28 Z0.行。
9.在"程序和刀轨"选项卡中,选择左侧"程序结束序列"选项：
(1).在"程序结束"事件下添加G91 G28 X0. Y0. M9行。
(2).在"程序结束"事件下的G91 G28 X0. Y0. M9行下面添加G91 G28 B0. C0. M5行。
(3).在"程序结束"事件下的G91 G28 B0. C0. M5行下面添加M30行。
(4).在"程序结束"事件下的M30行下面添加%行。
10.保存后处理文件。
11.五轴双转台BC宏联动后处理制作完成。
==========================
(五).制作立加四轴A转台宏联动后处理:
==========================
1.打开NX后处理构造器，新建一个后处理。
2.输入后处理名称vmc_4x_rtcp_A,选中主后处理，后处理输出单位选择毫米，
机床选择4轴带转台，控制器选择一般，点击确定。
3.在"机床"选项卡中，选择左侧"第四轴"选项，将"轴限制(度)->最大值"改成360，
"轴限制(度)->最小值"改成0，轴限制可以根据具体机床设置。
点击"选择轴->配置"按钮，将"第四轴转台->旋转平面"改成YZ，将"文字引导符"改成A，
将"最大进给率(度/分)"改成1000，将"线性插值->旋转角度->默认公差"改成0.001，点击确定。
4.在"程序和刀轨"选项卡中,选择左侧"程序起始序列"选项，右侧出现"程序开始"事件页面:
(1).点击定制命令PB_CMD___log_revisions，输入如下TCL代码:
#变量dpp_path_type用来判断工序刀路类型：三轴/定轴/四轴联动
global dpp_path_type
global dpp_flag
set dpp_path_type "NONE"
set dpp_flag 0
点击确定。
(2).删除MOM_set_seq_on行。
(3).将G40 G17 G90 G71条目内容改成G17 G40 G80 G69 G49 G94 G90。
(4).在G17 G40 G80 G69 G49 G94 G90行下面添加定制命令行，
输入名称PB_CMD_init_macro，输入以下TCL代码：
MOM_output_literal "#101=#5261-#5241"
MOM_output_literal "#102=#5262-#5242"
MOM_output_literal "#103=#5263-#5243"
点击确定。
5.在"程序和刀轨"选项卡中,选择左侧"工序起始序列"选项：
(1).将"刀轨开始"事件下的定制命令PB_CMD_start_of_operation_force_adress
里面的内容改成如下TCL代码:
global dpp_flag
MOM_force once S M_spindle X Y Z fourth_axis fifth_axis F
if { $dpp_flag != 0 } {
MOM_output_literal "M1"
}
点击确定。
(2).在PB_CMD_start_of_operation_force_adress行下面添加操作员消息行,
输入"工序: $mom_operation_name"(双引号无需输入)，点击确定。
(3).复制"自动换刀"事件下的PB_CND_tool_change_force_adress行到"第一个刀具"事件下面。
(4).在"第一个刀具"事件下的PB_CND_tool_change_force_adress行下面添加MOM_set_seq_on行。
(5).在"第一个刀具"事件下的MOM_set_seq_on行下面添加T M6行。
(6).在"第一个刀具"事件下的T M6行下面添加MOM_set_seq_off行。
(7).在"第一个刀具"事件下的MOM_set_seq_off行下面添加操作员消息行，
输入"刀具: $mom_tool_name"(双引号无需输入)，点击确定。
(8).在"第一个刀具"事件下的"刀具: $mom_tool_name"行下面添加备刀T行。
(9).将"自动换刀"事件下的G91 G28 Z0.行内容改成G91 G28 Z0. M9。
(10).在"自动换刀"事件下的G91 G28 Z0. M9行下面添加G91 G28 X0. Y0. M5行。
(11).在"自动换刀"事件下的T M6行上面添加MOM_set_seq_on行。
(12).在"自动换刀"事件下的T M6行下面添加MOM_set_seq_off行。
(13).在"自动换刀"事件下的MOM_set_seq_off行下面添加操作员消息行，
输入"刀具: $mom_tool_name"(双引号无需输入)，点击确定。
(14).在"自动换刀"事件下的"刀具: $mom_tool_name"行下面添加备刀T行。
(15).在"初始移动"事件下添加定制命令行，输入名称PB_CMD_detect_tool_path_type，
编辑TCL代码如下：
global dpp_flag
global mom_tool_axis_type
global mom_operation_type
set dpp_flag 1
if { ![info exists mom_tool_axis_type] } {
set mom_tool_axis_type 0
}
if { $mom_tool_axis_type >= 2 && [string match "Variable-axis *" $mom_operation_type] } {
set dpp_path_type "4X"
} else {
set dpp_path_type "3X"
}
点击确定。
未完待续。。。。
|
|
发表于