iCAx开思网

标题: 【推荐】【注意】Surfcam用之後處理 (Pro-NC GPost亦可) [打印本页]

作者: sinderal 时间: 2003-10-28 12:08
标题: 【推荐】【注意】Surfcam用之後處理 (Pro-NC GPost亦可)
因為控制器與機器類型眾多... 需要特定後處理者請帖出下列內容:

1. Mpost/LPost/EPost 或 SPost(既GPost)
2. 銑床, 車床, ... 控制器廠牌, 型號
3. 程式頭, 第一次換刀, 換刀, 程式尾
4. 其他特殊要求...

作者: sinderal 时间: 2003-11-3 20:12
Surfcam與Pro-NC用...用之前Pro-NC版主提供的Post加以修改的
加了
G5 P10000, G5P0,
G91G28Z0於換刀之前

如下:

%
O1
N10 (Date:11/03/03 Time:17:20:44)
N20 (===== HAAS HighSeed CNC By Schick ===== )
N30 (===== Modified By Sinderal Chen 08-12-2003 ====)
N40 G40 G90 G80 G17
N50 G5 P0
N60 G91 G28 Z0
N70 T1 M6
N80 G5 P10000
N90 S1200 M3
N100 G0 G43 G54 Z120. H1 M7
.....
....
N8770 G0 Z120.
N8780 G5 P0
N8790 G91 G28 Z0
N8800 T6 M6
N8810 G5 P10000
N8820 S3978 M3
N8830 G0 G43 G54 Z120. H6 M7
....
....
N5410 G0 Z120.
N5420 G5 P0
N5430 M5
N5440 M9
N5450 G0 G28 Z0.
N5460 G28 X0. Y0.
N5470 M30
%

Surfcam使用者:  (適用 Fanuc控制器)
解壓縮到
Surfcam/Postlib/Spost/
用Postmenu Wizard加入後處理清單中..

