六级士官
UID2063373
U币3
G币1126
技术0
主题12
精华0
阅读权限70
注册时间2013-5-26
最后登录2023-12-4
在线时间132 小时
居住地江苏省 无锡市 滨湖区 华庄街道
QQ
手机13914140630
出生地江苏省 南京市 溧水县 和凤镇
六级士官
|
(*****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].有没有可以提点提点的。
|
|