关于部份機床不支持在G02/03中同是輸出I,J,K值的解决方法

migge555 · 发表于 2012-5-28 13:54

本帖最后由 migge555 于 2012-5-28 13:57 编辑

关于部份機床不支持在G02/03中同是輸出I,J,K值的解决方法,方法在楼下，红色部分是我添加的

migge555 · 发表于 2012-5-28 13:55

##############################################################################
#                                                                         #
# Copyright (c) 1999/2000/2001/2002/2003/2004/2005/2006, UGS PLM Solutions.  #
#                                                                         #
##############################################################################
#@<DEL>@ TEXT ENCLOSED WITHIN DELETE MARKERS WILL BE REMOVED UPON RELEASE.
##############################################################################
# 08-01-2006 gsl - Corrected "switch $mom_sys_cir_vector" found by Lili.
##############################################################################
# TEXT ENCLOSED WITHIN DELETE MARKERS WILL BE REMOVED UPON RELEASE. @<DEL>@

#=============================================================
proc PB_CMD_init_helix { } {
#=============================================================
uplevel #0 {
#
# This ommand will be executed automatically at the start of program and
# anytime it is loaded as a slave post of a linked post.
#
# This procedure can be used to enable your post to output helix.
# You can choose from the following options to format the circle
# block template to output the helix parameters.
#

set mom_sys_helix_pitch_type "rise_radian"

#
# The default setting for mom_sys_helix_pitch_type is "rise_radian".
# This is the most common.  Other choices are:
#
# "rise_radian"             Measures the rise over one radian.
# "rise_revolution"       Measures the rise over 360 degrees.
# "none"                   Will suppress the output of pitch.
# "other"                   Allows you to calculate the pitch
#                            using your own formula.
#
# This custom command uses the block template circular_move to output
# the helix block.  If your post uses a block template with a different
# name, you must edit the line that outputs the helix block.

#
#  The following variable deines the output mode for helical records.
#
#  FULL_CIRCLE  -- This mode will output a helix record for each 360
#                degrees of the helix.
#  QUADRANT  -- This mode will output a helix record for each 90
#                degrees of the helix.
#  LINEAR  --    This mode will output the entire helix as linear gotos.
#  END_POINT -- This mode will assume the control can define an entire
#                helix in a single block.

set mom_kin_helical_arc_output_mode FULL_CIRCLE

MOM_reload_kinematics

#=============================================================
proc MOM_helix_move { } {
#=============================================================
global mom_pos_arc_plane
global mom_sys_cir_vector
global mom_sys_helix_pitch_type
global mom_helix_pitch
global mom_prev_pos mom_pos_arc_center
global PI

switch $mom_pos_arc_plane {
   XY { MOM_suppress once K ; set cir_index 2 }
   YZ { MOM_suppress once I ; set cir_index 0 }
   ZX { MOM_suppress once J ; set cir_index 1 }
}

switch $mom_sys_helix_pitch_type {
   none { }
   rise_revolution { set pitch $mom_helix_pitch }
   rise_radian { set pitch [expr $mom_helix_pitch / ($PI * 2.0)]}
   other {
#
# Place your custom helix pitch code here
#
   }
   default { set mom_sys_helix_pitch_type "none" }
}

MOM_force once X Y Z

if { [string compare "none" $mom_sys_helix_pitch_type] } {
   MOM_force once I J K
#<2012-5-15 yhw>
   switch $mom_pos_arc_plane {
      XY { MOM_suppress once K ;}
      YZ { MOM_suppress once I ;}
      ZX { MOM_suppress once J ;}
   }
#<08-01-06 gsl>
   switch $mom_sys_cir_vector {
      "Vector - Arc Center to Start" {
         set mom_prev_pos($cir_index) $pitch
         set mom_pos_arc_center($cir_index) 0.0
      }
      "Vector - Arc Start to Center" -
      "Unsigned Vector - Arc Start to Center" {
         set mom_prev_pos($cir_index) 0.0
         set mom_pos_arc_center($cir_index) $pitch
      }
      "Vector - Absolute Arc Center" {
         set mom_pos_arc_center($cir_index) $pitch
      }
   }
}

#
# You may need to edit this line if you output more than one block
# or if you have changed the name of your circular_move block template
#
MOM_do_template circular_move

} ;# MOM_helix_move

} ;# uplevel
}

Orange丶 · 发表于 2012-5-28 14:26

楼主这是什么东东？

migge555 · 发表于 2012-5-28 15:25

Orange丶发表于 2012-5-28 14:26 ( K) {" n, l: W1 w/ `
楼主这是什么东东？

螺旋线后处理的TCL文件

wjc7422530 · 发表于 2012-6-26 16:04

到底我们要怎么做？？可以具体点吗
谢谢了

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

[分享] 关于部份機床不支持在G02/03中同是輸出I,J,K值的解决方法

浏览过的版块