作者: vip 时间: 2004-1-15 20:06
N30 (===== Modified By Sinderal Chen 08-12-2003 ====)
(----老大,这条是否可有可无啊?

作者: sinderal 时间: 2004-1-16 00:45

vip wrote:
N30 (===== Modified By Sinderal Chen 08-12-2003 ====)
(----老大,这条是否可有可无啊?

是啊...那只是表示後處理機器配置文件偶改過

作者: w0297711 时间: 2004-4-19 15:13
good

作者: sinderal 时间: 2004-6-25 13:33
AB8400 全量雕刻機

作者: sinderal 时间: 2004-6-25 13:35
Fagor8050 全量雕刻機

作者: sinderal 时间: 2004-6-25 13:36
Okuma OSP5020

作者: sinderal 时间: 2004-6-25 13:39

作者: sinderal 时间: 2004-6-25 13:46

作者: sinderal 时间: 2004-6-25 13:48

[ 本帖最后由 sinderal 于 2006-3-10 02:28 编辑 ]

作者: sinderal 时间: 2004-6-25 13:50

作者: sinderal 时间: 2004-6-25 13:53

[ 本帖最后由 sinderal 于 2006-3-10 02:27 编辑 ]

作者: sinderal 时间: 2004-6-25 13:57

[ 本帖最后由 sinderal 于 2006-3-10 02:28 编辑 ]

作者: sinderal 时间: 2004-6-25 14:03

[ 本帖最后由 sinderal 于 2007-12-24 23:42 编辑 ]

作者: sinderal 时间: 2004-6-25 14:19
HEIDENHEIN CONVERSATIONAL FORMAT FIL

PRINT/OFF,IN
$$ HEIDENHEIN CONVERSATIONAL FORMAT OUTPUT By Sinderal Chen --- Dyanamic Technology System Inc.
$$ Rev. 2003. 07. 28
$$ WILL PROCESS THE FOLLOWING POST COMMANDS FOR OUTPUT
$$ PARTNO,MACHIN,FEDRAT,LOADTL,SPINDL,GOTO,CUTTER,MULTAX,FINI
$$ ALL OTHERS ARE PROCESSED WITHOUT OUTPUT
$$
REDEF/ON                            $$ INIT FLAGS
F=6;G=7;I=9;J=10;R=18;X=24;Y=25;Z=26 $$ LETTER ADDRESS
FF=F+291;GG=G+291;II=I+291;JJ=J+291 $$ PRES INDEX
RR=R+291;XX=X+291;YY=Y+291;ZZ=Z+291
SRPM=200;TCHG=1;TLEN=1;TNUM=1;TDIA=1;TRAD=.5 $$ TOOL DATA
EPS=0.005                            $$ TOLER FOR ZERO TEST
FIPM=10                               $$ LAST FEEDRATE
TEQL=TEXT/'=';TCMA=TEXT/','          $$ LIT TEXTS
TPNT=TEXT/'.'
TFED=TEXT/' R0 F M'
MLTX=3
TP=TEXT/'BP71 GULF ETC'
TPGM=TEXT/''
FSTFED=1
DV99=9.9999
$$

作者: sinderal 时间: 2004-6-25 14:20
CIMFIL/ON,MACHIN                      $$ OUTPUT PARTNO
  DMY=POSTF(2,1,1867,1)             $$ SIMULATE ON
  DMY=POSTF(13)                      $$ TURN POST ON
  FROM/0,0,0
  SPINDL/200
  FEDRAT/FIPM
  SEQNO/OFF
  DISPLY/ON                         $$ ALLOW PPRINT TO PUNCH
  DMY=POSTF(2,1,1867,0)             $$ OUTPUT STARTUP DATA
  TP=TEXT/OMIT,TP,2                   $$ FIND PGM UPTO 3-NUMBERS
  I3=INDXF(TP,(TEXT/' '))
  IF(I3 .LT. 1)I3=CANF(TP,1)
  DO/LM10,I1=1,I3
    T1=TEXT/RANGE,TP,I1,I1
    I2=ICHARF((TEXT/RANGE,TP,I1,I1))
    IF(I2.GE.48 .AND. I2.LE.57) THEN
      IF(CANF(TPGM,1) .LE. 3)THEN
        TPGM=TEXT/TPGM,T1
      ENDIF
    ENDIF
  LM10)CONTIN
  IF(CANF(TPGM,1) .LT. 1)TPGM=TEXT/'71'
  T1=TEXT/' % ',TP
  T1=TEXT/RANGE,T1,1,64
  INSERT/T1,'$'
  T1=TEXT/' 0 BEGIN PGM ',TPGM,' MM'
  INSERT/T1,'$'
  $$T1=TEXT/' 1 TOOL CALL 0 Z S 1200,000'
  $$INSERT/T1,'$'
  SEQNO/1,INCR,1
  DMY=POSTF(2,1,1867,1)             $$ SIMULATE ON
CIMFIL/OFF
$$

作者: sinderal 时间: 2004-6-25 14:22

作者: sinderal 时间: 2004-6-25 14:23

作者: sinderal 时间: 2004-6-25 14:24
CIMFIL/ON,LOADTL $$ PROCESS LOADTL
  TNUM=POSTF(7,4)
  IF(POSTF(7,5) .EQ. ICODEF(LENGTH))TLEN=POSTF(7,6)
  TCHG=1
  LOADTL/TNUM
CIMFIL/OFF

作者: sinderal 时间: 2004-6-25 14:24
CIMFIL/ON,SPINDL $$ PROCESS SPINDL
  IF(POSTF(7,4) .EQ. 1) THEN
    SRPM=POSTF(7,4) $$ SAVE RPM
    SPINDL/SRPM
  ENDIF
CIMFIL/OFF

作者: sinderal 时间: 2004-6-25 14:25
CIMFIL/ON,5,5                         $$ GOTO RECORD
  DMY=POSTF(20)                      $$ SAVE CL REC
  IF(TCHG .EQ. 1) THEN                $$ DUMP TOOL CHANGE BLOCK
    TCHG=0
    T1=TEXT/' TOOL DEF ',CONVI,TNUM,2  $$ TOOL DEF
    IF(ABSF(TLEN) .GT. DV99) THEN
      T2=TEXT/' L',CONVF,TLEN,8,4,1,0,1
    ELSE
      T2=TEXT/' L',CONVF,TLEN,7,4,1,0,1
    ENDIF
    T2=TEXT/MODIFY,T2,TEQL,TCMA,0
    IF(ABSF(TRAD) .GT. DV99) THEN
      T3=TEXT/' R',CONVF,TRAD,8,4,1,0,1
    ELSE
      T3=TEXT/' R',CONVF,TRAD,7,4,1,0,1
    ENDIF
    T3=TEXT/MODIFY,T3,TEQL,TCMA,0
    T1=TEXT/T1,T2,T3
    T1=TEXT/MODIFY,T1,TPNT,TCMA,0
    T1=TEXT/MODIFY,T1,(TEXT/'  '),(TEXT/' '),0
    T1=TEXT/MODIFY,T1,(TEXT/'  '),(TEXT/' '),0
    T1=TEXT/MODIFY,T1,(TEXT/'  '),(TEXT/' '),0
    INSERT/T1,'$'
    T1=TEXT/' TOOL CALL ',CONVI,TNUM,2 $$ TOOL CALL
    T2=TEXT/' Z'
    T3=TEXT/' S',CONVF,SRPM,10,3,0,0,3
    T3=TEXT/MODIFY,T3,TEQL,TCMA,0
    T1=TEXT/T1,T2,T3
    T1=TEXT/MODIFY,T1,TPNT,TCMA,0
    T1=TEXT/MODIFY,T1,(TEXT/'  '),(TEXT/' '),0
    T1=TEXT/MODIFY,T1,(TEXT/'  '),(TEXT/' '),0
    T1=TEXT/MODIFY,T1,(TEXT/'  '),(TEXT/' '),0
    INSERT/T1,'$'
    T1=TEXT/' R0'                   $$ MAKE FEED TEXT
    T2=TEXT/' F',CONVF,FIPM,10,0,0,0,3
    T2=TEXT/MODIFY,T2,TEQL,TCMA,0
    T3=TEXT/' M03'
    T1=TEXT/T1,T2,T3
    T1=TEXT/MODIFY,T1,(TEXT/'  '),(TEXT/' '),0
    T1=TEXT/MODIFY,T1,(TEXT/'  '),(TEXT/' '),0
    T1=TEXT/MODIFY,T1,(TEXT/'  '),(TEXT/' '),0
    TFED=TEXT/T1
  ENDIF
  DMY=POSTF(21)                      $$ LOAD SAVED GOTO REC
  ICF=POSTF(1,1,455)                $$ GET POST CIRCLE FLAG
                                       $$ CIRCULAR MOVE
  IF(ICF .EQ. 1)THEN                $$ PROCESS CIRCLE
    XP=POSTF(1,3,XX)                $$ GET PREV
    YP=POSTF(1,3,YY)
    DMY=POSTF(2,1,1867,1)             $$ SIMULATE ON
    DMY=POSTF(13)
    XC=POSTF(1,3,II)                $$ GET CENTER
    YC=POSTF(1,3,JJ)
    X2=POSTF(1,3,XX)                $$ GET PRES
    Y2=POSTF(1,3,YY)
    DMY=POSTF(2,1,1867,0)             $$ SIMULATE OFF
    T1=TEXT/' CEN ',XC,YC,Z2
    INSERT/T1,'$'
    ICG=POSTF(1,3,GG)                $$ CURRENT G VALUE
    T1=TEXT/' CCLW '
    IF(ICG .EQ. 2) THEN             $$ CLW
      T1=TEXT/' CLW '
    ENDIF
    T1=TEXT/T1,X2,Y2,Z2
    INSERT/T1,'$'
    TFED=TEXT/' R0 F M'
    DMY=POSTF(2,1,455,0)             $$ KILL POST CIRCLE FLAG
    JUMPTO/L590
  ENDIF
                                       $$ LINEAR MOVE
  NW=POSTF(5)                         $$ GET NUMBER OF WORDS IN CLREC
  DO/L510,I2=6,NW,MLTX
    DMY=POSTF(21)                   $$ LOAD CLREC
    X1=POSTF(7,I2)
    Y1=POSTF(7,(I2+1))
    Z1=POSTF(7,(I2+2))
    XP=POSTF(1,3,XX)                $$ GET PREV
    YP=POSTF(1,3,YY)
    ZP=POSTF(1,3,ZZ)
    DMY=POSTF(2,1,1867,1)             $$ SIMULATE ON
    IF(MLTX .EQ. 3)GOTO/X1,Y1,Z1,ELSE,GOTO/X1,Y1,Z1,0,0,1
    X2=POSTF(1,3,XX)                $$ GET PRES
    Y2=POSTF(1,3,YY)
    Z2=POSTF(1,3,ZZ)
    DMY=POSTF(2,1,1867,0)             $$ SIMULATE OFF
    IF(ABSF(X2) .GT. DV99) THEN
      T2=TEXT/' L X',CONVF,X2,8,4,1,0,1
    ELSE
      T2=TEXT/' L X',CONVF,X2,7,4,1,0,1
    ENDIF
    T2=TEXT/MODIFY,T2,TEQL,TCMA,0
    IF(ABSF(Y2) .GT. DV99) THEN
      T3=TEXT/' Y',CONVF,Y2,8,4,1,0,1
    ELSE
      T3=TEXT/' Y',CONVF,Y2,7,4,1,0,1
    ENDIF
    T3=TEXT/MODIFY,T3,TEQL,TCMA,0
    IF(ABSF(Z2) .GT. DV99) THEN
      T4=TEXT/' Z',CONVF,Z2,8,4,1,0,1
    ELSE
      T4=TEXT/' Z',CONVF,Z2,7,4,1,0,1
    ENDIF
    T4=TEXT/MODIFY,T4,TEQL,TCMA,0
    T1=TEXT/T2,T3,T4,TFED
    T1=TEXT/MODIFY,T1,TPNT,TCMA,0
    INSERT/T1,'$'
    TFED=TEXT/' R0 F M'
  L510)CONTIN
  L590)CONTIN
  DMY=POSTF(2,1,1867,1)             $$ SIMULATE ON
