iCAx开思网

标题: 请问E4怎样设NC文件的小数点位数 [打印本页]

作者: mju 时间: 2004-10-3 09:53
标题: 请问E4怎样设NC文件的小数点位数
老大帮忙压。

作者: Elite1 时间: 2004-10-3 22:26
要在后置处理中修正，能把您的后置文件传上来看看吗？

作者: mju 时间: 2004-10-4 09:58
是不是像MCAM那样改，你能够用DOME的后处理做个给我看看。小D，在外上网没有办法上传

作者: mju 时间: 2004-10-4 15:29
我的后处理器

作者: mju 时间: 2004-10-4 15:35
我的后处理器
*******************************************************
*       modified by  11/15/1996
********************************************************
* define private variables:
FORMAT (SEQUENCING)  Seq SubSeq ;
FORMAT (TOOL)       CutterComp FirstTool LastTool ;
FORMAT (COORDINATES) Xold Yold Zold DXcenter DYcenter DZcenter ;
FORMAT (COORDINATES) Zinit Clear Depth ;
FORMAT (COORDINATES) Xhome Yhome Zhome ;
FORMAT (COORDINATES) XfirstOrigin YfirstOrigin ZfirstOrigin ;
FORMAT (USER_1)    CurrSubNum ;
FORMAT (USER_1)    Fast ;

* define private flags:
FORMAT (USER_2)    FlagSub FlagSeq FlagSpin;
FORMAT (USER_2)    FirstOriginChange FlagError  ;

* define private constants:
FORMAT (USER_2)    YES NO ;

* change the format of existing variables:
FORMAT (USER_1)    SUB_NUMBER ;

********************************************************
INTERACTION (USER_1)    "MAIN-PROGRAM-NUMBER"    MainNum    = 100  ;
** INTERACTION (TOOL)       "DIACOMP=TOOL+<xx>"    DiaComp    = 50 ;
** INTERACTION (USER_1)    "TOOL-CHANGE-PROGRAM"    ChangeTool  = 8000 ;
INTERACTION (CHARACTER) "SEQUENCING<Y/N>"       NumYN    = "N"  ;
INTERACTION (SEQUENCING) "SEQUENC-START"          SeqStart = 10 ;
INTERACTION (SEQUENCING) "SEQUENC-INCR."          SeqIncr    = 10 ;
**INTERACTION (CHARACTER) "SUBROUTINES<Y/N>"       Sub       = "Y"  ;
INTERACTION (SEQUENCING)    "WORK-COORDINATE-SYSTEM"  Work    = 54  ;

*********************************************************
NON_MODAL  ALL_VAR;
MODAL    X_CURPOS Y_CURPOS Z_CURPOS ;
MODAL    LIN_MOV CIRC_MOV MCH_FEED SPIN_SPEED SPIN_DIR MCH_COOL MCH_DWELL;
MODAL    CUTCOM_ON  CUTCOM_OFF ;
MODAL    CYC_DEPTH CYC_PECK CYC_DWELL CYC_RETR CYC_CLEAR Depth Clear;

IDENTICAL  X_CURPOS X_ENDPT ;
IDENTICAL  Y_CURPOS Y_ENDPT ;

********************************************************
NEW_LINE_IS $ ;
      IF_SET (FlagSeq _EQ_ NO)
   OUTPUT \J ;
      ELSE
*       IF_SET (FlagSub _EQ_ NO)
   OUTPUT \J "N" Seq ;
   Seq = Seq + SeqIncr ;
*       ELSE
*          OUTPUT \J "N" SubSeq ;
*          SubSeq = SubSeq + SeqIncr ;
*       END_IF ;
      END_IF ;

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

      FlagSeq = NO ;
      FlagSub = NO ;
      IF_SET (NumYN _EQ_ "y") FlagSeq = YES ; END_IF ;
      IF_SET (NumYN _EQ_ "Y") FlagSeq = YES ; END_IF ;

*    IF_SET (Sub _EQ_ "y") Sub    = "Y" ; END_IF ;
*    IF_SET (Sub _EQ_ "Y")
*       SET_OFF NO_SUBROUT ;
*    ELSE
*       SET_ON  NO_SUBROUT ;
*    END_IF ;

