标题: UG后处理输出卧式加工中心坐标位置 [打印本页] 作者: 恒二 时间: 2022-6-15 02:43 标题: UG后处理输出卧式加工中心坐标位置 global dpp_ge
global mom_pos
global mom_out_angle_pos
global mom_prev_out_angle_pos
global save_mom_kin_machine_type
global DEG2RAD
global RAD2DEG
global mom_fixture_offset_value
#///////////////////////////////////////
set x [expr [format "%.2f" $dpp_ge(coord_offset,0)]]
set y [expr [format "%.2f" $dpp_ge(coord_offset,1)]]
set z [expr [format "%.2f" $dpp_ge(coord_offset,2)]]
#///////////////////////////////////////
set a [expr [format "%.2f" $dpp_ge(coord_rot_angle,0)]]
set c [expr [format "%.2f" $dpp_ge(coord_rot_angle,1)]]
set b [expr $a*$c/(abs($a)+0.0001)]
set d [expr tan($DEG2RAD*$b)]
set e [expr sin($DEG2RAD*(90-$b))]
set f [expr ($x/$d)]
set g [expr -($z)]
set h [expr ($f+$g)]
set i [expr sin($DEG2RAD*$b)]
#///////////////////////////////////////
MOM_output_literal "G65P8003X[ format "%.3f" ${j}]Y[ format "%.3f" ${y}]Z[ format "%.3f" ${o}]B[ format "%.3f" ${b}]C56H[ format "%.0f" ${p}]"
}