CIMFIL/OFF

作者: sinderal 时间: 2004-6-25 14:25
CIMFIL/ON,9                         $$ MULTAX
  DMY=POSTF(13)
  MLTX=POSTF(1,1,1987)                $$ MULTAX FLAG WILL BE 3 OR 6
  IF(MLTX .EQ. 6)MULTAX/ON          $$ TURN ON MULTAX FOR FIL
CIMFIL/OFF

作者: sinderal 时间: 2004-6-25 14:26
CIMFIL/ON,14                         $$ FINI
  DMY=POSTF(20)                      $$ SAVE CLREC
  DMY=POSTF(2,1,1867,0)             $$ SIMULATE OFF
  T1=TEXT/' END PGM ',TPGM,' MM'
  INSERT/T1,'$'
  DMY=POSTF(2,1,1867,1)             $$ SIMULATE ON
  DMY=POSTF(21)                      $$ LOAD AND SEND FINI
  DMY=POSTF(13)
CIMFIL/OFF

作者: sinderal 时间: 2004-6-26 01:15

作者: sinderal 时间: 2004-6-26 01:25
上一個Post轉出的程序

%
O1
G17G40G80G90
T1M6
S1500M3
G0G54X-.018Y9.872B0.
G43Z58.H1M8
Z35.5
G1Z32.F100.
Y2.672F500.
Y-2.128
X-4.427
Y-78.519
X-4.134Y-78.449
X-2.116Y-78.139
.....
....

G3X30.775Y2.464I-1.172J0.
G0Z58.
G54X.051Y9.872B120.
Z35.5
G1Z32.F100.
Y2.672F500.
X.094Y-2.128
X.024
X-4.373
Y-78.506
X-4.133Y-78.449
X-2.11Y-78.139
X-.092Y-78.039
X1.211Y-78.067
X3.342Y-78.305
X4.423Y-78.53
Y-2.128
X.094
...
..

作者: sinderal 时间: 2004-6-26 01:38
Makino 5 Axis BC Daul Rotary Table

作者: sinderal 时间: 2004-6-26 01:41

[ 本帖最后由 sinderal 于 2006-3-10 02:30 编辑 ]

作者: sinderal 时间: 2004-6-26 15:04
使用Pro-NC的朋友..
需要輸出 Fanuc高速機指令..G5P10000, G5P0..
請下載第一個試試...如果沒有..
請提供NCL..我必須找出輸出的指令來改FIL..

作者: sinderal 时间: 2004-6-27 15:03
另外, UNCX01.Sxx 與 UNCL01.Sxx 都是所謂的備份檔案.. 在後處理的時候是沒用的

他們是UNCX01.Pxx 與 UNCL01.Pxx 先前的備份檔案

作者: sinderal 时间: 2004-6-27 15:19
以下的FIL 是可以輸出:

換刀前
G5P0
G91G28Z0.

主軸轉速:
SxxxxxxM3
G5P10000

程式結束:
G5P0
M5
M9
G0G28Z0.
G28X0.Y0.
M30

$$ ****************************************************
$$ *       L O A D T L    S e c t i o n s          *
$$ ****************************************************

CIMFIL/ON,LOADTL
  rslt=POSTF(20)             $$ Save current Record
INSERT/'G','5 ','P','0 ','$'
INSERT/'G','91 ','G','28 ','Z', '0 ','$'
  rslt=POSTF(21)             $$ Load the save Record
  rslt=POSTF(13)             $$ Process current CL
CIMFIL/OFF

$$ ------------------------------------------------------------------------------
$$ SPINDL

CIMFIL/ON,SPINDL
  rslt=POSTF(13)             $$ Process current Record
INSERT/'G','5 ','P','10000 ','$'
CIMFIL/OFF

$$ ------------------------------------------------------------------------------
$$ End Of Program

CIMFIL/ON,END                $$ Endcode
INSERT/'G','5 ','P','0 ','$'
  AUXFUN/5                   $$ M05
  AUXFUN/9                   $$ M09
PREFUN/28,NEXT          $$ G0
  POSTN/IN,G,0,Z,0          $$ G28 Z0
  POSTN/IN,G,28,X,0,Y,0       $$ G28 X0 Y0
  AUXFUN/30                   $$ M30
CIMFIL/OFF

作者: sinderal 时间: 2004-6-27 15:24
Pro-NC的朋友可以改成

$$ ------------------------------------------------------------------------------
$$ End Of Program

