iCAx开思网

标题: 有誰有这个后处理的其他四个文件给我一份 [打印本页]

作者: 小李CAM 时间: 2008-8-12 16:57
标题: 有誰有这个后处理的其他四个文件给我一份
*  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图片
   PRIN

作者: 小李CAM 时间: 2008-8-13 13:36
不能沉阿有的同志请帮帮忙请给CMD文件另外两个文件

作者: wanghaojon 时间: 2008-8-13 16:18
路过帮你顶一下

作者: tang0513 时间: 2008-9-22 14:02
你联系我吧！可以帮你找找

！！QQ:794238221

[ 本帖最后由 tang0513 于 2008-9-22 14:04 编辑 ]

作者: zhoukuan 时间: 2008-9-22 15:24
帮顶………

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