有誰有这个后处理的其他四个文件给我一份

只看该作者 · 发表于 2008-8-12 16:56:47

马上注册，结交更多同行朋友，交流，分享，学习。

您需要登录才可以下载或查看，没有帐号？注册

x

*  3 axes Post Processor for NC document
* Cimatron90 VER 10.01
* Write by B-Y-D
* Last update :15-Jun-2004

********************************************************
* define private variables:
FORMAT (SEQUENCING)  SubSeq CNTRL_NUM NURBS_DEG count first deg ;
FORMAT (TOOL)       CutterComp FirstTool LastTool PAGE NUM ;
FORMAT (COORDINATES) Xold Yold Zold DXcenter DYcenter DZcenter hu ;
FORMAT (COORDINATES) Zinit Clear Depth CNTRL_X  CNTRL_Y  CNTRL_Z  KNOT_ cleard depthd;
FORMAT (COORDINATES) Xhome Yhome Zhome h1 h3;
FORMAT (COORDINATES)  maxz minz maxx maxy minx miny surftol sidestep downstep ;
FORMAT (COORDINATES) tooldia cornerr tapera CUT_LENGTH ;
FORMAT (COORDINATES) XfirstOrigin YfirstOrigin ZfirstOrigin ;
FORMAT (USER_1)    CurrSubNum ;
FORMAT (USER_4)    LENGHT TIME OLDFEED DTIME ATIME RAD AANG TPTIME PGTIME  ;
FORMAT (coordinates) ORIGOLDI ORIGOLDJ ORIGOLDK ;
FORMAT (character) TP_NAME PROC_NAME CURR_NAME TPNAME  TTM DATU H2 JJJ NAME MOLDT FT MZ alarm1 alarm2 alarm3 ;
FORMAT (character) dname1 dname2 dname3 dname4 dname5 dname6 alarm4 alarm5 alarm6 ;
* define private flags:
FORMAT (USER_2)    FlagSub FlagSeq FlagSpin;
FORMAT (USER_2)    FirstOriginChange FlagError Flagrotmac  ;
FORMAT (COORDINATES) unit maxzo minzo sideso downso  diao rado cuto clearo partto partoffo feedo spino sd;
FORMAT (COORDINATES) minof  ;
* define private constants:
FORMAT (USER_2)    YES NO ZA ;

* change the format of existing variables:
FORMAT (USER_1)    SUB_NUMBER ;
********************************************************
INTERACTION (USER_1) "CAUSE"          cs = 1;
*INTERACTION (USER_1) "CAUSE"          MAINNUM = 1;
*INTERACTION (CHARACTER) "MOLD-NO"    NUMYN = "";
INTERACTION (COORDINATES) "X SIZE"    MX=20;
INTERACTION (CHARACTER) "EDM MODE"    SUB = "N ";
INTERACTION (COORDINATES) "Y SIZE"    MY=20;
INTERACTION (COORDINATES) "MAXPZ"    MMZ=10;
INTERACTION (COORDINATES) "Z SIZE"    MOZ=20.;
INTERACTION (USER_4) "Machine TYPE"    SM =1.;
INTERACTION (CHARACTER) "Q_S(B/P/T) "    Abs       = "T"  ;
INTERACTION (USER_1) "3R(1=yes)" JR = 1;
********************************************************
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 NURBS_MOV;
MODAL    sidestep surftol downstep PART_TOL SIDE_STEP DOWN_STEP CONT_TOL CONT_OFST ;
*MODAL    NUM PAGE ;

IDENTICAL  X_CURPOS X_ENDPT ;
IDENTICAL  Y_CURPOS Y_ENDPT ;

********************************************************
NEW_LINE_IS $ ;
  OUTPUT \J ;
********************************************************
   surftol = 0.0 ;
   sidestep  = 0.0 ;
   downstep  = 0.0 ;
   unit    = 1.0 ;
   hu=0;
   h1=0;
   h3=0;
   maxzo=-9999.;
   minzo=9999.;
BEGINNING OF TAPE:
*    dname1="空刀"；
*    dname2="空刀"；
*    dname3="空刀"；
*    dname4="空刀"；
   firsttool=99;
   alarm1="N";
   alarm2="N" ;
   alarm3="N";
   alarm4="N" ;
   maxzo=-9999.;
   minzo=9999.;
   sd=0;
   ATIME = 0 ;
   TIME = 0 ;
   DTIME = 0 ;
   TPTIME = 0 ;
   PGTIME = 0 ;
   PAGE = 1 ;
   NUM = 0 ;