CIMFIL/ON,FINI $$ Endcode
INSERT/'G','5 ','P','0 ','$'
AUXFUN/5 $$ M05
AUXFUN/9 $$ M09
PREFUN/28,NEXT $$ G0
POSTN/IN,G,0,Z,0 $$ G28 Z0
POSTN/IN,G,28,X,0,Y,0 $$ G28 X0 Y0
AUXFUN/30 $$ M30
CIMFIL/OFF

作者: sinderal 时间: 2004-6-28 00:37
激光加工.或水刀不輸出Z值
在後處理要將 Z 與刀長補正H 的位址碼設成 N/A

其中的 FIL

$$ -------------------------------------------------------------------------------
$$ For Laser and Water Jet without output the Z Value
$$ Should set without the Z and Tool Length Compensation Address in PP
$$ -------------------------------------------------------------------------------

$$ 1stgto=0                      $$ Set Flag

$$ CIMFIL/ON,5                   $$ Gather the 5000 Motion Record
$$  cntz=POSTF(7,8)             $$ Hold the Value
$$  IF(1stgto.EQ.0)prvz=cntz    $$ At the beginning of program ?
$$  IF(cntz.EQ.prvz)THEN          $$ Value Equal
$$ rslt=POSTF(13)             $$ Output Hold Value
$$  ENDIF
$$  prvz=cntz
$$  1stgto=1                      $$ Reset the Flag
$$ CIMFIL/OFF

$$ -------------------------------------------------------------------------------

作者: 海帆 时间: 2004-6-28 10:31
[quote]sinderal wrote:
Surfcam與Pro-NC用...用之前Pro-NC版主提供的Post加以修改的
  加了
  G5 P10000, G5P0,
  G91G28Z0於換刀之前

  如下:

  %
  O1
  N10 (Date:11/03/03 Time:17:20:44)
  N20 (===== HAAS HighSeed CNC By Schick ===== )
  N30 (===== Modified By Sinderal Chen 08-12-2003 ====)
  N40 G40 G90 G80 G17
  N50 G5 P0
  N60 G91 G28 Z0
  N70 T1 M6
  N80 G5 P10000
  N90 S1200 M3
  N100 G0 G43 G54 Z120. H1 M7
  .....
  ....
  N8770 G0 Z120.
  N8780 G5 P0
  N8790 G91 G28 Z0
  N8800 T6 M6
  N8810 G5 P10000
  N8820 S3978 M3
  N8830 G0 G43 G54 Z120. H6 M7
  ....
  ....
  N5410 G0 Z120.
  N5420 G5 P0
  N5430 M5
  N5440 M9
  N5450 G0 G28 Z0.
  N5460 G28 X0. Y0.
  N5470 M30
  %


sinderal大哥: 怎么我用你给的后处理处理出来的是空白文件的呀?上面的后处理刀具编号后面的刀具名称能不能改成于刀具名称相对印的呀?请指教!!!谢谢!!!!!! 下面的是我后处理时的 ncl 文件.

作者: 海帆 时间: 2004-6-28 10:38
%
O1
N10 (Date:11/03/03 Time:17:20:44)
N20 (===== HAAS HighSeed CNC By Schick ===== )
N30 (===== Modified By Sinderal Chen 08-12-2003 ====)
N40 G40 G90 G80 G17
N50 G5 P0
N60 G91 G28 Z0
N70 T1 M6
N80 G5 P10000
N90 S1200 M3
N100 G0 G43 G54 Z120. H1 M7
.....
....
N8770 G0 Z120.
N8780 G5 P0
N8790 G91 G28 Z0
N8800 T6 M6
N8810 G5 P10000
N8820 S3978 M3
N8830 G0 G43 G54 Z120. H6 M7

sinderal大哥: 上面的H1 M7 中的H1 和 H6 是指什么呀?请指教!!!!谢谢!!!!!!

作者: sinderal 时间: 2004-6-28 11:15

海帆 wrote:
%
  O1
  N10 (Date:11/03/03 Time:17:20:44)
  N20 (===== HAAS HighSeed CNC By Schick ===== )
  N30 (===== Modified By Sinderal Chen 08-12-2003 ====)
  N40 G40 G90 G80 G17
  N50 G5 P0
  N60 G91 G28 Z0
  N70 T1 M6
  N80 G5 P10000
  N90 S1200 M3
  N100 G0 G43 G54 Z120. H1 M7
  .....
  ....
  N8770 G0 Z120.
  N8780 G5 P0
  N8790 G91 G28 Z0
  N8800 T6 M6
  N8810 G5 P10000
  N8820 S3978 M3
  N8830 G0 G43 G54 Z120. H6 M7
  
  sinderal大哥: 上面的H1 M7 中的H1 和 H6 是指什么呀?请指教!!!!谢谢!!!!!!

1. H1, H6 代表你該把刀的刀長補正代號...控制器會去H1與H6位址去抓取你量測出來而輸入該位址的刀長補正值
2. M7: 冷卻液噴霧應該是你在Pro-NC裡選了Coolant Mist, 如果你改選Coolant Flood就會輸出M8

作者: sinderal 时间: 2004-6-28 12:17

海帆 wrote:
[quote]sinderal wrote:
  
  
sinderal大哥: 怎么我用你给的后处理处理出来的是空白文件的呀?上面的后处理刀具编号后面的刀具名称能不能改成于刀具名称相对印的呀?请指教!!!谢谢!!!!!! 下面的是我后处理时的 ncl 文件.

之前修改以後貼錯了...我刪了重新上傳 .Sorry!.

作者: 海帆 时间: 2004-6-28 13:44
谢谢sinderal大哥!!!!!

!!!
   还想请教你一个问题: 刀具编号后面的刀具名称能不能改成于实际刀具名称相对印的呀?你给的刀具名称都是默认M6的.请指教!!!谢谢!!!!!!

!!!

!!!!

作者: sinderal 时间: 2004-6-28 13:46

海帆 wrote:
谢谢sinderal大哥!!!!!!!!
还想请教你一个问题: 刀具编号后面的刀具名称能不能改成于实际刀具名称相对印的呀?你给的刀具名称都是默认M6的.请指教!!!谢谢!!!!!! !!!!!!!

不懂...貼出一部份你轉出的 NC程序

