PC后处理制作刀具列表

tombai691019

topckey 发表于 2024-6-22 11:51
什么是PC,PB又是什么?

PC是POST配置器的缩写，PB是POST构造器的缩写。

唐建友

tombai691019 发表于 2023-5-5 18:19
大佬：按照你的方法，语句都一样，为什么只能取到刀具号，刀具名。其它参数：刀具直径，最短刀长，最长刀长 ...

楼主：请问能不能给我个代码，按照图片来的报警

唐建友

楼主：请问能不能给我个完整的代码，我按照图片整了个，报警用不了，谢谢！

linbai2015

唐建友 发表于 2024-8-3 10:27
楼主：请问能不能给我个代码，按照图片来的报警

LIB_GE_command_buffer_edit_append LIB_SPF_program_header_comment HEADER_COMMENT {

  global format mom_cutter_info

set format ">3> | <15< | <5< | <8< |<8< |"

set e ""
set tool_list ""

LIB_GE_message "NEWLINE"

LIB_GE_message "****** TOOL LIST ******"

LIB_GE_message "=================================================="

LIB_GE_message "[LIB_DC_format_string $format [list "刀具号" "   刀具名称" "刀具半径" "刀长"]]"

LIB_GE_message "=================================================="

  
set tool_name_list [lsort -dictionary -unique $::lib_pretreatment(tool_name_list)]


MOM_ask_cutter_info tool_name_list

  global mom_tool_extension_length

  foreach tool_name $tool_name_list {

  if {![info exist mom_cutter_info($tool_name,cutter_description)]} {set mom_cutter_info($tool_name,cutter_description) " ------ "}

    LIB_GE_message "[LIB_DC_format_string $format [list "T$mom_cutter_info($tool_name,tool_number)" " $tool_name" "$mom_cutter_info($tool_name,tool_diameter)" "$mom_cutter_info($tool_name,tool_length)"]]"
     }
     foreach i [LIB_SPF_get_pretreatment operation_list] {
    #MOM_output_literal "(Z_min: [LIB_SPF_get_pretreatment limit,z,min 0 $i],Z_max: [LIB_SPF_get_pretreatment limit,z,max 0 $i)"
   MOM_output_literal "(T[LIB_SPF_get_pretreatment mom_tool_number 0 $i],   [LIB_SPF_get_pretreatment mom_tool_name 0 $i],   [format " D = %.2f" [LIB_SPF_get_pretreatment mom_tool_diameter 0 $i] ]   Z_min: [LIB_SPF_get_pretreatment limit,z,min 0 $i],   Z_max: [LIB_SPF_get_pretreatment limit,z,max 0 $i],   [format " Length = %.2f" [LIB_SPF_get_pretreatment mom_tool_length 0 $i] ])"

set zmin                 [LIB_SPF_get_pretreatment   limit,z,min    0 $i]
set zmax            [LIB_SPF_get_pretreatment   limit,z,max                0 $i]
set Tname                [LIB_SPF_get_pretreatment  mom_tool_name  0 $i]
set Tnumber                [LIB_SPF_get_pretreatment   mom_tool_number 0 $i]
set td                     [LIB_SPF_get_pretreatment    mom_tool_diameter        0 $i]
MOM_output_literal "[format "T%-1s D=%-4s %-7s name:%-1s" $Tnumber $td Z=$zmin $Tname]"
}
不知道怎么更改，钻头的深度是不对的