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

ahui222222

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

& T1 Q% l4 i7 w) @* r7 Y: Qplevel #0 {
#
# This procedure will be executed automatically at the start of program and
  ~- t6 a1 c: i$ Q& [7 q+ ?# 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"  
" i# t" H: m8 d: f7 O#
# 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.
" [* e% l% }) m( U" l#    "rise_revolution"          Measures the rise over 360 degrees.
#    "none"                     Will suppress the output of pitch.
#    "other"                    Allows you to calculate the pitch
/ C7 T0 j6 j" s#                               using your own formula.
) O2 w/ m3 x: [4 W- t( Q0 X) k#
# This custom command uses the block template circular_move to output
; ?8 B% e) g/ @/ h, L) V# the helix block.  If your post uses a block template with a different
- x# J: W% K4 j+ i# name, you must edit the line that outputs the helix block.
( j4 }) R. ]( Y) `; j7 c$ b#
3 v8 B5 j( t3 i#  The following variable deines the output mode for helical records.
4 H( C% O. r$ F2 k#
. ^5 p1 W' {' u) P  a1 o) {#  FULL_CIRCLE  -- This mode will output a helix record for each 360
1 _0 B5 n* E, j; e8 {5 O#                  degrees of the helix.
#  QUADRANT  --    This mode will output a helix record for each 90
* a4 V7 l+ z" Z3 G#                  degrees of the helix.
#  LINEAR  --      This mode will output the entire helix as linear gotos.
( i/ D$ o  q# S/ Y& q2 C" e#  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
" V: A" \' Z: x* b6 K$ @
#=============================================================
1 \, V2 O! B1 ~4 {/ fproc MOM_helix_move { } {
4 H/ Q+ G: _9 u8 r7 ~#=============================================================
, N% m, {" d: g8 D: Y   global mom_pos_arc_plane
8 n) t. t! F# _) Q' W9 s- M$ {   global mom_sys_cir_vector
) w9 P% ?) j+ ?! S, b6 H   global mom_sys_helix_pitch_type
   global mom_helix_pitch
9 U& m. A9 H* e+ m& U! {2 ~   global mom_prev_pos mom_pos_arc_center
) x' F4 C1 y% g; ~. O7 Q5 r   global PI
   switch $mom_pos_arc_plane {
+ H9 J. |, d2 w( e1 y      XY { MOM_suppress once K ; set cir_index 2 }
      YZ { MOM_suppress once I ; set cir_index 0 }
: E6 g; U( Y7 z      ZX { MOM_suppress once J ; set cir_index 1 }
   }
   switch $mom_sys_helix_pitch_type {
/ e8 g6 {' D$ f2 q5 l2 n7 e      none { }
      rise_revolution { set pitch $mom_helix_pitch }
7 ~0 p8 ]) i$ A- Z      rise_radian { set pitch [expr $mom_helix_pitch / ($PI * 2.0)]}
8 V" C7 h5 n  m+ ?6 S- E5 f      other {
; b+ y& j" M1 F8 b$ [5 ?) q#
# Place your custom helix pitch code here
#
! X5 I3 S4 c) F" C4 ~2 X7 f      }
2 o  W, b0 d0 A) c# o2 ^( [      default { set mom_sys_helix_pitch_type "none" }
1 K* r) \- e' f" T   }
   
   MOM_force once X Y Z
   if {$mom_sys_helix_pitch_type != "none"} {
      MOM_force once I J K
# Z6 J: a$ y2 p      if {$mom_sys_cir_vector == "Vector - Arc Center to Start"} {
3 {$ G* K  l, K5 O6 P         set mom_prev_pos($cir_index) 0.0
         set mom_pos_arc_center($cir_index) $pitch
* n6 `8 M& X7 w. H; D" H# V: R8 V" v      } elseif {$mom_sys_cir_vector == "Vector - Arc Start to Center"} {
         set mom_prev_pos($cir_index) $pitch
- E+ I6 l( z8 J6 A+ M# }1 G) T  B         set mom_pos_arc_center($cir_index) 0.0
      } elseif {$mom_sys_cir_vector == "Unsigned Vector - Arc Center to Start"} {
! O9 u0 J) ?/ P. v# X+ O         set mom_prev_pos($cir_index) 0.0
* ]/ l9 o- ~: s. B         set mom_pos_arc_center($cir_index) $pitch
      } elseif {$mom_sys_cir_vector == "Vector - Absolute Arc Center"} {
" S8 F( r! Z5 x. j* S9 Y; M7 H         set mom_pos_arc_center($cir_index) $pitch
. K1 o4 A3 ]1 J$ X& v8 V3 z      }
   }

#
# You may need to edit this line if you output more than one block
( |2 p( L0 X& C1 e% @# or if you have changed the name of your circular_move block template
" I% @7 h2 T! X9 o) ~$ f#
  u# `+ j: p/ D& U6 F+ _   MOM_do_template circular_move

} ;# MOM_helix_move
9 d- R" p+ U4 P- K( G" ?( r) d1 b
2 v  j9 @6 E1 @! a' h: r} ;# uplevel