作者: 海帆 时间: 2004-6-28 15:09

sinderal wrote:

  
不懂...貼出一部份你轉出的 NC程序

sinderal 大哥: 真不好意思!刚才的问题说错了,我的意思是指在刀号后面能不能加上刀具的名称的? sinderal 大哥真谢谢你的细心指教!!!

!!!!

作者: sinderal 时间: 2004-6-28 15:25
在FIL裡面加入下面的取代原來的:

CIMFIL/ON,PPRINT
$$ Macro to store the tool name in a variable
$$ to re-issue with the tool change
TXT=TEXT/CLW                   $$ Text of message
TEST=TEXT/'TOOL NAME'    $$ Text to test for
OKCOM=INDXF(TXT,TEST)
IF (OKCOM.NE.0) THEN
$$ This is a tool comment
MESS=TEXT/OMIT,TXT,1          $$ Omit trailing blank
COL=TEXT/':'
COLPOS=INDXF(MESS,COL)       $$ position of : in MESS
LEN=CANF(MESS,1)             $$ number of char in MESS
NMESS=TEXT/RANGE,MESS,COLPOS+1,LEN $$ Extract from : to end
ELSE
DMY=POSTF(13) $$ Process
ENDIF
CIMFIL/OFF

試試看...

作者: 海帆 时间: 2004-6-28 17:47
sinderal大哥: 好像不行噢.

%
O1
N10(Date:06/28/04 Time:17:47:35)
N20(===== HAAS HighSeed CNC By Schick ===== )
N30(===== Modified By Sinderal Chen 08-12-2003 ====)
N40G40 G90 G80 G17
N50 T5 M6
N60 S800 M3
N70 G1 G43 X-4. Y-23.2 Z50. F400. H5
N80 Z.4
N90 Z-12.6 F200.
N100 Y-20.2
N110 G2 X0. Y-16.2 I4. J0.
N120 G1 X12.
N130 G3 X20.2 Y-8. I0. J8.2
N140 G1 Y8.
N150 G3 X12. Y16.2 I-8.2 J0.

作者: sinderal 时间: 2004-6-28 18:00
怪了...
這個試試

作者: 海帆 时间: 2004-6-28 19:21
sinderal大哥: 好像还不行噢.  会不会跟刀具名称有关呀?

%
O1
N1(Date:06/28/04 Time:19:18:32)
N2(===== HAAS  HighSeed CNC By Schick  ===== )
N3(===== Modified By Sinderal Chen 08-12-2003 ====)
N4G40 G90 G80 G17
N5 T3 M6
N6 S800 M3
N7 G1 G43 X-4.948 Y-11.887 Z50. F6000. H3
N8 Z4.4
N9 Z-4.6 F200.
N10 X-5.191 Y-8.897
N11 G2 X-1.527 Y-4.586 I3.987 J.323
N12 G1 X-1.334 Y-4.571
N13 X-.947 Y-4.547

作者: sinderal 时间: 2004-6-28 19:46
我用某Pro-NC的GPost做的機器配置文件..只用文本編輯器修改FIL..
你試試

作者: 海帆 时间: 2004-6-28 21:10
sinderal大哥: 用上面的后处理处理出来的程序如下,在刀号后面还是不能显示刀具名称. 本想能显示刀具名称可以方便他们操机的. 不过用你先前的后处理机床已可以用了. sinderal大哥,再次谢谢你的细心指教!!!!!!!!!

!!!

!!!!

%
O7000
G91G28Z0
M05
G28X0Y0
M6T3
M98P8001
G90G54G00X0Y0
M01
G43Z30.0H01
M3S800
M08
G1X-4.948Y-11.887Z50.F6000
Z4.4
Z-4.6F200
X-5.19Y-8.897

作者: sinderal 时间: 2004-6-28 21:23
真是奇怪了...我LOADTL的FIL 在Surfcam裡可以轉出一些高速加工的指令..
你的NC程序竟然沒有?

你程序的結尾呢?

作者: sinderal 时间: 2004-6-28 23:20

海帆 wrote:
sinderal大哥:  用上面的后处理处理出来的程序如下,在刀号后面还是不能显示刀具名称. 本想能显示刀具名称可以方便他们操机的. 不过用你先前的后处理机床已可以用了.  sinderal大哥,再次谢谢你的细心指教!!!!!!!!!!!!!!!!
  
  %
  O7000
  G91G28Z0
  M05
  G28X0Y0
  M6T3
  M98P8001
  G90G54G00X0Y0
  M01
  G43Z30.0H01
  M3S800
  M08
  G1X-4.948Y-11.887Z50.F6000
  Z4.4
  Z-4.6F200
  X-5.19Y-8.897

你看看是不是有加了這個

作者: lgmeng 时间: 2004-6-29 22:17

作者: sinderal 时间: 2004-6-29 22:38

作者: sinderal 时间: 2004-6-29 22:43
你與海帆的

作者: sinderal 时间: 2004-6-29 22:44
獨孤劍的

作者: sinderal 时间: 2004-6-30 00:30
這樣的FIL應該可以解決...不過你舊的FIL要修改..

CIMFIL/ON,SPINDL
  XX=POSTF(13) $$ EXECUTE THE CURRENT CL RECORD
INSERT/’G5 P10000$’
CIMFIL/OFF

作者: sinderal 时间: 2004-6-30 00:51
用Pro-NC的網友:
將你Pro-NC GPost目錄下...我標紅色的檔案壓縮貼上來我看看

PTC interface kit is in $PRO_DIRECTORY/$MC/gpost
System FIL files : uncmil.f00, unctur.f00,uncpun.f00, uncwir.f00, unclas.f00
Word files : uncmill.v00, unctur.v00, uncpun.v00, uncwir.v00, unclas.v00

作者: 海帆 时间: 2004-6-30 13:43

sinderal 大哥: 我把GPOST里的所有文件都传上来了,还有你后面给我的后处理和处理后的文件. 我用的是Proe2001(2003441)版本.

作者: sinderal 时间: 2004-6-30 16:48
獨孤劍的NCL 用UNCX01.P1515與UNCX01.F1515處理出來的程序