*-----Unit matrix (MUST be input in this order !!!)
*    ROT_MAT1 = 1.0 ; ROT_MAT2 = 0.0 ; ROT_MAT3 = 0.0 ;
*    ROT_MAT4 = 0.0 ; ROT_MAT5 = 1.0 ; ROT_MAT6 = 0.0 ;
*    ROT_MAT7 = 0.0 ; ROT_MAT8 = 0.0 ; ROT_MAT9 = 1.0 ;

*-----shift all data according to the MCHINE ZERO indicated by the
*    user in the POSTPR interaction
      TRANS_MATX = 0 - X_MACH  ;
      TRANS_MATY = 0 - Y_MACH  ;
      TRANS_MATZ = 0 - Z_MACH  ;

*-----shift the HOME according to the MCHINE ZERO indicated by the
*    user in the POSTPR interaction
      Xhome = X_HOME - X_MACH  ;
      Yhome = Y_HOME - Y_MACH  ;
      Zhome = Z_HOME - Z_MACH  ;

*-----tool location is HOME
      Xold = X_HOME ;
      Yold = Y_HOME ;
      Zold = Z_HOME ;

*-----For 1st ORIGIN CHANGE
      FirstOriginChange = YES ;

      MCH_FEED = 9999 ;

*-----output                      * ?????????????*
*    IF_SET (FlagSeq _EQ_ YES )
*       OUTPUT " %" MainNum " G71" ;
*    ELSE
*       OUTPUT " %" MainNum " G71" ;
*    END_IF ;
       OUTPUT " %" \J " O" MainNum;
       OUTPUT $ " G90 G80 G00 G17 G40 G49 G" Work;

BEGINNING OF PROC:
      KEEP PROC_NAME ;
      SET_ON MCH_COOL ;
*    FlagSub = NO ;
*    SubSeq  = SeqStart ;

END OF TAPE:
*    IF_SET (FirstTool _NE_ LastTool)
* OUTPUT $ " T" NEXT_TOOL " M98 P" ChangeTool;
*    OUTPUT  $ " M6T" NEXT_TOOL;
*    END_IF ;
      OUTPUT $ " M05 " ;
      OUTPUT $ " M09 " ;
      OUTPUT $ " G91 G28 Z0 " ;
      OUTPUT $ " M30 " ;
      
END OF FILE:
      IF_SET (FlagSeq _EQ_ YES )
   OUTPUT \J "%" ;
      ELSE
   OUTPUT \J " %" ;
      END_IF ;

********************************************************
FEED:
      KEEP MCH_FEED ;

SPIN:
      KEEP SPIN_SPEED ;

COOLANT:
      KEEP MCH_COOL ;

DWELL:
      KEEP MCH_DWELL ;

*CUTTER COMPENSATION:
*    KEEP  CUTCOM_ON ;

*CUTTER COMPENSATION: COFF:
*    KEEP  CUTCOM_OFF ;

********************************************************
TOOL CHANGE: FIRST:
      SET_ON  SPIN_SPEED SPIN_DIR ;
      OUTPUT $ " G91 G28 Z0 " ;
      OUTPUT $ " G90 " ;
      OUTPUT $ " S" SPIN_SPEED " " SPIN_DIR ;
*    OUTPUT $ " G00 Z" Zhome ;

*    OUTPUT $ "TOOL CHANGE: FIRST";
*-----save first tool number
*    FirstTool = CURR_TOOL ;
*    LastTool  = CURR_TOOL ;

*-----tool cutter compensation register number
*    CutterComp = CURR_TOOL +  DiaComp ;

*-----assuming 1st tool is in the spindle, there is no need
*    for tool change)
*    OUTPUT $ " T" CURR_TOOL " G17 G90" " S" SPIN_SPEED ;
*    OUTPUT $ " M6T" CURR_TOOL ;
*    OUTPUT $ " G43 H" CURR_TOOL " Z" Zhome " S" SPIN_SPEED " " SPIN_DIR ;

