手把手教你制作UG四五轴宏联动后处理(二十)
(16).将PB_CMD_detect_tool_path_type行复制到"第一次移动"事件下。(17).在"初始移动"事件下的PB_CMD_detect_tool_path_type行下面添加定制命令，
输入名称PB_CMD_calc_g54，编辑TCL代码如下：
global dpp_path_type
global mom_out_angle_pos
global va vc
global sa sc
if {!} {
if { $mom_out_angle_pos(0) !=0 } {
MOM_output_literal "(刀路: 定轴)"
#****************获取第四轴A旋转角度******************
set va
set sa
if { == "0"} {
if { == "0"} {
if { == "0"} {
if { == "0"} {
set sa ]
} else {
set sa
}
} else {
set sa
}
} else {
set sa
}
}
#*******************计算3+1定轴加工原点G54***********************
MOM_output_literal "#130=$sa"
MOM_output_literal "#24=#5261"
MOM_output_literal "#25=#102*COS\[#130\]+#103*SIN\[#130\]+#5242"
MOM_output_literal "#26=-#102*SIN\[#130\]+#103*COS\[#130\]+#5243"
MOM_output_literal "G90 G10 L2 P1 X\[#24\] Y\[#25\] Z\[#26\]"
} else {
MOM_output_literal "(刀路: 三轴)"
#************计算三轴加工原点G54*********************************
MOM_output_literal "#130=0."
MOM_output_literal "#24=#5261"
MOM_output_literal "#25=#102*COS\[#130\]+#103*SIN\[#130\]+#5242"
MOM_output_literal "#26=-#102*SIN\[#130\]+#103*COS\[#130\]+#5243"
MOM_output_literal "G90 G10 L2 P1 X\[#24\] Y\[#25\] Z\[#26\]"
}
} elseif {!} {
MOM_output_literal "(刀路: 四轴联动)"
#********计算联动加工原点G54，让加工原点G54与编程原点G56重合*********
MOM_output_literal "#130=0."
MOM_output_literal "#24=#5261"
MOM_output_literal "#25=#102*COS\[#130\]+#103*SIN\[#130\]+#5242"
MOM_output_literal "#26=-#102*SIN\[#130\]+#103*COS\[#130\]+#5243"
MOM_output_literal "G90 G10 L2 P1 X\[#24\] Y\[#25\] Z\[#26\]"
}
点击确定。
(18).将PB_CMD_calc_g54行复制到"第一次移动"事件下的PB_CMD_detect_tool_path_type行下面。
(19).在"初始移动"事件下的PB_CMD_calc_g54行下面添加G0 G90 G(54~59) X Y A S M3行,
添加输出条件PB__CMD_check_block_initial_move，编辑TCL代码如下:
global dpp_path_type
if {!} {
return 1
}
return 0
点击确定。
(20).将"初始移动"事件下的G0 G90 G(54~59) X Y A S M3行复制到"第一次移动"事件下的PB_CMD_calc_g54行下面。
(21).在"初始移动"事件下的G0 G90 G(54~59) X Y A S M3行下面添加G0 G90 G(54~59) 文本元素1 文本元素2 A S M3行,
将文本元素1内容改成X$sx，将文本元素2内容改成Y$sy，
添加输出条件PB__CMD_check_block_initial_move_1，编辑TCL代码如下:
global dpp_path_type
global e1 e2 e3d1 d2vx vy vzrad_a
global wi w2 w4ss1 s2s4sx sy sz
global mom_out_angle_posmom_pos
if {!} {
set rad_a
#******************计算Xrtcp********************
set vx
set w4
if { == "0"} {
if { == "0"} {
if { == "0"} {
if { == "0"} {
set w4 ]
} else {
set w4
}
} else {
set w4
}
} else {
set w4
}
}
set sx $w4
#*****************计算Yrtcp******************
set e1
set e2
set d1
set d2
set vy
set w1
if {!} {
set s1 "-#102"
} elseif {!} {
set s1 "#102"
} else {
if { == "0"} {
if { == "0"} {
if { == "0"} {
if { == "0"} {
if { == "0"} {
if { == "0"} {
set w1 ]
} else {
set w1
}
} else {
set w1
}
} else {
set w1
}
} else {
set w1
}
} else {
set w1
}
}
if {$d1 != 0.0} {
set s1
} else {
set s1 "NONE"
}
}
set w2
if {!} {
set s2 "-#103"
} elseif {!} {
set s2 "+#103"
} else {
if { == "0"} {
if { == "0"} {
if { == "0"} {
if { == "0"} {
if { == "0"} {
if { == "0"} {
set w2 ]
} else {
set w2
}
} else {
set w2
}
} else {
set w2
}
} else {
set w2
}
} else {
set w2
}
}
if {$d2 > 0.0} {
set s2
} elseif {$d2 < 0.0} {
set s2
} else {
set s2 "NONE"
}
}
set w4
if { == "0"} {
if { == "0"} {
if { == "0"} {
if { == "0"} {
set w4 ]
} else {
set w4
}
} else {
set w4
}
} else {
set w4
}
}
if {$vy > 0.0} {
set s4
} elseif {$vy < 0.0} {
set s4
} else {
set s4 "NONE"
}
if { && !} {
set s $s1
} elseif {! && } {
set s $s2
} elseif { && } {
set s
} else {
set s "NONE"
}
if { && } {
set sy " $s $s4]
} elseif {! && } {
set sy $s4
} elseif { && !} {
set sy " $s]
} else {
set sy "0."
}
未完待续。。。。
大神厉害:):):)最好出视频的;P
页:
[1]