X3后处理

程序样本
%
O0101(TEST)
(DATE-07-01-09/TIME-19:39)
G21
(MCX-FILE-C:\USERS\E\DESKTOP\TEST\0.MCX)
(NC-FILE-C:\MCAMX\MILL\NC\TEST.NC)
(MATERIAL-ALUMINUM MM - 2024)
(STOCK=X100.Y100.Z20.)
(LOW-LEFT-CORNER=X-100.Y-100.Z-20.)
(UP-RIGHT-CORNER=X0.Y0.Z0.)
(T1-H127-END MILL BULL-D8.R1.-TL28.FL20.-HD63.HL60.)
(T2-H219-TAPER MILL-D8.R.5A10.-TL30.FL15.-HD28.HL70.)
( --------------------------------------------- )
( ------------------- OVERALL MAX=X8.Y12.Z123.456 )
( ------------------- OVERALL MIN=X-108.Y-53.5Z-12.345 )
G90 G10 L13 P30 R0.00
M01
N100 G90 G10 L12 P30 R0.00
G91 G0 G30 Z0
G00 G17 G40 G49 G80 G90
T1
M06
( T1 - H127 - 8. BULL ENDMILL 1. RAD   - D8. R1. )
(MAX - Z50.)
(MIN - Z-2.5)
(CUT STOCK: XY=0. Z=0.)
G00 G90 G54 X-50. Y-50. S4900 M03
G43 H127 Z50. T2
Z1.
G01 Z0. F1000.
M00(WARNING-CUTTER COMP APPLIED ON ARC MOVE)
G03 G41 D30 Y-53.5 I0. J-1.75
Z-1. I0. J3.5
Z-2. I0. J3.5
Y-46.5 Z-2.5 I0. J3.5
I0. J-3.5
G40 Y-50. I0. J-1.75
G00 Z50.
M05
S0
G91 G0 G30 Z0
G40 G49 G80
M01
N110 G90 G10 L12 P30 R0.00
G91 G0 G30 Z0
G40 G49 G80
T2
M06
( T2 - H219 - 10. FLAT ENDMILL   - D8. R.5 )
(MAX - Z123.456)
(MIN - Z-12.345)
(CUT STOCK: XY=-.123 Z=.321)
G00 G90 G54 X-108. Y11.877 S4900 M03
G43 H219 Z123.456 M08 T1
Z5.
G01 Z-12.024 F1000.
G03 X-100. Y3.877 I8. J0.
G01 X0.
G03 X8. Y11.877 I0. J8.
G00 Z123.456
(CUT STOCK: XY=0. Z=0.)
X-108. Y12.
Z5.
G01 Z-12.345
M00(WARNING-CUTTER COMP APPLIED ON ARC MOVE)
G03 G41 D30 X-100. Y4. I8. J0.
G01 X0.
G03 G40 X8. Y12. I0. J8.
G00 Z123.456
M05
S0
M09
G91 G0 G30 Z0
G40 G49 G80
M01
G90 G0 G53 X-650.0
G91 G0 G28 Y0
M30

刚做出来的后处理。
自动从刀库读取刀具型式，刀具斜角，刀长TL，刃长FL，刀柄头直径HD，刀柄头长度HL，限制圆弧补刀，以及XYZ全局走刀极限，等等

直接读取MM和INCHES螺丝攻还是有点困难。
定义if prmcode$ = 15145, imetric = rpar(sparameter$, 1) #Cutter im type - 0=inches, 1=mm这个语句可以取得刀具的MM或INCHES信息。
那么螺距是15139吗？怎么用？
有人能帮偶开窍一下吗？

[ 本帖最后由 雪人2000 于 2009-1-8 23:58 编辑 ]

自动限制圆弧刀补代码：
maxrad$      : 9999   #Maximum arc radius
compwarn     : 1     #Warn if cutter comp applied on arc, 0=no, 1=yes
--------
compwarnflg : 0
----------
scompwarn   "WARNING-CUTTER COMP APPLIED ON ARC MOVE"
--------
pcompwarn       #Cutter Compensation Check
      if prv_cc_pos$ <> cc_pos$ & cc_pos$ & gcode$ > 1,
        [
        if compwarnflg = 0, result = mprint(scompwarn,1)
        spaces$ = 0
        pbld, n, *sm00, "(", scompwarn, ")", e$
        spaces$ = sav_spc
        compwarnflg = 1
        ]