作者: 海帆 时间: 2004-6-30 19:53
sinderal 大哥: 我用你先前的UNCX01.P1515與UNCX01.F1515處理出來的程序也是跟獨孤劍版主的一样的. 不过后来想让你在刀号后面加上刀具名称时传上来的UNCX01.P1515與UNCX01.F1515 ;和UNCX01.P1121與UNCX01.F1121处理出来的就不一样了,下面是你后来传上来的.

作者: sinderal 时间: 2004-6-30 21:00
這個你試試..是否有G5P10000, G5P0
G0G28Z0
....

作者: 海帆 时间: 2004-6-30 21:23
sinderal 大哥: 上面后处理处理出来如下,还是没刀具名称.

%
O1
N10(Date:06/30/04 Time:21:22:00)
N20(===== HAAS HighSeed CNC By Schick ===== )
N30(===== Modified By Sinderal Chen 08-12-2003 ====)
N40G40 G90 G80 G17
N50G5P0
N60G91G28Z0
N70 T3 M6
N80G5P10000
N90 S800 M3
N100G5P10000
N110 G1 G43 X-4.948 Y-11.887 Z50. F6000. H3
N120 Z4.4
......
......
N3250 G2 X4. Y-20. I0. J-4.
N3260 G1 Y-23.
N3270 Z50. F6000.
N3280 M5
N3290G5P10000
N3300G5P0
N3310G91G28Z0
N3320 T2 M6
N3330G5P10000
N3340 S2500 M3
N3350G5P10000
N3360 G1 G43 X9.228 Y-5.415 Z50. F7000. H2
N3370 Z4.066
.....
......
N390 X-9.676 Y3.485 Z-4.151
N400 Z50. F7000.
N410 M5
N420G5P10000
N430G5 P0
N440M9
N450G0 G28 Z0.
N460G28 X0. Y0.
N470M30
%

作者: sinderal 时间: 2004-6-30 21:32
怪了...
為什麼你M5後面會有G5P10000

作者: 海帆 时间: 2004-7-1 14:19
sinderal 大哥: 我用本贴 2楼的后处理在它后面加上程序尾处理出来如下,已OK!再在PRE/NC里如下图修改,后处理时就会出现刀具名称.

%
O1
N10(Date:07/01/04 Time:09:03:14)
N20(===== HAAS  HighSeed CNC By Schick  ===== )
N30(===== Modified By Sinderal Chen 08-12-2003 ====)
N40G40 G90 G80 G17
N50( / TOOL NAME : E4)
N60G5 P0
N70G91 G28 Z0
N80 T3 M6
N90G5 P10000
N100 S800 M3
N110 G1 G43 X-4.948 Y-11.887 Z50. F400. H3
.....
.....
N2680 Z50. F400.
N2690 M5
N2700( / TOOL NAME : E12)
N2710G5 P0
N2720G91 G28 Z0
N2730 T1 M6
N2740G5 P10000
N2750 S800 M3
N2760 G1 G43 X-4. Y-23.2 Z50. F400. H1
.....
.....
N380 Z50.
N390 M5
N400G5 P0
N410G91 G28 Z0
N420G91 G28 X0 Y0
N430M30
%

作者: 海帆 时间: 2004-7-1 14:24
sinderal 大哥: 还想向你请教个问题, 在后处理时能不能显示加工所需的时间的呀? 谢谢!!!!!

!!!!

作者: sinderal 时间: 2004-7-1 15:26

海帆 wrote:
sinderal 大哥: 还想向你请教个问题, 在后处理时能不能显示加工所需的时间的呀? 谢谢!!!!!!!!!!!!!

我出門辦事去...回來查一查資料...給你一個FIL..你自己加進去...應該可以

作者: sinderal 时间: 2004-7-1 15:30
我最喜歡需要的人自己根據我的導引自己改合用的機器配置文件..

另外, 畢竟 PRO-NC與Surfcam輸出的APT語句不盡完全相同..俺寫的FIL不見得一定可以用ㄟ

作者: 海帆 时间: 2004-7-1 15:40
谢谢sinderal大哥指教,在你的帮助下我已对Gpost有了一定的了解,不过对Fil里的语句还是不大懂. 再次谢谢sinderal大哥的细心指教!!!!!!!

作者: sinderal 时间: 2004-7-2 12:30
輸出加工時間的FIL如下.. 你加進去試試...

CIMFIL/ON,MACHIN
$$ Macro to output machining time
$$ At the beginning of tape
$$ Process    $$ Process MACHINE
CLPOS=POSTF(7,1)$$ Current CL position
$$ disable tape output
DMY=POSTF(2,1,1867,1) $$ Set INTCOM 1867 to 1
$$ Loop in the CL
DO / ENDDO, ILOOP=0, 10
  $$ Read next CL record
  DMY=POSTF(14)
  $$ Test if not FINI
  CLASS=POSTF(7,2)
  IF (CLASS.EQ.14000) THEN
    $$ This is FINI set ILOOP to 10
    ILOOP=10
  ELSE
    $$ Process
    DMY=POSTF(13)
    $$ Set ILOOP to 2
    ILOOP=2
  ENDIF
ENDDO)
$$ Go back at beginning CL
DMY=POSTF(15,(CLPOS+1))
$$ Re-enable tape output
$$ Set INTCOM 1867 to 0
DMY=POSTF(2,1,1867,0)
$$ Insert the mfg time DBLCOM 495
TIM=POSTF(1,3,495)
INSERT/'(MACHINING TIME : ',TIM,')$'
CIMFIL/OFF

作者: sinderal 时间: 2004-7-2 12:35
另外, 有些機器 G5P10000一定要輸出在G0之後且於G1, G2 or G3之前, G5P0一定要輸出在G0之前

用Pro-NC的朋友, 是否有類似的指令..

PIERCE / ON 與 PIERCE / OFF  用Mill 與Lathe自動輸出這兩個?

作者: sinderal 时间: 2004-7-3 02:07

作者: sinderal 时间: 2004-7-3 02:10
打開UNCX01.P1515與 UNCX01.F1515以後,
選Start/End Program
General..

作者: sinderal 时间: 2004-7-3 02:12
按以上的勾選以後, 到END Prog
設五項
依序打入

作者: sinderal 时间: 2004-7-3 02:15
到Advance -- >FIL Editor
修改 LOADTL FIL 與增加 SPINDL FIL

