在UG后处理中直接计算RTCP,避免宏联动卡顿的方法(一)
(一).五轴AC双转台：1.程序起始序列中添加定制命令PB_CMD_global_var，编辑TCL代码如下：
global dpp_path_type
global dpp_flag
set dpp_flag 0
set dpp_path_type "NONE"
# 旋转中心点G55X,G55Y,G55Z
global G55X G55Y G55Z
set G55X 570.8367
set G55Y -220.6426
set G55Z -475.0
# 编程原点G56X,G56Y,G56Z
global G56X G56Y G56Z
set G56X 580.8367
set G56Y -210.6426
set G56Z -219.0
# 编程原点相对于旋转中心点偏移
global Xofs Yofs Zofs
set Xofs
set Yofs
set Zofs
2.定轴加工-----加工原点G54计算TCL代码：
global dpp_path_type
global mom_out_angle_pos
global v e1 e2 ra rc
global vx vy vz
global sx sy sz
global Xofs Yofs Zofs
global G55X G55Y G55Z
global G56X G56Y G56Z
if {!} {
if { $mom_out_angle_pos(0) !=0 || $mom_out_angle_pos(1) != 0} {
MOM_output_literal "(刀路: 定轴)"
set ra
set rc
} else {
MOM_output_literal "(刀路: 三轴)"
set ra 0.0
set rc 0.0
}
} elseif {!} {
MOM_output_literal "(刀路: 五轴联动)"
set ra 0.0
set rc 0.0
}
set e1
set e2
set v
set e1
set e2
set vx
set sx
if { == "0"} {
if { == "0"} {
if { == "0"} {
if { == "0"} {
set sx ]
} else {
set sx
}
} else {
set sx
}
} else {
set sx
}
}
set e1
set e2
set vy
set sy
if { == "0"} {
if { == "0"} {
if { == "0"} {
if { == "0"} {
set sy ]
} else {
set sy
}
} else {
set sy
}
} else {
set sy
}
}
set e1
set e2
set vz
set sz
if { == "0"} {
if { == "0"} {
if { == "0"} {
if { == "0"} {
set sz ]
} else {
set sz
}
} else {
set sz
}
} else {
set sz
}
}
3.联动加工-----刀尖跟随RTCP计算TCL代码：
global dpp_path_type
global mom_out_angle_pos
global mom_pos
global e1 e2 e3 e4 ra rc
global vx vy vz
global sx sy sz
global Xofs Yofs Zofs
global G55X G55Y G55Z
global G56X G56Y G56Z
if {!} {
set ra
set rc
# 计算Xrtcp=(cos5-1)*Xofs+sin5*Yofs+X
set e1
set e2
set e4 $mom_pos(0)
set vx
set sx
if { == "0"} {
if { == "0"} {
if { == "0"} {
if { == "0"} {
set sx ]
} else {
set sx
}
} else {
set sx
}
} else {
set sx
}
}
# 计算Yrtcp=(cos4*cos5-1)*Yofs-cos4*sin5*Xofs+sin4*Zofs+Y
set e1
set e2
set e3
set e4 $mom_pos(1)
set vy
set sy
if { == "0"} {
if { == "0"} {
if { == "0"} {
if { == "0"} {
set sy ]
} else {
set sy
}
} else {
set sy
}
} else {
set sy
}
}
# 计算Zrtcp=sin4*sin5*Xofs-sin4*cos5*Yofs+(cos4-1)*Zofs+Z
set e1
set e2
set e3
set e4 $mom_pos(2)
set vz
set sz
if { == "0"} {
if { == "0"} {
if { == "0"} {
if { == "0"} {
set sz ]
} else {
set sz
}
} else {
set sz
}
} else {
set sz
}
}
return 1
}
return 0
(二).五轴BC双转台：
1.定轴加工-----加工原点G54计算TCL代码：
global dpp_path_type
global mom_out_angle_pos
global v e1 e2 rb rc
global vx vy vz
global sx sy sz
global Xofs Yofs Zofs
global G55X G55Y G55Z
global G56X G56Y G56Z
if {!} {
if { $mom_out_angle_pos(0) !=0 || $mom_out_angle_pos(1) != 0} {
MOM_output_literal "(刀路: 定轴)"
set rb
set rc
} else {
MOM_output_literal "(刀路: 三轴)"
set rb 0.0
set rc 0.0
}
} elseif {!} {
MOM_output_literal "(刀路: 五轴联动)"
set rb 0.0
set rc 0.0
}
set e1
set e2
set v
set e1
set e2
set vx
set sx
if { == "0"} {
if { == "0"} {
if { == "0"} {
if { == "0"} {
set sx ]
} else {
set sx
}
} else {
set sx
}
} else {
set sx
}
}
set e1
set e2
set vy
set sy
if { == "0"} {
if { == "0"} {
if { == "0"} {
if { == "0"} {
set sy ]
} else {
set sy
}
} else {
set sy
}
} else {
set sy
}
}
set e1
set e2
set vz
set sz
if { == "0"} {
if { == "0"} {
if { == "0"} {
if { == "0"} {
set sz ]
} else {
set sz
}
} else {
set sz
}
} else {
set sz
}
}
2.联动加工-----刀尖跟随RTCP计算TCL代码：
global dpp_path_type
global mom_out_angle_pos
global mom_pos
global e1 e2 e3 e4 rb rc
global vx vy vz
global sx sy sz
global Xofs Yofs Zofs
global G55X G55Y G55Z
global G56X G56Y G56Z
if {!} {
set rb
set rc
# 计算Xrtcp=(cos4*cos5-1)*Xofs+cos4*sin5*Yofs-sin4*Zofs+X
set e1
set e2
set e3
set e4 $mom_pos(0)
set vx
set sx
if { == "0"} {
if { == "0"} {
if { == "0"} {
if { == "0"} {
set sx ]
} else {
set sx
}
} else {
set sx
}
} else {
set sx
}
}
# 计算Yrtcp=-sin5*Xofs+(cos5-1)*Yofs+Y
set e1
set e2
set e4 $mom_pos(1)
set vy
set sy
if { == "0"} {
if { == "0"} {
if { == "0"} {
if { == "0"} {
set sy ]
} else {
set sy
}
} else {
set sy
}
} else {
set sy
}
}
问题是怎么添加到后处理事件中阿
页:
[1]