bey2008 发表于 2022-6-10 10:46:46

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

大家好,我想把T型 刀独有的参数引进后处理,请问它们的参数代码是什么,例如
globalmom_tool_diameter   global mom_tool_corner1_radius D=R= ,具体要的参数看图要颈部直径,刀刃长

bey2008 发表于 2022-6-11 17:46:28

本帖最后由 bey2008 于 2022-6-11 17:49 编辑

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

zhangjier 发表于 2022-6-11 18:45:23

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

丶唯一的存在 发表于 2024-10-12 19:48:47

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 { } {
set ddd $mom_tool_cutcom_register
} else {
if { } {
set ddd $mom_cutcom_adjust_register
}
}

if { } {
set hhh $mom_tool_adjust_register
} else {
if { } {
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= "0"] FL= "0"] CR= "0"] H=)"
MOM_output_literal "(T$mom_tool_number=$mom_tool_name D= "0"] CR= "0"] FL= "0"])"
#MOM_set_seq_off
set rr2 "CR= "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_nameD= "0"] FL= "0"] R= "0"] H=)"
MOM_output_literal "(T$mom_tool_number=$mom_tool_nameD= "0"] R= "0"] FL= "0"])"
#MOM_set_seq_off
set rr2 "R= "0"]"
} else {
#MOM_set_seq_on
#MOM_output_literal "(T$mom_tool_number=$mom_tool_name D= "0"] FL= "0"] DR=] H=)"
MOM_output_literal "(T$mom_tool_number=$mom_tool_name D= "0"] DR=] FL= "0"])"
#MOM_set_seq_off
set rr2 "DR=]"
}

}
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
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

if { } {
MOM_abort "\n\n 「 $mom_operation_name」使用的刀具：「 $mom_tool_name 」与前面刀具的刀号相同！\n\n"
}
return
}
}
set numbers
set toolnumbers($numbers) $mom_tool_number

410202977 发表于 2024-10-12 19:54:36

最强单刃反镗刀镗反沉孔后处理
页: [1]
查看完整版本: 大家好,求T型刀数据参数代码