中尉
UID2081276
U币2
G币2972
技术0
主题20
精华0
阅读权限90
注册时间2013-8-13
最后登录2024-11-10
在线时间222 小时
手机19181943107
中尉
|
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}]"
}
|
|