论坛首页 › CimatronE 后处理及程序单 › 那位高人朋友知道GPP2如何出子程序

ww7525 发表于 2014-8-5 21:41:23

那位高人朋友知道GPP2如何出子程序

因自己最近加工的程序代码太过多，不方便读程序想用子程序麻烦懂改GPP2 文件可输出子程序的高人指导谢谢了:L

ww7525 发表于 2014-8-5 21:49:06

帮助里的关于子程序的块我都有，GPP2的PDF帮助文件24 页里的提到的

zbhouin 发表于 2014-8-5 23:19:24

带子程序的基本上都是2D的刀路，那就无所谓GPP或GPP2了

zbhouin 发表于 2014-8-5 23:39:16

本帖最后由 zbhouin 于 2014-8-5 23:45 编辑


*-----------------------------------------------------------------------------------------------
INTERACTION (USER_1)   "Main Program Number"      PNum       = 100;
INTERACTION (CHARACTER)"Main Program Comment"   MainProgComment = "No Text";
INTERACTION (BOOLEAN_)"Use Sequencing?"      SeqFlag   = FALSE_;// see DF2 "Miscellaneous"
INTERACTION (BOOLEAN_)"Output Subroutines?"      SubFlag   = FALSE_;
INTERACTION (BOOLEAN_)"Trace TP Blocks in G-Code?"FlagDebugUser= FALSE_;
FORMAT   (CHARACTER)TEMP1 ;
FORMAT   (SEQUENCING) CurrSubNum ;
MODAL X_CURPOS Y_CURPOS Z_CURPOS X_CENTER Y_CENTER MOTION_CODE CUTCOM_ON CUTCOM_OFF MCH_FEED CIRC_MOV;
MODAL CYC_RETR CYC_PECK CYC_DWELL CYC_XSHFT CYC_YSHFT CYC_RETR Z_CYC_DEPTH Z_CYC_CLEAR;
SET_TABS 8 25 35 ;
*-----------------------------------------------------------------------------------------------
NEW_LINE_IS $;
IF(SeqFlag == TRUE_)      
    OUTPUT \J "N" SEQ_NUM " ";
ELSE
    OUTPUT \J;
END_IF;

*-----------------------------------------------------------------------------------------------
STARTUP:

IF (SubFlag == TRUE_) SUBS_CTRL_BYPLANE = DEF_XYONLY ; END_IF ; // override DF2 subroutine output setting

// code for debugging Cimatron blocks - for user
IF (FlagDebugUser == TRUE_)
TRACE_TPBLOCK = TRUE_;
OUTPUT \J "*** Debug mode: DO NOT send to machine ***"; // prevent sending G-code with debug data
END_IF;

*-----------------------------------------------------------------------------------------------
BEGINNING OF TAPE:
OUTPUT_REDIRECT "t";
OUTPUT \J "%" ;
OUTPUT \J "O" PNum ;
// check for any meaningfull program comment to be output - "No Text" will NOT be output!
IF (STR_UPPER(MainProgComment) != "NO TEXT" && STR_CLEAN(MainProgComment) != "")
OUTPUT " (" MainProgComment ")";
END_IF;

OUTPUT $ "(DATE :" DATE_SDD "." DATE_SMM "." DATE_SYY ")" ;
OUTPUT $ "(TIME :" TIME_SHH ":" TIME_SMM ":" TIME_SSS ")" ;
OUTPUT \J "(----------TOOL LIST----------)" ;
OUTPUT_BACK ;
OUTPUT \J "(------------------------------)" ;

OUTPUT $ "G90 G80 G17 G40 M23";

zbhouin 发表于 2014-8-5 23:40:22

本帖最后由 zbhouin 于 2014-8-5 23:46 编辑


END OF PROC:

*-----------------------------------------------------------------------------------------------
END OF TAPE:
OUTPUT $ "M05";
OUTPUT $ "M09";
OUTPUT $ "G91 G28 Z0";
OUTPUT $ "G91 G28 X0 Y150.";
OUTPUT $ "M30";

*-----------------------------------------------------------------------------------------------
END OF FILE:
OUTPUT \J "%";


*------------------------------------------------------------------------------------------------
INSERT WITH:
OUTPUT $ INS_STR ;
INSERT WITHOUT:
OUTPUT\J INS_STR ;
MESSAGE:
OUTPUT $ "( " MESS_STR " )";

*-----------------------------------------------------------------------------------------------

ORIGIN CHANGE :
// set HOME number to G54, G55,... if not specified by the user
IF (CURR_ORIG < 53) CURR_ORIG = CURR_ORIG + 53 ; END_IF ;
OUTPUT $ "G" CURR_ORIG ;

zbhouin 发表于 2014-8-5 23:42:26

BEGINNING OF SUB:

        CurrSubNum = PNum + SUB_NUMBER;       
        OUTPUT \J " " ;
        OUTPUT \J "O" CurrSubNum ;
        OUTPUT " (SUB of O" PNum ")";

        IF (STR_UPPER(PROC_COMMENT) != "NO TEXT" && STR_CLEAN(PROC_COMMENT) != "")
                OUTPUT $ "(" PROC_NAME " - " PROC_COMMENT ")";
        ELSE
                OUTPUT $ "(" PROC_NAME ")";       
        END_IF;
       
        SEQ_LEVEL_NEXT ;       


SUBROUTINE CALL:

        OUTPUT $ "M98 P" CurrSubNum ;       


END OF SUB:

        OUTPUT $ "M99";       

zbhouin 发表于 2014-8-5 23:47:15

内容不全哈，做个参考吧

zbhouin 发表于 2014-8-5 23:49:00

http://bbs.cncqq.com/thread-908-1-1.html

这里的模板文件就有你要的源码

ww7525 发表于 2014-8-6 21:57:33

谢谢zbhouin了

查看完整版本: 那位高人朋友知道GPP2如何出子程序