代码

1484331152

global mom_tool_pitch
global mom_spindle_speed
global feed
global xl
global mom_operation_name
global afterG84
    if {![info exists mom_tool_pitch ]} {

   MOM_display_message  " 温馨提示:

     工序$mom_operation_name没有螺距。

     请确认，并知晓

    " "攻丝" "E"
  }
if {[info exists mom_tool_pitch ]} {
set text [ MOM_display_message " 温馨提示:

           攻丝选择！！！！！

       " "攻丝消息" "W" "F=P" "F=S*P" ]

   switch $text {
       1 { set xl ""
           set v "6" }
       2 {
        set xl "M29 G95"
            set afterG84 1
                set v "5"
                  }
                    }
            if { $v == 6 } {
               set feed [expr $mom_tool_pitch]
               }
         if { $v == 5 } {
             set feed [expr $mom_tool_pitch]
       }
     }
if {[info exists xl ]} {
MOM_output_literal "$xl"}

topckey

怎么用呢? 添加在哪个位置合适?