DEMO.EXF POST讲解.docVIP

贺山中岁月兄新任版主，特将DEMO.EXF这个POST作一个讲解。 * DEMO 3 axes Post Processor for FANUC * CIMATRON90 VER 9.0* Last update : 23-FEB-1998程序行前面起头字符为*表示此行为注释行。 * define private variables:FORMAT (SEQUENCING)Seq SubSeq CNTRL_NUM NURBS_DEG count first deg ;FORMAT (TOOL) CutterComp FirstTool LastTool ;FORMAT (COORDINATES) Xold Yold Zold DXcenter DYcenter DZcenter ;FORMAT (COORDINATES) Zinit Clear Depth CNTRL_XCNTRL_YCNTRL_ZKNOT_ ;FORMAT (COORDINATES) Xhome Yhome Zhome ;FORMAT (COORDINATES) XfirstOrigin YfirstOrigin ZfirstOrigin ;FORMAT (USER_1) CurrSubNum ;FORMAT (coordinates) ORIGOLDI ORIGOLDJ ORIGOLDK ; * define private flags:FORMAT (USER_2) FlagSub FlagSeq FlagSpin;FORMAT (USER_2) FirstOriginChange FlagError Flagrotmac; * define private constants:FORMAT (USER_2) YES NO ; * change the format of existing variables:FORMAT (USER_1) SUB_NUMBER ;FORMAT里面定义了后处理中需要用到的变量的类型，这些当然都不是我们需要修改的内容，但是你如果新定义了一个变量如圆弧插补的半径radius，这个变量当然需要可以是小数，它就需要被定义为REAL或COORDINATES这种类型。添加一行程序： FORMAT (COORDINATES)radius; INTERACTION指的是执行后处理时的一些交互的内容： 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; 是否输出子程序，WCUT是没有子程序的，但是POCKET和PROFILE会产生子程序 INTERACTION (USER_1) SUB-PROGRAM-NUMBER StartSubNum = 1000 ; 第一个子程序号 如果需要添加新的交互内容，只需要添加一个交互行就可以了，当然需要注意被交互的内容是整型还是实型，否则不能输入数字和小数 NON_MODALALL_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_ONCUTCOM_OFF ;MODAL CYC_DEPTH CYC_PECK CYC_DWELL CYC_RETR CYC_CLEAR Depth Clear NURBS_MOV;MODAL 定义变量是否为模态，象X_CURPOS这种坐标位置当然是随时都在变化的。另外我们可以认为指的是在同一行程序内变量的值能否重复输入多次。 IDENTICALX_CURPOS X_ENDPT ;IDENTICALY_CURPOS Y_ENDPT ;每输出一行程序之前，调用一个新的值，即保持侦测状态。 前面都是准备工作，下面的内容才是和输出加工程序有关的。 NEW_LINE_IS $ ; $为换行指令，这一段内容制定程序是如何换行的 IF_SET (FlagSeq _EQ_ NO) 如果制定不输出行号 OUTPUT J ; 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:程序头的指定 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_ONNO_SUBROUT ;END_IF ; *-Unit matrix (MUST be input in this order !)指定XYZ轴的方向，千万不要改啊！ 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 CHANGEFirstOriginChange = YES ; MCH_FEED = 9999 ; *-output IF_SET (FlagSeq _EQ_ YES ) OUTPUT % J O MainNum; 换行后输出子程序号，这里有ELSE只是为了修改者方便。 ELSE OUTPUT % J O MainNum;END_IF ;*-For the first origin change ORIGOLDI=0 ; ORIGOLDJ=0 ; ORIGOLDK=1 ; flagrotmac = no ; FILE指一个输出的加工代码文件 TAPE指使用同一把刀具的一段加工程序 PROCEDURE 指的是一个WCUT等 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;END_IF ;OUTPUT $ M30 ; END OF FILE:代码文件的结束符 IF_SET (FlagSeq _EQ_ YES ) OUTPUT J % ;ELSE OUTPUT J % ;END_IF ; FEED:KEEP MCH_FEED ; 如果F值没有改变，则此行程序不输出F SPIN:KEEP SPIN_SPEED ; COOLANT:KEEP MCH_COOL ; DWELL:KEEP MCH_DWELL ; CUTTER COMPENSATION:KEEPCUTCOM_ON ; CUTTER COMPENSATION: COFF:KEEPCUTCOM_OFF ; TOOL CHANGE: FIRST:第一次换刀，实际上就是程序头 TOOL CHANGE: 加工过程中的换刀 TOOL CHANGE: LAST: 最后一次换刀SET_ONSPIN_SPEED SPIN_DIR ;*-save first tool numberFirstTool = CURR_TOOL ;LastTool= CURR_TOOL ; *-tool cutter compensation register numberCutterComp = CURR_TOOL +DiaComp ; *-assuming 1st tool is in the spindle, there is no need* for tool change)OUTPUT $ T CURR_TOOL ;*-more then one tool in this run of the Post ProcessorIF_SET (NEXT_TOOL _NE_ CURR_TOOL) OUTPUT $ T NEXT_TOOL ;END_IF ;*-standard tool change commands. (assuming 1st tool is inOUTPUT $ G90 G80 G00 G17 G40 M23 ;OUTPUT $ G43 H CURR_TOOL Z Zhome S SPIN_SPEED SPIN_DIR ; 如果是一把刀出一个程序实际上只需要修改TOOL CHANGE: FIRST就可以了，比如改成这样： TOOL CHANGE: FIRST: SET_ONSPIN_SPEED SPIN_DIR ; *-save first tool number FirstTool = CURR_TOOL ; LastTool= CURR_TOOL ; *-tool cutter compensation register number CutterComp = CURR_TOOL +DiaComp ; OUTPUT $ G17G40G49G80 ; OUTPUT $ G90G54G00X0Y0 ; OUTPUT $ G43H01Z Zhome ; LINEAR MOTION: FAST:G00程序的输出格式 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 (Z_CURPOS) 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:G01的输出格式 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 ;I值为相对于圆心相对于起点的X方向距离，有的机床不是这样的啊！如果弄错了，那么（很想在这里加入几个哭脸，可是不知道怎么弄，郁闷ing） 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 ;这行应该删掉 IF_SET (DXcenter _NE_ 0.0) OUTPUT I DXcenter ; END_IF ; IF_SET (DYcenter _NE_ 0.0) OUTPUT J DYcenter ; END_IF ; 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 ; 我是这样指定输出R的，不知道各位还有什么好办法： radius=sqrt(DXcenter*DXcenter+DYcenter*DYcenter) ; OUTPUT R radius ; 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 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_ONLIN_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 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_ONLIN_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_ONLIN_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_MA