***********************************************
****使用人员库****
   NAME=USER_NAME;
***加工机型判断****
   IF_SET (sm _EQ_ 1) TTM = "罗德斯" ; END_IF ;
   IF_SET (sm _EQ_ 2) TTM = "马豪机" ;    END_IF ;
   IF_SET (sm _EQ_ 3) TTM = "马扎克" ;    END_IF ;
   IF_SET (sm _EQ_ 4) TTM = "台中精机" ;  END_IF ;
   IF_SET (sm _EQ_ 5) TTM = "丽伟机" ;    END_IF ;
   IF_SET (sm _EQ_ 6) TTM = "森精机" ;    END_IF ;
*****取数方式判断*****
   h2=abs;
   DATU="";
   IF_SET (H2 _EQ_"B") DATU = "底面" ; END_IF ;
   IF_SET (H2 _EQ_"P") DATU = "PL面" ; END_IF ;
   IF_SET (H2 _EQ_"T") DATU = "顶面" ; END_IF ;
   IF_SET (H2 _EQ_"b") DATU = "底面" ; END_IF ;
   IF_SET (H2 _EQ_"p") DATU = "PL面" ; END_IF ;
   IF_SET (H2 _EQ_"t") DATU = "顶面" ; END_IF ;
****3R夹具判断*****
   JJJ="没有 ";
   IF_SET (JR _EQ_ 1) jjj= "使用" ; END_IF ;
****加工原因判断***
   MOLDT="新开模具";
   IF_SET (cs _EQ_2) MOLDT= "工程变更" ; END_IF ;
   IF_SET (cs _EQ_3) MOLDT= "设计变更" ; END_IF ;
*****************
********HTM HEAD FORMAT(form)******
   PRINT1 \J "<html>" ;
   PRINT1 \J "<H1 ALIGN=CENTER>";
   PRINT1 \J "<head>" ;
   PRINT1 \J "<title>加工程式单</title>" ;
   PRINT1 \J "</head>" ;
   PRINT1 \J "<body bgcolor="DBL_QUOTE "#fef4d9" DBL_QUOTE "onmouseover=" DBL_QUOTE;
   PRINT1 "self.status='我们的质量方针：";
   PRINT1 "立足精密制造，发展零配件产业;顾客至上，以人为本;尽责尽力，";
   PRINT1 "共探共索，一流产品，一流服务';return true" DBL_QUOTE ">";
   PRINT1 \J "<table border=" DBL_QUOTE "0" DBL_QUOTE " width=" DBL_QUOTE "750" DBL_QUOTE ;
   PRINT1 " height=" DBL_QUOTE "20" DBL_QUOTE ">" ;
   PRINT1 \J "<tr>" ;
******
******
   PRINT1 \J "<td width=" DBL_QUOTE "473" DBL_QUOTE " height=" DBL_QUOTE "1" DBL_QUOTE ;
   PRINT1 "<B><FONT SIZE=5><P ALIGN=" DBL_QUOTE "RIGHT" DBL_QUOTE ;
   PRINT1 ">CNC加工程式单</P></B></FONT></td>" ;
   PRINT1 \J "<td width=" DBL_QUOTE "237" DBL_QUOTE " height=" DBL_QUOTE "0" DBL_QUOTE ;
   PRINT1 " SIZE=1 <FONT valign=" DBL_QUOTE "bottom" DBL_QUOTE " align=" DBL_QUOTE ;
   PRINT1 "right" DBL_QUOTE "><P ALIGN=" DBL_QUOTE "RIGHT" DBL_QUOTE "><font size=" ;
   PRINT1 DBL_QUOTE "1" DBL_QUOTE ">********制表" ;
   PRINT1 "</font></P></td>";
   PRINT1 \J  "</tr>" ;
   PRINT1 \J "</table>" ;
