【推荐】【注意】Surfcam用之後處理 (Pro-NC GPost亦可)

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

CIMFIL/ON,SPINDL                       $$ PROCESS SPINDL
  IF(POSTF(7,4) .EQ. 1) THEN
    SRPM=POSTF(7,4)                    $$ SAVE RPM
    SPINDL/SRPM
  ENDIF
CIMFIL/OFF

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

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

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

游客，本帖隐藏的内容需要积分高于 10 才可浏览，您当前积分为 0

上一個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
...
..

Makino 5 Axis BC Daul Rotary Table

游客，本帖隐藏的内容需要积分高于 15 才可浏览，您当前积分为 0

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

使用Pro-NC的朋友..
需要輸出 Fanuc高速機指令..G5P10000, G5P0..
請下載第一個試試...如果沒有..
請提供NCL..我必須找出輸出的 指令 來改FIL..