iCAx开思网

标题: cimatron问题2 [打印本页]

作者: 贪得无厌 时间: 2005-2-5 11:08
标题: cimatron问题2
钻孔

作者: 贪得无厌 时间: 2005-2-5 11:09
参数

作者: 贪得无厌 时间: 2005-2-5 11:12
处理出来的程式：

  %
  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
  %

作者: 贪得无厌 时间: 2005-2-5 11:13
好象是这里有问题：
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 ;

作者: 贪得无厌 时间: 2005-2-5 11:21
用DEMO或用DEMO改的POST的朋友请小心。

作者: 贪得无厌 时间: 2005-2-9 17:21

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

作者: 贪得无厌 时间: 2005-2-15 12:06
我自个顶

作者: 贪得无厌 时间: 2005-2-17 18:14
顶，
等大侠。

作者: dearbabyer 时间: 2005-2-17 18:36
将那里改成G28 Z0就没事了！

作者: 贪得无厌 时间: 2005-2-17 21:17
dearbabyer，你好！
    如果说是后处理后改，只适合几个孔的。当孔有几十个时，就没法改了。
    另外G99的问题没有解决。
    我认为应改后处理程序。

作者: 贪得无厌 时间: 2005-2-22 10:38
不顶看的人少．

作者: chang938 时间: 2005-2-22 13:07
钻孔何必搞的那么麻烦啊，用环绕等高就OK了

作者: abcdexujie 时间: 2005-2-22 20:58
那孔太小,怎么用等高铣啊!刀都转不开啊

作者: abcdexujie 时间: 2005-2-22 21:00
这得看孔多大是吧,

作者: 贪得无厌 时间: 2005-2-24 19:41
上面只是我随便搞的一个图。
我这里有时模太大，没法在摇臂钻上钻孔时，就要直接在铣床上钻孔。

欢迎光临 iCAx开思网 (https://www.icax.org/)