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

ahui222222

我是一名后处理新手!!于是自己摸索与借鉴,发现在制作后处理时需要会.TCL语言.请问我要想学习这些语言!!需要学习什么书!!最好是视频教程!!如果没有哪位能教下我?我的QQ307306636
- o- j) V" u7 o7 x  r以下就是其中一个实在不明白.哪位明白请+我QQ希望我们在学习中成为朋友一起共同进步.
7 F' `3 @4 [  f8 o' w
plevel #0 {
#
# This procedure will be executed automatically at the start of program and
- m7 L1 d/ V: n" O' i0 H( B2 p& |# anytime it is loaded as a slave post of a linked post.
. L$ p! H4 O; [1 h8 Q#
  T* D4 h& [7 i3 _. R5 d  Q# n. p# 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.
( H* }2 X; U3 }# r9 |, Y: m#
# R2 i* [5 ?' dset mom_sys_helix_pitch_type "rise_radian"  
#
# The default setting for mom_sys_helix_pitch_type is "rise_radian".
1 b! g8 U; i/ K% G* f0 k# This is the most common.  Other choices are:
#
0 |) o; z3 b: J$ f#    "rise_radian"              Measures the rise over one radian.
) h5 J, f  X/ F! b. U#    "rise_revolution"          Measures the rise over 360 degrees.
#    "none"                     Will suppress the output of pitch.
7 d- l) J/ s# J! R% `" c6 _#    "other"                    Allows you to calculate the pitch
  y6 V# ]3 z9 U2 R: n3 x9 g#                               using your own formula.
0 M: K* p$ a8 {" ?5 v) @#
) F4 w8 d( b) f) j& ]# This custom command uses the block template circular_move to output
0 y. P, k3 X3 d! c6 v9 {# the helix block.  If your post uses a block template with a different
, d0 M) D  z# F% i* o8 `; ^# name, you must edit the line that outputs the helix block.
#
#  The following variable deines the output mode for helical records.
# b& G5 o0 Q+ G#
#  FULL_CIRCLE  -- This mode will output a helix record for each 360
* y! N! t) X. c% L  ?#                  degrees of the helix.
$ p  c. s! n" J8 j4 R/ q: M, g#  QUADRANT  --    This mode will output a helix record for each 90
+ f& s! Z7 |2 w) @#                  degrees of the helix.
#  LINEAR  --      This mode will output the entire helix as linear gotos.
5 E: e& }+ z  N- o6 h! }6 d#  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
3 p" m5 I( V/ B6 p7 S   MOM_reload_kinematics
4 u- p& x1 Q& S2 v
2 O: y$ m+ S- r3 d/ w! q- i#=============================================================
/ E! T. k9 ~/ pproc MOM_helix_move { } {
#=============================================================
   global mom_pos_arc_plane
   global mom_sys_cir_vector
   global mom_sys_helix_pitch_type
   global mom_helix_pitch
! f3 U* z% V$ @% ^  b$ ]   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 {
9 |% @9 _% p* ?      none { }
      rise_revolution { set pitch $mom_helix_pitch }
      rise_radian { set pitch [expr $mom_helix_pitch / ($PI * 2.0)]}
      other {
#
8 ?0 e& [, z/ l4 q' R# Place your custom helix pitch code here
#
: O" y1 n+ e, H1 a2 M+ `      }
8 d9 [( U, |# W  `3 j3 B% X& T; B, ?      default { set mom_sys_helix_pitch_type "none" }
   }
   
   MOM_force once X Y Z
. F" o. z# s+ q' v3 q$ u  g   if {$mom_sys_helix_pitch_type != "none"} {
, Q6 W& ]& D/ Y" u1 R( ]5 w6 O      MOM_force once I J K
5 z/ M: ]* W2 ^0 Y' x      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
4 ^! P+ R1 f9 s- Y2 L0 g% X      } elseif {$mom_sys_cir_vector == "Unsigned Vector - Arc Center to Start"} {
         set mom_prev_pos($cir_index) 0.0
3 U( P4 l2 N' c6 s' S1 K         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
      }
   }
8 R, _* [4 a  n
7 J" U; y/ b  u#
# 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
0 m* ?4 p/ s! I#
6 R4 ?# X3 ^- w6 k+ x   MOM_do_template circular_move
* y. W$ i* l6 J/ R! h. ]$ L' `; F' O# P
} ;# MOM_helix_move

} ;# uplevel