*    PRINT1 \J "<div align=" DBL_QUOTE "left" DBL_QUOTE ">" ;
   PRINT1 \J "<table border=" DBL_QUOTE "1" DBL_QUOTE " height=" DBL_QUOTE "16" DBL_QUOTE ;
   PRINT1 " width=" DBL_QUOTE "750" DBL_QUOTE ">" ;
   PRINT1 \J "<tr>" ;
   PRINT1 \J "<td>文件路径" ;
   PRINT1 \J "<td>"part_path ;
   PRINT1 \J "<td>文件名称" ;
   PRINT1 \J "<th>"tp_name ;
   PRINT1 \J "<td>程式制作者" ;
   PRINT1 \J "<th>"name ;
   PRINT1 \J "<td>加工机型" ;
   PRINT1 \J "<th>"ttm ;
   PRINT1 \J "<tr>" ;
   PRINT1 \J "<td >加工原因  " ;
   PRINT1 \J "<TH><FONT SIZE=4 color=" DBL_QUOTE "#FF0000>" ;
   PRINT1 "<P ALIGN=" DBL_QUOTE "CENTER" DBL_QUOTE ">" moldt "</TD>" ;

*    PRINT1 \J "<td>NC档案路径" ;
*    PRINT1 \J "<td>\\ad3172" ;
   PRINT1 \J "<td>Z方向" ;
   PRINT1 \J "<th>"MMZ ;
   PRINT1 \J "<td>加工零点" ;
   PRINT1 \J "<th>X0 Y0" ;
   PRINT1 \J "<td>取数基准</font></td>" ;
   PRINT1 \J "<th>"datu"</font></td>" ;
   PRINT1 \J "<tr>" ;
*    PRINT1 \J "<td >加工原因  </font></td>" ;
*    PRINT1 \J "<TD  ><B><FONT SIZE=4 color=" DBL_QUOTE "#FF0000>" ;
*    PRINT1 "<P ALIGN=" DBL_QUOTE "CENTER" DBL_QUOTE ">" moldt "</TD>" ;
   PRINT1 \J "</table>" ;
   PRINT1 \J "</div>" ;
   PRINT1 \J "<table border=" DBL_QUOTE "1" DBL_QUOTE " width=" DBL_QUOTE "750" DBL_QUOTE ;
   PRINT1 " height=" DBL_QUOTE "348" DBL_QUOTE ">" ;
   PRINT1 \J "<tr>" ;
   PRINT1 \J "<td width=" DBL_QUOTE "355" DBL_QUOTE " height=" DBL_QUOTE "348" DBL_QUOTE ;
   PRINT1 " rowspan=" DBL_QUOTE "11" DBL_QUOTE "><img border=" DBL_QUOTE "1" DBL_QUOTE ;
***JPG图片
   PRINT1 " src=" DBL_QUOTE PART_NAME ".jpg" DBL_QUOTE " width=" DBL_QUOTE "735" DBL_QUOTE ;
   PRINT1 " height=" DBL_QUOTE "380" DBL_QUOTE "></td>" ;
**
*    PRINT1 \J "</table>" ;
*    PRINT1 \J "<div align=" DBL_QUOTE "left" DBL_QUOTE ">" ;
   PRINT1 \J "<table border=" DBL_QUOTE "1" DBL_QUOTE " height=" DBL_QUOTE "16" DBL_QUOTE ;
   PRINT1 " width=" DBL_QUOTE "750" DBL_QUOTE ">" ;
   IF_SET (SUB _NE_ "N")
   PRINT1 \J "<tr>" ;
   PRINT1 \J "<td>";
   PRINT1 "放电间隙类型:前模(A)后模(B)行位(S)斜顶(X)镶件(C) " ;
   PRINT1 \J "<TD ><B>" sub"</TD>" ;
   PRINT1 \J "<td>放电座标（如图示）";
   PRINT1 \J "<tr>" ;
   END_IF;
   PRINT1 \J  "<td>" "来料尺寸：    长："MX" 宽："MY"  高："MOZ ;
   IF_SET (SUB _NE_ "N")
   PRINT1 \J "<td>3R夹具  </font></td>" ;
   PRINT1 \J "<TD WIDTH=" DBL_QUOTE "11%" DBL_QUOTE " VALIGN=" DBL_QUOTE "middle" DBL_QUOTE ">" ;
   PRINT1 \J "<B><FONT SIZE=3><P ALIGN=" DBL_QUOTE "CENTER" DBL_QUOTE ">" JJJ "</TD>" ;
   PRINT1 \J "</tr>" ;