-------
pcirout         #Output to NC of circular interpolation
      if compwarn, pcompwarn
      pcan1, pbld, n, `sgfeed, sgplane, sgcode, sgabsinc, pccdia,
        pxout, pyout, pzout, pcout, parc, feed, strcantext, scoolant, e$
-------

自动区分MM或INCHES攻丝的代码（F输出值为螺距值）：
fmt  F  2  tapfeed
------------
imetric    : 0     #Cutter inchesmetric type - 0=inches, 1=metric
------
pparameter$ # Run parameter table
           if prmcode$ = 15145, imetric = rpar(sparameter$, 1) #Cutter inchesmetric type - 0=inches, 1=metric
           if prmcode$ = 15139, tappitch = rpar(sparameter$, 1) #tappitch
-------
ptap$            #Canned Tap Cycle
      pdrlcommonb
      tapfeed=tappitch
      if imetric=1, tapfeed=tappitch
      if imetric=0, tapfeed=25.4/tappitch
      pcan1, pbld, n, *sgdrlref, *sgdrill, pxout, pyout, pfzout, pcout,
        prdrlout, dwell$, *tapfeed, strcantext, e$
      pcom_movea
------

这段自动攻牙的代码似乎不对，结果却可行。
狂晕

你好辛苦...有毅力
不是很懂後處裡.支持你一下

谢谢支持
偶也不懂后处理，一边做一边测试，下星期要上机试用

記得每試完就記錄下來

调整了抓取螺丝攻信息的代码，结果如下：
%
O0099(TEST)
(DATE-11-01-09/TIME-00:35)
G21
(MCX-FILE-C:\MCAMX\MCX\TEST.MCX)
(NC-FILE-C:\MCAMX\MILL\NC\TEST.NC)
(MATERIAL-ALUMINUM MM - 2024)
(STOCK=X100.Y100.Z20.)
(LOW-LEFT-CORNER=X-50.Y-50.Z-20.)
(UP-RIGHT-CORNER=X50.Y50.Z0.)
(T1-H1-D10.-END MILL FLAT-COATED CARBIDE-TL75.FL50.-HD50.HL25.)
(T2-H2-INCHES.25X20.-TAP-RH-COATED HSS-TL3.FL2.-HD2.HL1.)
(T3-H3-M10.X1.5-TAP-RH-HSS-TL75.FL50.-HD50.HL25.)
( --------------------------------------------- )
( ------------------- OVERALL MAX=X55.543Y65.543Z50. )
( ------------------- OVERALL MIN=X-60.Y-55.543Z-14.976 )
G90 G10 L13 P30 R0.00
M01
N100 G90 G10 L12 P30 R0.00
G91 G0 G30 Z0
G00 G17 G40 G49 G80 G90
T1
M06
( T1 - H1 - END MILL FLAT - D10. )
(MAX - Z50.)
(MIN - Z-14.976)
(CUT STOCK: XY=.543 Z=.345)
G00 G90 G54 X-60. Y65.543 S3500 M03
G43 H1 Z50. M08 T2
G5P2
Z1.
G01 Z-7.488 F1200.
M00(WARNING-CUTTER COMP APPLIED ON ARC MOVE)
G03 G41 D30 X-50. Y55.543 I10. J0. F1000.
G01 X50.
G02 X55.543 Y50. I0. J-5.543
G01 Y-50.
G02 X50. Y-55.543 I-5.543 J0.
G01 X-50.
G02 X-55.543 Y-50. I0. J5.543
G01 Y50.
G02 X-50. Y55.543 I5.543 J0.
G03 G40 X-40. Y65.543 I0. J10.
G01 X-60.
Z-14.976 F1200.
M00(WARNING-CUTTER COMP APPLIED ON ARC MOVE)
G03 G41 D30 X-50. Y55.543 I10. J0. F1000.
G01 X50.
G02 X55.543 Y50. I0. J-5.543
G01 Y-50.
G02 X50. Y-55.543 I-5.543 J0.
G01 X-50.
G02 X-55.543 Y-50. I0. J5.543
G01 Y50.
G02 X-50. Y55.543 I5.543 J0.
G03 G40 X-40. Y65.543 I0. J10.
G00 Z50.
M05
S0
M09
G91 G0 G30 Z0
G40 G49 G80
M01
N102 G90 G10 L12 P30 R0.00
G91 G0 G30 Z0
G40 G49 G80
T2
M06
( T2 - H2 - TAP-RH - D.25 )
(MAX - Z50.)
(MIN - Z-10.)
G00 G90 G54 X0. Y0. S500 M03
G43 H2 Z50. M08 T3
G98 G84 Z-10. R1. P100 F1.27
G80
M05
S0
M09
G91 G0 G30 Z0
G40 G49 G80
M01
N104 G90 G10 L12 P30 R0.00
G91 G0 G30 Z0
G40 G49 G80
T3
M06
( T3 - H3 - TAP-RH - D10. )
(MAX - Z50.)
(MIN - Z-10.)
G00 G90 G54 X0. Y0. S600 M03
G43 H3 Z50. M08 T1
G98 G84 Z-10. R1. P100 F1.5
G80
M05
S0
M09
G91 G0 G30 Z0
G40 G49 G80
M01
G90 G0 G53 X-650.0
G91 G0 G28 Y0
M30
%