cimatron问题2

钻孔

参数

处理出来的程式：
  
  %
  O0100
  T01
  G90 G80 G00 G17 G40 M23
  G43 H01 Z50. S1000 M03
  G98 G81 X-50. Y0.0 Z-60. R-49. F350 M09
  G99 X0.0 Z-10. R1.
  G80 Z-40.
  M30  
  %

好象是这里有问题：
CYCLE: ON:  
       FlagSpin = NO ;  
       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 ;  
    OUTPUT $ " S" SPIN_SPEED " " SPIN_DIR ;  
       END_IF ;  
   
       SET_ON X_CURPOS Y_CURPOS Z_CURPOS   ;  
       SET_ON CYC_DEPTH CYC_RETR CYC_CLEAR MCH_FEED MCH_COOL ;  
       SET_ON Zinit Depth Clear ;  
       Zinit    = Z_CURPOS + CYC_DZINIT ;  
       Depth    = Z_CURPOS - CYC_DEPTH ;  
       Clear    = Z_CURPOS + CYC_CLEAR ;  
       IF_SET (Zold _LT_ Zinit) OUTPUT $ " Z" Zinit ; END_IF ;  
        OUTPUT $ ;  
        OUTPUT " "  CYC_RETR ;  
        OUTPUT " "  CYC_CODE ;  
        OUTPUT " X" X_CURPOS ;  
        OUTPUT " Y" Y_CURPOS ;  
        OUTPUT " Z" Depth    ;  
        OUTPUT " R" Clear ;  
       IF_SET (CYC_PECK)  OUTPUT " Q" CYC_PECK  ; END_IF ;  
       IF_SET (CYC_DWELL) OUTPUT " P" CYC_DWELL ; END_IF ;  
       IF_SET (CYC_XSHFT) OUTPUT " I" CYC_XSHFT ; END_IF ;  
       IF_SET (CYC_YSHFT) OUTPUT " J" CYC_YSHFT ; END_IF ;  
        OUTPUT " F" MCH_FEED ;  
        OUTPUT " "  MCH_COOL ;  
       SET_ON  LIN_MOV CIRC_MOV ;  
       SET_OFF CYC_DEPTH CYC_CLEAR;  
       Xold = X_CURPOS ;  
       Yold = Y_CURPOS ;  
       Zold = Z_CURPOS ;  
   
CYCLE:  
       Depth = Z_CURPOS - CYC_DEPTH ;  
       Clear = Z_CURPOS + CYC_CLEAR ;  
       OUTPUT $ ;  
       IF_SET (CYC_RETR)   OUTPUT " "  CYC_RETR   ; END_IF ;  
       IF_SET (X_CURPOS)   OUTPUT " X" X_CURPOS   ; END_IF ;  
       IF_SET (Y_CURPOS)   OUTPUT " Y" Y_CURPOS   ; END_IF ;  
       IF_SET (Depth)      OUTPUT " Z" Depth      ; END_IF ;  
       IF_SET (Clear)      OUTPUT " R" Clear      ; END_IF ;  
       IF_SET (CYC_PECK)   OUTPUT " Q" CYC_PECK   ; END_IF ;  
       IF_SET (CYC_DWELL)  OUTPUT " P" CYC_DWELL  ; END_IF ;  
       IF_SET (CYC_XSHFT)  OUTPUT " I" CYC_XSHFT  ; END_IF ;  
       IF_SET (CYC_YSHFT)  OUTPUT " J" CYC_YSHFT  ; END_IF ;  
       IF_SET (SPIN_SPEED) OUTPUT " S" SPIN_SPEED ; END_IF ;  
       IF_SET (SPIN_DIR)   OUTPUT " "  SPIN_DIR   ; END_IF ;  
       IF_SET (MCH_FEED)   OUTPUT " F" MCH_FEED   ; END_IF ;  
       IF_SET (MCH_COOL)   OUTPUT " "  MCH_COOL   ; END_IF ;  
       SET_ON  LIN_MOV CIRC_MOV ;  
       SET_OFF CYC_DEPTH CYC_CLEAR;  
       Xold = X_CURPOS ;  
       Yold = Y_CURPOS ;  
       Zold = Z_CURPOS ;  
   
CYCLE: OFF:  
       OUTPUT $ " G80 Z" Zinit ;   
       SET_ON  LIN_MOV CIRC_MOV ;  
       Zold = Zinit ;  
  

用DEMO或用DEMO改的POST的朋友请小心。

不会吧，这贴子居然没人顶。

我自个顶

顶，
等大侠。

将那里改成G28 Z0就没事了！

dearbabyer，你好！
    如果说是后处理后改，只适合几个孔的。当孔有几十个时，就没法改了。
    另外G99的问题没有解决。
    我认为应改后处理程序。