作者: sinderal 时间: 2004-7-3 02:18
更改如下:

CIMFIL/ON,LOADTL
  rslt=POSTF(20)             $$ Save current Record
INSERT/' G5 P0$'
INSERT/' G91 G28 Z0.$'
  XX=POSTF(21)             $$ Load the save Record
  XX=POSTF(13)             $$ Process current CL
INSERT/' G5 P10000$' <-------------- 這一行刪掉
CIMFIL/OFF

增加下面這個FIL
CIMFIL/ON,SPINDL
XX=POSTF(13)  $$ EXECUTE THE CURRENT CL RECORD
  INSERT/'G','5 ','P','10000 ','$'
CIMFIL/OFF

作者: 海帆 时间: 2004-7-3 17:00
sinderal 大哥:  你二楼的后处理能不能改成下面的呀? 1.刀具名称在换刀指令后; 2.第一个G5 P0  能不能取消 ; 3. G5 P10000  能不能放在 S800 M3 后面;  4. 在第一个G5 P10000  前能不能加个 M161指令,因为我们的机床要这个指令的. 谢谢!!!!!!!

%
O1
N10(Date:07/03/04 Time:14:02:54)
N20(===== HAAS  HighSeed CNC By Schick  ===== )
N30(===== Modified By Sinderal Chen 08-12-2003 ====)
N40G40 G90 G80 G17
N50( / TOOL NAME : E4) (刀具名称能不能改到在换刀后面)
N60G5 P0 (这行能不能取消)
N70G91 G28 Z0
N80 T3 M6
N100 S800 M3
M161
N90G5 P10000
N110 G1 G43 X-4.948 Y-11.887 Z50. F400. H3
......
......
N2680 Z50. F400.
N2690 M5
N2700( / TOOL NAME : E12) (刀具名称能不能改到在换刀后面)
N2710G5 P0
N2720G91 G28 Z0
N2730 T1 M6
N100 S800 M3
N90G5 P10000
N2760 G1 G43 X-4. Y-23.2 Z50. F400. H1
......
......
N380 Z50.
N390 M5
N400G5 P0
N410G91 G28 Z0
N420G91 G28 X0 Y0
N430M30
%

作者: 海帆 时间: 2004-7-3 21:53
sinderal 大哥: 我在PROE里抬高了两个程序(如图所示),后处理出来出错,如下面所示:  我共用了四个加工刀轨,前面两个是4mm刀走轮廓,第三个是12mm走轮廓,最后一个是R2走曲面的,其中第一个和第二个刀轨我分别用了Z轴偏移,处理出来如下: 请指教!!!!谢谢!!!!!!

%
O1
N10(Date:07/03/04 Time:21:50:02)
N20(===== HAAS  HighSeed CNC By Schick  ===== )
N30(===== Modified By Sinderal Chen 08-12-2003 ====)
N40G40 G90 G80 G17
N50( / TOOL NAME : E4)
N60G5 P0
N70G91 G28 Z0
N80 T3 M6
N90G5 P10000
N100 S800 M3
N110 G1 G43 X-4.948 Y-11.887 Z50.2 F400. H3
......
N2170 Z50.2 F400.
N2180G5 P0
N2190G91 G28 Z0
N2200 M6
N2210G5 P10000
N2220 G1 G43 X-4. Y-19.2 Z49.8 F400. H0
N2230 Z.2
N2240 Z-12.8 F200.
......
N2710 G1 Y-19.
N2720G5 P0
N2730G91 G28 Z0
N2740 M6
N2750G5 P10000
N2760 G1 G43 X4. Y-19. Z-12.8 F400. H3
N2770 Z49.8
N2780 M5
N2790( / TOOL NAME : E12)
N2800G5 P0
N2810G91 G28 Z0
N2820 T1 M6
N2830G5 P10000
N2840 S800 M3
N2850 G1 G43 X-4. Y-23.2 Z50. F400. H1
......
N3350 Z50. F400.
N3360 M5
N3370( / TOOL NAME : R2)
N3380G5 P0
N3390G91 G28 Z0
N3400 T2 M6
N3410G5 P10000
N3420 S2500 M3
N3430 G1 G43 X9.228 Y-5.415 Z50. F400. H2
N3440 Z4.066
......
N470 Z50.
N480 M5
N490G5 P0
N500G91 G28 Z0
N510G91 G28 X0 Y0
N520M30
%

作者: sinderal 时间: 2004-7-4 00:41
用這幾個FIL 取代原來的FIL 試試看

CIMFIL/ON,LOADTL
IF (OKCOM.EQ.0) THEN
  rslt=POSTF(20)             $$ Save current Record
INSERT/' G91 G28 Z0.$'
  XX=POSTF(21)             $$ Load the save Record
  XX=POSTF(13)             $$ Process current CL
ELSE
  $$ Tool name programmed
  XX=POSTF(2,1,1867,1)  $$ no tape output
  DMY=POSTF(13)    $$ process tool change
  TNUM=POSTF(7,4)      $$ Tool number
  XX=POSTF(2,1,1867,0)  $$ re-activate tape output
  INSERT/' G91 G28 Z0.$'
  INSERT/'T',TNUM,'M6(',NMESS,')$'
ENDIF
CIMFIL/OFF

作者: sinderal 时间: 2004-7-4 00:42
CIMFIL/ON,SPINDL
ARG1=POSTF(7,4)  $$ first argument of SPINDL
IF (ARG1.NE.(ICODEF(OFF))) THEN
  XX=POSTF(13)    $$ Process Spindl
  INSERT/' G','5 ','P',' 10000','$'
ELSE
   XX=POSTF(13)    $$ Process Spindl
   INSERT/' G5 P0$'
ENDIF
CIMFIL/OFF

作者: sinderal 时间: 2004-7-4 00:42
CIMFIL/ON,PPRINT
$$ Macro to store the tool name in a variable
$$ to re-issue with the tool change
TXT=TEXT/CLW                   $$ Text of message
TEST=TEXT/'TOOL NAME'    $$ Text to test for
OKCOM=INDXF(TXT,TEST)
IF (OKCOM.NE.0) THEN
  $$ This is a tool comment
  MESS=TEXT/OMIT,TXT,1          $$ Omit trailing blank
  COL=TEXT/':'
  COLPOS=INDXF(MESS,COL)       $$ position of : in MESS
  LEN=CANF(MESS,1)             $$ number of char in MESS
  NMESS=TEXT/RANGE,MESS,COLPOS+1,LEN $$ Extract from : to end
