在制作后处理时常见的.TCL都有什么

ahui222222 · 发表于 2007-12-17 14:10

我是一名后处理新手!!于是自己摸索与借鉴,发现在制作后处理时需要会.TCL语言.请问我要想学习这些语言!!需要学习什么书!!最好是视频教程!!如果没有哪位能教下我?我的QQ307306636
以下就是其中一个实在不明白.哪位明白请+我QQ希望我们在学习中成为朋友一起共同进步.

plevel #0 {
#
# This procedure 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 {$mom_sys_helix_pitch_type != "none"} {
   MOM_force once I J K
   if {$mom_sys_cir_vector == "Vector - Arc Center to Start"} {
      set mom_prev_pos($cir_index) 0.0
      set mom_pos_arc_center($cir_index) $pitch
   } elseif {$mom_sys_cir_vector == "Vector - Arc Start to Center"} {
      set mom_prev_pos($cir_index) $pitch
      set mom_pos_arc_center($cir_index) 0.0
   } elseif {$mom_sys_cir_vector == "Unsigned Vector - Arc Center to Start"} {
      set mom_prev_pos($cir_index) 0.0
      set mom_pos_arc_center($cir_index) $pitch
   } elseif {$mom_sys_cir_vector == "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

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

在制作后处理时常见的.TCL都有什么

相关帖子

浏览过的版块