|
(*****270*****)
T25M6(D6.8X60 DR)
G0G90G54
G00 G90 X29. Y59.(13.8)
G43H25Z20.0
M3S2769
M8M51
#100=1.26 这里是刀尖长度,根据刀具直径和角度自动计算的
(SAE-2)
G98G81Z[-13.8-#100]R2.F387 这里是想要实现的位置。不知道哪个参数是刀肩长度。
Y15.
G80
G90G0Z50.
下面是我计算#100的代码,算的比较繁琐。小白技术。勿喷!!
global mom_tool_point_angle
global mom_tool_diameter
set a $mom_tool_point_angle
set c $mom_tool_diameter
set b [expr $a*180/3.1415926]
set d [format "%.2f" $b]
set c1 [expr $c/2]
#set a1 [expr tan($a)]
set d1 [expr $d*3.14159/360]
set d2 [expr tan($d1)]
set e [expr $c1/$d2]
set e1 [format "%.2f" $e]
# MOM_output_literal "$a"
# MOM_output_literal "$d"
# MOM_output_literal "$c"
# MOM_output_literal "$c1"
# MOM_output_literal "$d1"
# MOM_output_literal "$d2"
# MOM_output_literal "$e1"
MOM_output_literal "#100=$e1"
我想请教一下,如何循环指令Z可以替换成在Z[刀肩深度-#100].有没有可以提点提点的。
|
|