*-----more then one tool in this run of the Post Processor
*    IF_SET (NEXT_TOOL _NE_ CURR_TOOL)
*   OUTPUT $ " T" NEXT_TOOL ;
*    END_IF ;
*-----standard tool change commands. (assuming 1st tool is in
* OUTPUT $ " G00"  " Z" Zhome " M" SPIN_DIR ;
*    OUTPUT $ " G00"  " Z" Zhome SPIN_DIR " S" SPIN_SPEED ;

*TOOL CHANGE:
*    SET_ON  SPIN_SPEED SPIN_DIR ;
*    OUTPUT $ "TOOL CHANGE";
*-----tool cutter compensation register number
*    CutterComp = CURR_TOOL +  DiaComp ;

*-----tool change command (by using an internal tool change
*    subroutine)
*    OUTPUT $ " T" CURR_TOOL " G71 G90" " S" SPIN_SPEED ;
*    OUTPUT $ " M6T" CURR_TOOL ;
*    OUTPUT $ " G43 H" CURR_TOOL " Z" Zhome " S" SPIN_SPEED " " SPIN_DIR ;

*    OUTPUT $ " T" NEXT_TOOL ;
*-----standard tool change commands. (assuming 1st tool is in
*    OUTPUT $ " G00" " Z" Zhome  " " SPIN_DIR " S" SPIN_SPEED ;

*TOOL CHANGE: LAST:
*    SET_ON  SPIN_SPEED SPIN_DIR ;
*    OUTPUT $ "TOOL CHANGE: LAST";

*-----save last tool number
*    LastTool = CURR_TOOL ;

*-----tool cutter compensation register number
*    CutterComp = CURR_TOOL +  DiaComp ;

* OUTPUT $ " T" CURR_TOOL " M98 P"  ChangeTool ;
*    OUTPUT $ " M6T" CURR_TOOL;
*-----the last tool is the same as the first tool
*    IF_SET (NEXT_TOOL _NE_ CURR_TOOL)
*   OUTPUT $ " T" NEXT_TOOL ;
*    END_IF ;
*-----standard tool change commands. (assuming 1st tool is in
* OUTPUT $ " G90 G80 G00 G17 G40 M23" ;
*    OUTPUT $ " G90 G80 G00 G17 G40 G" ;
*    OUTPUT $ " G43 H" CURR_TOOL " Z" Zhome " S" SPIN_SPEED  " " SPIN_DIR ;

********************************************************
LINEAR MOTION: FAST:
      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 ;

      OUTPUT $ ;
      IF_SET (LIN_MOV)  OUTPUT " " LIN_MOV ; END_IF ;
      IF_SET (X_CURPOS) OUTPUT " X" X_CURPOS ; END_IF ;
      IF_SET (Y_CURPOS) OUTPUT " Y" Y_CURPOS ; END_IF ;
      IF_SET (Fast _EQ_ 1)
             IF_SET (Z_CURPOS) OUTPUT " Z" Z_CURPOS ; END_IF ;
      END_IF ;

      IF_SET (Fast _EQ_ 0)
        Fast = 1 ;
  OUTPUT $ ;
        OUTPUT " Z" Z_CURPOS ;
      END_IF ;
      IF_SET (MCH_COOL) OUTPUT  " " MCH_COOL ; END_IF ;
      SET_ON CIRC_MOV ;
      Xold = X_CURPOS ;
      Yold = Y_CURPOS ;
      Zold = Z_CURPOS ;

LINEAR MOTION:
      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 ;

      OUTPUT $ ;
      IF_SET (LIN_MOV) OUTPUT " "  LIN_MOV ; END_IF ;
*    IF_SET (CUTCOM_ON)  OUTPUT " "  CUTCOM_ON " D" CutterComp ; END_IF ;
*    IF_SET (CUTCOM_OFF) OUTPUT " "  CUTCOM_OFF ; END_IF ;
      IF_SET (X_CURPOS) OUTPUT " X" X_CURPOS ; END_IF ;
      IF_SET (Y_CURPOS) OUTPUT " Y" Y_CURPOS ; END_IF ;
      IF_SET (Z_CURPOS) OUTPUT " Z" Z_CURPOS ; END_IF ;
      IF_SET (MCH_FEED) OUTPUT " F" MCH_FEED ; END_IF ;
      IF_SET (MCH_COOL) OUTPUT  " " MCH_COOL ; END_IF ;
      SET_ON CIRC_MOV ;
      Xold = X_CURPOS ;
      Yold = Y_CURPOS ;
      Zold = Z_CURPOS ;

********************************************************
CIRCULAR MOTION:
      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 ;

      DXcenter = X_CENTER - Xold ;
      DYcenter = Y_CENTER - Yold ;
      DZcenter = Z_CENTER - Zold ;
      OUTPUT $ ;
      IF_SET (CIRC_MOV)       OUTPUT " " CIRC_MOV  ; END_IF ;
      IF_SET (X_CURPOS)       OUTPUT " X" X_ENDPT  ; END_IF ;
      IF_SET (Y_CURPOS)       OUTPUT " Y" Y_ENDPT  ; END_IF ;
      IF_SET (Z_CURPOS)       OUTPUT " Z" Z_ENDPT  ; END_IF ;
      OUTPUT " I" DXcenter ;
      OUTPUT " J" DYcenter ;
      IF_SET (DZcenter _NE_ 0.0) OUTPUT " K" DZcenter ; 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 ;
      Xold = X_CURPOS ;
      Yold = Y_CURPOS ;
      Zold = Z_CURPOS ;

********************************************************
INSERT WITH:
      OUTPUT $ INS_STR ;

INSERT WITHOUT:
      OUTPUT  \J INS_STR ;

MESSAGE:
      OUTPUT $ "( " MESS_STR " )"  ;

********************************************************
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 ;
       OUTPUT $ " G80 G00 Z" Zinit ;
      SET_ON  LIN_MOV CIRC_MOV ;
      Zold = Zinit ;

********************************************************
ORIGIN CHANGE:

*-----Save the first origin data for later use
      IF_SET (FirstOriginChange _EQ_ YES )
   XfirstOrigin    = X_ORIGIN  ;
   YfirstOrigin    = Y_ORIGIN  ;
   ZfirstOrigin    = Z_ORIGIN  ;
   FirstOriginChange = NO       ;
      END_IF ;

*.....distance between the rotation center and the ORIGIN
      TRANS_MATX = X_ORIGIN - XfirstOrigin - X_MACH  ;
      TRANS_MATY = Y_ORIGIN - YfirstOrigin - Y_MACH  ;
      TRANS_MATZ = Z_ORIGIN - ZfirstOrigin - Z_MACH  ;

********************************************************
AXISCHANGE:
    FlagError  = NO ;
    IF_SET (PROC_NAME _EQ_ "ROTMAC")  FlagError = YES ; END_IF ;
    IF_SET (AXIS_NUM  _GT_ 3)       FlagError = YES ; END_IF ;

    IF_SET (FlagError _EQ_ YES)
      &nbsp

RINT \J "Error: 4/5 axes motion was found in:" ;
      &nbsp

RINT \J " TP=" TP_NAME " PROC=" PROC_NUM " (" PROC_NAME ")"
;
      &nbsp

RINT  \J "Error: Cannot post 5 axes toolpaths" ;
       OUTPUT \J " M00 (Error: 4/5 axes motion was found)" ;
       OUTPUT \J " M00 (TP=" TP_NAME " PROC=" PROC_NUM " - " PROC_NAME ")"
;

    END_IF ;

********************************************************
*SUBROUTINE CALL:
*    CurrSubNum = SUB_NUMBER + StartSubNum ;
*    OUTPUT $ " M98 P" CurrSubNum  ;
*
*BEGINNING OF SUB:
*    SET_ON  MCH_FEED MCH_COOL LIN_MOV CIRC_MOV ;
*    FlagSub = YES ;
*    OUTPUT \J " " ;
*    IF_SET (FlagSeq _EQ_ YES)
*       OUTPUT \J "O" CurrSubNum ;
*    ELSE
*       OUTPUT \J " O" CurrSubNum ;
*    END_IF ;

*END OF SUB:
*    OUTPUT $  " M99" ;
*    FlagSub = NO ;

*SUBROUTINE RETURN:
*    SET_ON LIN_MOV CIRC_MOV X_CURPOS Y_CURPOS Z_CURPOS;

********************************************************

作者: mju 时间: 2004-10-4 15:36
麻烦老兄帮忙！

作者: Elite1 时间: 2004-10-6 11:50
请将附件解压到指定目录，覆盖原文件，输出的G代码为小数点前、后最少为3位，不够补零。请参考！

作者: mju 时间: 2004-10-7 10:55
TKS

作者: kissyou1112 时间: 2004-10-7 16:52
为了斑竹，我顶顶顶！！！！！！
为了楼主，为了点数，我顶顶顶！！！！！！

作者: xdjy501 时间: 2004-10-30 17:44
不错

作者: xdjy501 时间: 2004-10-30 17:45
顶

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