在线等待，加入宏后，后处理错误

qdmagic · 发表于 2011-8-24 14:49

#=============================================================
proc PB_CMD_before_motion { } {
#=============================================================

global tool_changed
global mom_pos
global max_z min_z max_x min_x max_y min_y
  if {![info exists min_z]} {
         set min_z $mom_pos(2)
   } elseif { $mom_pos(2) < $min_z } {
   set min_z $mom_pos(2)
   }
  if {![info exists max_z]} {
         set max_z $mom_pos(2)
   } elseif { $mom_pos(2) > $max_z } {
   set max_z $mom_pos(2)
   }
  if {![info exists min_x]} {
         set min_x $mom_pos(0)
   } elseif { $mom_pos(0) < $min_x } {
   set min_x $mom_pos(0)
   }
  if {![info exists max_x]} {
         set max_x $mom_pos(0)
   } elseif { $mom_pos(0) > $max_x } {
   set max_x $mom_pos(0)
   }
  if {![info exists min_y]} {
         set min_y $mom_pos(1)
   } elseif { $mom_pos(1) < $min_y } {
   set min_y $mom_pos(1)
   }
  if {![info exists max_y]} {
         set max_y $mom_pos(1)
   } elseif { $mom_pos(1) > $max_y } {
   set max_y $mom_pos(1)
   }
global mom_tool_number
global mom_clearance_plane_point
if {$tool_changed == 1} {
   #MOM_output_literal "G00 X0. Y0."
   MOM_output_literal "G43 Z200.0 H$mom_tool_number "
   set tool_changed 0

}

global mom_motion_event mom_motion_type
global pb_start_of_program_flag

FEEDRATE_SET

switch $mom_motion_type {
   ENGAGE {PB_engage_move}
   APPROACH {PB_approach_move}
   FIRST_CUT {PB_first_cut}
   RETRACT  {PB_retract_move}
   RETURN {PB_return_move}
}

if [llength [info commands PB_CMD_kin_before_motion] ] { PB_CMD_kin_before_motion }
if [llength [info commands PB_CMD_before_motion] ]    { PB_CMD_before_motion }

# if {[llength[info commands pb_cmd_before_motion]]} {pb_cmd_before_motion}
set pb_start_of_program_flag 0

global mom_feed_rate
global mom_feed_cut_value mom_feed_rapid_value mom_feed_approach_value
global mom_feed_engage_value mom_feed_first_cut_value mom_feed_stepover_value
global mom_feed_traversal_value mom_feed_retract_value mom_feed_departure_value

if {$mom_feed_rate == $mom_feed_cut_value} {
set mom_feed_rate "#100"
} elseif {$mom_feed_rate == $mom_feed_rapid_value} {
set mom_feed_rate "#101"
} elseif {$mom_feed_rate == $mom_feed_approach_value} {
set mom_feed_rate "#102"
} elseif {$mom_feed_rate == $mom_feed_engage_value} {
set mom_feed_rate "#103"
} elseif {$mom_feed_rate == $mom_feed_first_cut_value} {
set mom_feed_rate "#104"
} elseif {$mom_feed_rate == $mom_feed_stepover_value} {
set mom_feed_rate "#105"
} elseif {$mom_feed_rate == $mom_feed_traversal_value} {
set mom_feed_rate "#106"
} elseif {$mom_feed_rate == $mom_feed_retract_value} {
set mom_feed_rate "#107"
} elseif {$mom_feed_rate == $mom_feed_departure_value} {
set mom_feed_rate "#108"
}

#============================
proc pb_cmd_custom_command_30 {} {
#============================
global mom_feed_cut_value mom_feed_rapid_value mom_feed_approach_value
global mom_feed_engage_value mom_feed_first_cut_value mom_feed_stepover_value
global mom_feed_traversal_value mom_feed_retract_value mom_feed_departure_value
MOM_output_literal "#100 =[format %.f $mom_feed_cut_value].(cut)"
MOM_output_literal "#101 =[format %.f $mom_feed_rapid_value].(rapid)"
MOM_output_literal "#102 =[format %.f $mom_feed_approach_value].(approach)"
MOM_output_literal "#103 =[format %.f $mom_feed_engage_value].(engage)"
MOM_output_literal "#104 =[format %.f $mom_feed_first_cut_value].(first_cut)"
MOM_output_literal "#105 =[format %.f $mom_feed_stepover_value].(stepover)"
MOM_output_literal "#106 =[format %.f $mom_feed_traversal_value].(traversal)"
MOM_output_literal "#107 =[format %.f $mom_feed_retract_value].(retract)"
MOM_output_literal "#108 =[format %.f $mom_feed_departure_value].(departure)"
}

}

qdmagic · 发表于 2011-8-24 14:51

小弟有4处疑问:
1.proc pb_cmd_custom_command_30 {},此程序定义，对不对，在这个位置？
2.global pb_start_of_program_flag ，此变量在使用前，是不是应该先定义一下？
3。switch $mom_motion_type {
ENGAGE {PB_engage_move}" {
   APPROACH {PB_approach_move}
FIRST_CUT {PB_first_cut}
RETRACT  {PB_retract_move}
   RETURN {PB_return_move}
此处，是不是应该用大写字母？
4。MOM_output_literal MOM也应该是大写吧？

qdmagic · 发表于 2011-8-24 14:52

麻烦，各位大哥，大姐，帮我看看，问题出在哪里？我在线等待。。。。

qdmagic · 发表于 2011-8-24 14:53

目的就是输出F值，方便程序员改程序！

vingluck · 发表于 2011-8-24 15:17

兄台你是不是想在进玉里面增加自己的后处理啊?这方面我也摸了很久..还是一头雾水,按照教程上说的去做,,人家做出的就可以后处理,但自己做出来的老是出现错误

qdmagic · 发表于 2011-8-24 15:45

师兄，是我们知识太浅薄，有些地方没考虑到，修改的不完全对，正确的话，没问题的！
呵呵，没高手出招吗？

qdmagic · 发表于 2011-8-24 15:46

上面的代码，就是出宏F值得那段有问题，其他的没问题

qdmagic · 发表于 2011-8-25 08:54

偌大的论坛，没热心人吗

		自动登录	找回密码
密码			注册

[原创] 在线等待，加入宏后，后处理错误

浏览过的版块