cimatron 后处理文件是用什么语言编写的

long_281

问cimatron 后处理文件是用什么语言编写的,
4 ]% N" j/ J( g  o% d) fLINEAR MOTION: FAST:
      FlagSpin = NO ;
2 I# f2 U. o/ n      IF_SET (SPIN_SPEED) FlagSpin = YES ; END_IF ;
      IF_SET (SPIN_DIR)   FlagSpin = YES ; END_IF ;
      IF_SET (FlagSpin _EQ_ YES)
         SET_ON SPIN_SPEED SPIN_DIR ;
% l" R1 K6 F% b$ h0 \
5 v, ?9 k7 n8 R% P" t" y0 T********************************************************
5 r6 d/ g% M$ M  U, H5 E% _* define private variables:
4 v6 [0 }" k1 l7 _/ eFORMAT (SEQUENCING)  Seq SubSeq count first deg id K ;
FORMAT (COORDINATES) Xold Yold Zold DXcenter DYcenter DZcenter ;
FORMAT (COORDINATES) Zinit Clear Depth CNTRL_X  CNTRL_Y  CNTRL_Z  KNOT_ ;
FORMAT (COORDINATES) Xhome Yhome Zhome Time maxz minz radout timeso ;
3 V0 _# R( c% C" P$ [7 iFORMAT (COORDINATES) XfirstOrigin YfirstOrigin ZfirstOrigin ;
" c9 a: D; T- B$ BFORMAT (USER_1)      CurrSubNum ;
FORMAT (coordinates) ORIGOLDI ORIGOLDJ ORIGOLDK offset Tol ;
0 v1 ^, e# h# j2 T5 C6 _% p  j/ l$ Q+ l
& r, {4 {5 D8 w& n( t2 j4 r* define private flags:
FORMAT (USER_2)      FlagSub FlagSeq FlagSpin;
  O! J/ T) A5 {) e, qFORMAT (USER_2)      FirstOriginChange FlagError Flagrotmac  ;
# J9 D0 i# q/ u& r: _
* define private constants:
FORMAT (USER_2)      YES NO ;
' g, F5 `! ^; W
FORMAT (TOOL) D R L ;
2 e" z9 r$ P/ B5 Z# L*文件命名时使用的TP或刀具字符赋值变量(代码中仅用tl）
8 F. k9 S/ x$ Z/ g5 N7 [FORMAT (CHARACTER) tp tl pm ;
********************************************************
INTERACTION (CHARACTER)    "SEQUENCING<Y/N>"         NumYN       = "N"  ;
: G5 r" w; _. i7 u6 s) K! e7 cINTERACTION (SEQUENCING)   "SEQUENC-START"           SeqStart    = 1   ;
5 j7 E$ ^6 A1 ~1 w3 R% ?INTERACTION (SEQUENCING)   "SEQUENC-INCR."           SeqIncr     = 1   ;
INTERACTION (CHARACTER)   "JT/A/Sim/B/Fanuc/C/"      CONTTYPE    = "C"  ;
; T+ Y2 o2 D: y& hINTERACTION (CHARACTER)      "R-OUTPUT<Y/N>"         RADOUTPUT   = "N"  ;
( a5 t& T0 |" `
INTERACTION (CHARACTER)       "X-Y/SN<A/B>"             XOY      = "A"  ;
INTERACTION (COORDINATES)      "DW-X"                   XO       = "0"  ;
INTERACTION (COORDINATES)      "DW-Y"                   YO       = "0"  ;
INTERACTION (CHARACTER)        "Tel"                    Tel      = "135........" ;
INTERACTION (CHARACTER)        "Z/SN<A/B>"              Zplain   = "A"  ;
INTERACTION (COORDINATES)      "DW-Z"                   ZO       = "0"  ;
' X3 m; n6 M3 j6 t+ R********************************************************
. E, B. q( G* s$ Z2 o+ @% ZNON_MODAL  ALL_VAR;
  I/ N9 e9 O+ f5 ?6 C0 K+ l6 C$ OMODAL      X_CURPOS Y_CURPOS Z_CURPOS ;
0 a" a8 S0 a1 q/ U" v, ~MODAL      LIN_MOV CIRC_MOV MCH_FEED SPIN_SPEED SPIN_DIR MCH_COOL MCH_DWELL;
; z" S+ \  Q/ U* i1 BMODAL      CUTCOM_ON  CUTCOM_OFF ;
/ x1 N! e8 X9 O. H& ~8 x7 r, P, XMODAL      CYC_DEPTH CYC_PECK CYC_DWELL CYC_RETR CYC_CLEAR Depth Clear NURBS_MOV;
) [% g$ J; s8 M8 M8 V6 t+ y  \      
IDENTICAL  X_CURPOS X_ENDPT ;
  F8 \' ^( t8 i- _9 q( pIDENTICAL  Y_CURPOS Y_ENDPT ;
; M4 x1 i6 E8 n( |% y& e
, g7 _% N& f4 M) G$ O+ p( }********************************************************
NEW_LINE_IS $ ;
* w1 _$ k7 Z# L9 X, A+ L* m$ y      IF_SET (FlagSeq _EQ_ NO)
         OUTPUT \J ;
      ELSE
         IF_SET (FlagSub _EQ_ NO)
            OUTPUT \J "N" Seq ;
; `9 H" L/ R& S, _. L& P( _% X, y            Seq = Seq + SeqIncr ;
9 M8 I! p, @+ j- f/ F         ELSE
) y9 X& p* W  O# m            OUTPUT \J "N" SubSeq ;
& ^2 P* F/ t0 \+ ?            SubSeq = SubSeq + SeqIncr ;
- w! O: r2 d2 P         END_IF ;
) @8 @' g. P. f- c- h      END_IF ;

********************************************************
  
BEGINNING OF TAPE:
      YES              = 1 ;
      NO               = 0 ;
      Seq              = SeqStart ;