大家好,求T型刀数据参数代码

bey2008

大家好,我想把T型 刀独有的参数引进后处理,请问它们的参数代码是什么,例如

globalmom_tool_diameter   global mom_tool_corner1_radius D=[format "%.2f" $mom_tool_diameter]R=[format "%.2f" $mom_tool_corner1_radius] ,具体要的参数看图

要颈部直径,刀刃长

bey2008

此问题已经解决了,分享下我的最新成果,最强单刃反镗刀镗反沉孔后处理,用于孔铣反沉孔,欢迎指教回复

zhangjier

最强单刃反镗刀镗反沉孔后处理

丶唯一的存在

zhangjier 发表于 2022-6-11 18:45
最强单刃反镗刀镗反沉孔后处理

global mom_tool_number group1
global mom_tool_diameter
global mom_tool_flute_length hhh mom_tool_length_adjust_register
global mom_tool_corner1_radius mom_tool_lower_corner_radius
global mom_tool_type mom_operation_name mom_group_name
global mom_tool_name mom_tool_cutcom_register
global mom_tool_corner1_radius mom_cutcom_adjust_register
global mom_tool_description tname mom_tool_adjust_register
global mom_tool_length rr2 g9g mom_tool_point_angle ddd mmm ttinf
set g9g 0

if {[info exists mom_tool_cutcom_register] } {
set ddd $mom_tool_cutcom_register
} else {
if {[info exists mom_cutcom_adjust_register] } {
set ddd $mom_cutcom_adjust_register
}
}

if {[info exists mom_tool_adjust_register] } {
set hhh $mom_tool_adjust_register
} else {
if {[info exists mom_tool_length_adjust_register] } {
set hhh $mom_tool_length_adjust_register
} else {
set hhh 0
}
}

if {$mom_tool_type == "Milling Tool-T Cutter"} {
#MOM_set_seq_on
#MOM_output_literal "(T$mom_tool_number=$mom_tool_name D=[string trimright [format "%.2f" $mom_tool_diameter] "0"] FL=[string trimright [format "%.2f" $mom_tool_flute_length] "0"] CR=[string trimright [format "%.2f" $mom_tool_lower_corner_radius] "0"] H=[format  "%02.0f" $hhh])"
MOM_output_literal "(T$mom_tool_number=$mom_tool_name D=[string trimright [format "%.2f" $mom_tool_diameter] "0"] CR=[string trimright [format "%.2f" $mom_tool_lower_corner_radius] "0"] FL=[string trimright [format "%.2f" $mom_tool_flute_length] "0"])"
#MOM_set_seq_off
set rr2 "CR=[string trimright [format "%.2f" $mom_tool_lower_corner_radius] "0"]"
} else {
string first str1 str2
if { [ string first "Drill" $mom_tool_type ] == "-1" } {
#MOM_set_seq_on
#MOM_output_literal "(T$mom_tool_number=$mom_tool_name  D=[string trimright [format "%.2f" $mom_tool_diameter] "0"] FL=[string trimright [format "%.2f" $mom_tool_flute_length] "0"] R=[string trimright [format "%.2f" $mom_tool_corner1_radius] "0"] H=[format  "%02.0f" $hhh])"
MOM_output_literal "(T$mom_tool_number=$mom_tool_name  D=[string trimright [format "%.2f" $mom_tool_diameter] "0"] R=[string trimright [format "%.2f" $mom_tool_corner1_radius] "0"] FL=[string trimright [format "%.2f" $mom_tool_flute_length] "0"])"
#MOM_set_seq_off
set rr2 "R=[string trimright [format "%0.2f" $mom_tool_corner1_radius] "0"]"
} else {
#MOM_set_seq_on
#MOM_output_literal "(T$mom_tool_number=$mom_tool_name D=[string trimright [format "%.2f" $mom_tool_diameter] "0"] FL=[string trimright [format "%.2f" $mom_tool_flute_length] "0"] DR=[format "%.0f" [expr (180.0 / 3.14159) * $mom_tool_point_angle]] H=[format  "%02.0f" $hhh])"
MOM_output_literal "(T$mom_tool_number=$mom_tool_name D=[string trimright [format "%.2f" $mom_tool_diameter] "0"] DR=[format "%.0f" [expr (180.0 / 3.14159) * $mom_tool_point_angle]] FL=[string trimright [format "%.2f" $mom_tool_flute_length] "0"])"
#MOM_set_seq_off
set rr2 "DR=[format "%.0f" [expr (180.0 / 3.14159) * $mom_tool_point_angle]]"
}

}
if {$mom_tool_number == 0 } {
MOM_abort "\n\n 「 $mom_operation_name」使用的刀具：「 $mom_tool_name 」未设置刀号\n\n"
}

global numbers toolnumbers mom_operation_name
global nStep nt mom_tool_number ni ntd mom_tool_name
set nStep [expr $nStep+1]
set nt($nStep) $mom_tool_number
set ntd($nStep) $mom_tool_name
for { set ni 0 } { $ni < $nStep } { incr ni } {
if { $nt($ni) == $mom_tool_number } {
set nStep [expr $nStep-1]

if { [string compare $ntd($ni) $mom_tool_name] } {
MOM_abort "\n\n 「 $mom_operation_name」使用的刀具：「 $mom_tool_name 」与前面刀具的刀号相同！\n\n"
}
return
}
}
set numbers [expr $numbers+1]
set toolnumbers($numbers) $mom_tool_number

410202977

最强单刃反镗刀镗反沉孔后处理