ELSE
  DMY=POSTF(13) $$ Process
ENDIF
CIMFIL/OFF

作者: sinderal 时间: 2004-7-4 00:45
1. 刀具的部份...請設置成 NONE Modal
2. 每一路徑(Operation)必須要有SPINDL / OFF

如果可以, 請把原來 END PROG. 裡的G5P0刪去

應該刀具名稱是輸出在換刀那行

作者: 海帆 时间: 2004-7-4 10:32
sinderal大哥: 还是出现75楼的情况. 介绍个网站给你看看有没有用: WWW.AUSTINNC.COM 下面的是不是Gpost的高级配置参数呀?谢谢!!!

作者: sinderal 时间: 2004-7-4 12:49

海帆 wrote:
sinderal大哥: 还是出现75楼的情况. 介绍个网站给你看看有没有用: WWW.AUSTINNC.COM 下面的是不是Gpost的高级配置参数呀?谢谢!!!

那個是 Curve Fitting / Arc Fitting 就是自動優化輸出 NURBS/SPLINE 與/或圓弧插補的GPost設置..APT語句

作者: sinderal 时间: 2004-7-13 09:02
BEIJIN-FANUC OIM

作者: hdj 时间: 2004-7-13 13:47
高手呀,帮主,我先试用,有什么要求再发,先谢谢!
是带刀库的吗?

作者: hdj 时间: 2004-7-14 12:29
CAM版主
谢谢你给你POST,试用后,发现有这么几个问题还需改:
1.程序头没有G92定坐标<或者是G54选坐标>
2.我的这台机床有刀库,而换刀要求回参考点,而且换刀程序是调用子程序
如:

-------
-----
N1100 G91 G28 Z0 /*回参考点*/
N1110 M05 /*主轴停*/
N1120 T02 M98 P9000 /*P9000为固定调用换刀子程式;我有点不懂,子程序可以有变量T吗?为什么不是宏程序?版主解答!*/
N1130 S1800 M03
---
-----
别还有一问题,在后处理怎样可改程序序号N100 --(我想从N100,增量10或2往下---)

作者: hdj 时间: 2004-7-14 12:33
期待版主回复!谢谢

作者: sinderal 时间: 2004-7-14 16:37
N序號開始與增量值自己改

作者: sinderal 时间: 2004-7-14 16:42

hdj wrote:
CAM版主
  谢谢你给你POST,试用后,发现有这么几个问题还需改:
  1.程序头没有G92定坐标<或者是G54选坐标>
你Pro-NC裡的一些設置沒有設....詳細情形問用Pro-NC的其他版友
2.我的这台机床有刀库,而换刀要求回参考点,而且换刀程序是调用子程序
  如:
  
  -------
  -----
  N1100 G91 G28 Z0 /*回参考点*/
  N1110 M05 /*主轴停*/
  N1120 T02 M98 P9000 /*P9000为固定调用换刀子程式;我有点不懂,子程序可以有变量T吗?为什么不是宏程序?版主解答!*/
  N1130 S1800 M03
  ---
  -----
那是你的機器廠商寫好的換刀程序..用子程序调用的
換刀行你也是參數設置的問題..
那個部份,,改FIL..

  别还有一问题,在后处理怎样可改程序序号N100 --(我想从N100,增量10或2往下---)

作者: sinderal 时间: 2004-7-14 16:51
打開FIL

CIMFIL/ON,LOADTL
  rslt=POSTF(20)             $$ Save current Record
INSERT/'G','91 ','G','28 ','Z', '0 ','$'
INSERT/'M','05 ', '$'   <--------------------- 加這一行
  rslt=POSTF(21)             $$ Load the save Record
  rslt=POSTF(13)             $$ Process current CL
CIMFIL/OFF

在最後
REPLAC/(TEXT/'M6'),(TEXT/'M98 P9000')

作者: hdj 时间: 2004-7-16 12:32
thanks,现在去试试，不懂再问？
谢谢！！

作者: bbzzcl 时间: 2004-8-3 21:47
期待版主回复!谢谢
怎样输出增量坐标而不是绝对坐标值?

作者: sinderal 时间: 2004-8-3 22:25

bbzzcl wrote:
期待版主回复!谢谢
怎样输出增量坐标而不是绝对坐标值?

不知道Pro-NC參數裡是不是可以設置以產生
MODE/INCR
結束時輸出
MODE/INCR, OFF

作者: bbzzcl 时间: 2004-8-4 21:53
版主,我没找到

作者: sinderal 时间: 2004-8-8 15:08

bbzzcl wrote:
版主,我没找到

那就只能用插入命令的方式將要輸出增量座標的Operation, 插入上面說的APT命令..
不然就是用文本編輯器改 ncl 插入APT語句

作者: TONY88 时间: 2004-8-15 12:27
THANKS.

作者: bbzzcl 时间: 2004-9-4 21:22

sinderal wrote:

  
那就只能用插入命令的方式將要輸出增量座標的Operation, 插入上面說的APT命令..
不然就是用文本編輯器改 ncl 插入APT語句

斑竹,能帮我做一个吗?

作者: sinderal 时间: 2004-9-5 10:31

bbzzcl wrote:

斑竹,能帮我做一个吗?

用文本編輯器在你的NCL裡插入 MODE/ INCR...MODE/INCR, OFF

作者: vip 时间: 2004-9-7 19:52
老大，请问用01的后处理程序处理03的程式的时候，为什么加工中心不接受啊？说什么偏移错误。

作者: sinderal 时间: 2004-9-11 02:14

vip wrote:
老大，请问用01的后处理程序处理03的程式的时候，为什么加工中心不接受啊？说什么偏移错误。

不懂你的問題是什麼? 01 是指什麼? 03又是什麼?

作者: dragon2008 时间: 2005-4-13 22:22
我正想找这个贴子呀，可是我什么时候才能达到这样的积分　呀？

作者: hacker13 时间: 2005-4-14 10:42
支持！！！

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