*    PRINT1 \J "<div align=" DBL_QUOTE "left" DBL_QUOTE ">" ;
*    PRINT1 \J "<table border=" DBL_QUOTE "1" DBL_QUOTE " height=" DBL_QUOTE "16" DBL_QUOTE ;
*    PRINT1 " width=" DBL_QUOTE "750" DBL_QUOTE ">" ;
   PRINT1 \J "<tr>" ;
   PRINT1 \J "<table border=" DBL_QUOTE "1" DBL_QUOTE " height=" DBL_QUOTE "16" DBL_QUOTE ;
   PRINT1 " width=" DBL_QUOTE "750" DBL_QUOTE ">" ;
   PRINT1 \J "<td>工件材质∶铜</font></td>" ;
   PRINT1  \J "<TD>加工类型∶ □电极</font></td>" ;
   PRINT1 \J "<table border=.5PT width=" DBL_QUOTE "750" DBL_QUOTE " height=" DBL_QUOTE "58" ;
   PRINT1 DBL_QUOTE ">" ;
   END_IF;
   IF_SET (SUB _EQ_ "N")
*    PRINT1 \J "<div align=" DBL_QUOTE "left" DBL_QUOTE ">" ;
*    PRINT1 \J "<table border=" DBL_QUOTE "1" DBL_QUOTE " height=" DBL_QUOTE "16" DBL_QUOTE ;
*    PRINT1 " width=" DBL_QUOTE "750" DBL_QUOTE ">" ;
   PRINT1 \J "<tr>" ;
   PRINT1 \J "<td>工件材质∶钢</font></td>" ;
   PRINT1 \J "<TD><font size=" DBL_QUOTE "2" DBL_QUOTE ">热处理 □前  □后  </font></td>" ;
   PRINT1 \J "<table border=" DBL_QUOTE "1" DBL_QUOTE " height=" DBL_QUOTE "16" DBL_QUOTE ;
   PRINT1 " width=" DBL_QUOTE "750" DBL_QUOTE ">" ;
   PRINT1  \J "<TD>加工类型∶□前模□后模□行位□斜顶□其它</font></td>" ;
   PRINT1 \J "<table border=.5PT width=" DBL_QUOTE "750" DBL_QUOTE " height=" DBL_QUOTE "58" ;
   PRINT1 DBL_QUOTE ">" ;
   END_IF;
   PRINT1 \J "<tr>" ;
*****BIAO GE 1*******
   maxz          = -9999.0 ;
   minz          = 9999.0 ;
*****BIAO GE 1*****
   YES             = 1 ;
   NO             = 0 ;
*-----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 ;

*--For the first origin change
ORIGOLDI=0 ; ORIGOLDJ=0 ; ORIGOLDK=1 ;
flagrotmac = no ;
TPNAME =TP_NAME ;
FEED:
   KEEP MCH_FEED ;
   IF_SET (MCH_FEED)
   OLDFEED = MCH_FEED ;
*       OUTPUT "(F=" MCH_FEED ")";
   END_IF ;

BEGINNING OF PROC:
   SD=0;
   TIME = 0 ;
   LENGHT = 0 ;
   maxz = -9999.0 ;
   minz =  9999.0 ;

   KEEP PROC_NAME ;
   SET_ON MCH_COOL ;

BEGINNING OF TLPATH:
*****BIAO GE****
   PRINT1 \J "<td colspan=" DBL_QUOTE "9" DBL_QUOTE ;
   PRINT1 \J "><FONT  color=" DBL_QUOTE "#FF0000" DBL_QUOTE "SIZE=" DBL_QUOTE "5" DBL_QUOTE;
   PRINT1  ">请操作员仔细核对刀具名称与刀径,半径是否一致,谢谢！</td>";
   PRINT1 \J "<tr>";
   PRINT1 \J "<TD width=" DBL_QUOTE "45" DBL_QUOTE ">刀号" ;
   PRINT1 \J "<TD>刀具名称" ;
   PRINT1 \J "<TD>刀径" ;
   PRINT1 \J "<TD>端部半径" ;
   PRINT1 \J "<TD>刀长" ;
   PRINT1 \J "<TD>刃长" ;
   PRINT1 \J "<TD>主轴转速" ;
   PRINT1 \J "<TD>进给率" ;
   PRINT1 \J "<TD>公差" ;
   PRINT1 \J "<tr>" ;
   TPTIME = 0 ;
   SET_ON  LIN_MOV CIRC_MOV ;
   minof = 999. ;
END OF TOOL PATH:
END OF TAPE:
*********************************************************************************************
*-----user define batch file------
   PRINT0 \J "@ECHO OFF" ;
   PRINT0 \J "MD C:\CIM\" PART_NAME ;
   PRINT0 \J "COPY " PART_NAME "." TPNAME ".byd.P01  C:\CIM\"PART_NAME "\" TPNAME  ".HTM> NUL" ;
   PRINT0 \J "COPY " PART_NAME ".JPG  C:\CIM\"PART_NAME "\*.JPG > NUL" ;
   PRINT0 \J "DEL " PART_NAME "." TPNAME ".*" ;
***以下为报错输出****
   IF_SET (SUB _NE_ "N")
      IF_SET (minzo  _LT_ -8.01)
      print0 \J  "echo on";
      print0  \J "net send "  user_name ;
      print0 \J  " 系统提示：电极加工的最深深度已过Z-8MM.现在的Z值为：Z-"MINZO;
      print0 \j "del  C:\CIM\"PART_NAME "\" TPNAME  ".HTM";
      print0 \J  ;
      END_IF ;
   END_IF;
********HTML END*******
***页末***
*    PRINT1 \J "<td >开始Z值</font></td>" ;
*    PRINT1 \J "<TD ><B><FONT SIZE=4 color=" DBL_QUOTE "#FF0000" ;
*    PRINT1 "><P ALIGN=" DBL_QUOTE "CENTER" DBL_QUOTE ">" maxzo "</TD>" ;
*    PRINT1 \J "<td>最深Z值</font></td>" ;
*    PRINT1 \J "<TD ><B><FONT SIZE=4 color=" DBL_QUOTE "#FF0000" ;
*    PRINT1 "><P ALIGN=" DBL_QUOTE "CENTER" DBL_QUOTE ">"minzo"</TD>" ;

   PRINT1 \J "<div align=" DBL_QUOTE "left" DBL_QUOTE ">" ;
   PRINT1 \J "<table border=" DBL_QUOTE "1" DBL_QUOTE " height=" DBL_QUOTE "16" DBL_QUOTE ;
   PRINT1 " width=" DBL_QUOTE "750" DBL_QUOTE ">" ;
   PRINT1 \J "<tr>" ;
   PRINT1 \J "<td >备注：       </font></td>" ;
   PRINT1 \J "<td height=" DBL_QUOTE "28" DBL_QUOTE " width=" DBL_QUOTE "70" DBL_QUOTE ;
   PRINT1 "><font size=" DBL_QUOTE "2" DBL_QUOTE ">制作时间</font></td>" ;
   PRINT1 \J "<td >";
   PRINT1    DATE_SYY "年" DATE_SMM "月" DATE_SDD "日" TIME_SHH "时" TIME_SMM "分</TD>" ;
   PRINT1 \J "</tr>" ;
   PRINT1 \J "</table>" ;
   PRINT1 \J "<table border=.5PT width=" DBL_QUOTE "750" DBL_QUOTE " height=" DBL_QUOTE "1" ;
   PRINT1 DBL_QUOTE ">" ;
   PRINT1 \J "<tr>" ;
   PRINT1 \J "<td width=" DBL_QUOTE "120" DBL_QUOTE " height=" DBL_QUOTE "3" DBL_QUOTE ;
   PRINT1 "><font size=3" DBL_QUOTE "1" DBL_QUOTE ">本页加工时间</font></td>" ;
   PRINT1 \J "<td >" PGTIME" MIN" "</font></td>" ;
   PRINT1 \J "<td >现场人员签名</font></td>" ;
   PRINT1 \J "<td ></font></td>" ;
   PRINT1 \J "</tr>" ;
   PRINT1 \J "</table>" ;
   PRINT1 \J "</body>" ;
   PRINT1 \J "</html>" ;
*************************
END OF PROC:

只看该作者 · 发表于 2011-11-26 22:20:59

源码多有了。我晕还找什么

来自手机 · 发表于 2015-11-19 18:07:35

谢谢谢谢谢

只看该作者 · 发表于 2017-2-7 18:28:01

GTIME" MIN" "</fon

[求助] 有誰有这个后处理的其他四个文件给我一份

马上注册，结交更多同行朋友，交流，分享，学习。