【讨论】淺談GPost(SPost)一些特殊應用

要改成
  
CIMFIL/ON,PIERCE                                                              
MDE=POSTF(7,4)
   CASE/MDE
     WHEN/ICODEF(ON)        
       INSERT/'M04$'                                               
     WHEN/ICODEF(OFF)
       INSERT/'M05$'                                               
   ENDCAS
CIMFIL/OFF

該NCL轉譯後
  
%
(LASER POST BY SINDERAL CHEN 2004-06-15)
G0X55.731Y521.766
M04
G1X55.604Y521.762Z0.F150.
X55.478Y521.75
X55.353Y521.73
X55.23Y521.702
X55.109Y521.667
X54.99Y521.624
X54.874Y521.573
X54.761Y521.515
X54.653Y521.451
X54.548Y521.379
X54.449Y521.301
X54.354Y521.217
X54.265Y521.127
X54.182Y521.032
X54.105Y520.931
X54.035Y520.826
X53.971Y520.717
X53.915Y520.604
X53.865Y520.487
X53.823Y520.368
....
....
X55.942Y521.755
X55.816Y521.764
X55.731Y521.766
M05
G0Y506.766
M04
G1X55.604Y506.762F150.
X55.478Y506.75
.....
.....
Y44.738
X697.216Y45.731
X712.516Y61.031
X712.766Y62.023
M05
G99
&

受用。。。。

GPost的機器配置文件是
UNCX01.Pxx ---- 機器配置文件
UNCX01.Fxx ---- 該機器FIL文件
  
可以用文本編輯器打開的..
但是不見得看得懂 與 直接修改
UNCX01.Pxx
  
POSTPROCESSOR OPTION FILE: UNCL01.P01  18-SEP-97  13:20:55  V5.00
Okuma OSP 7000L
  INTCOMLOCATION,VALUE)
   1      7
   2      8
   3     14
   4      9
   6     10
  13     13
  19     11
  20     12
  32     19
  45     20
  47     18
  48     17
  50     16
  51     15
  59     68
  60     69
  61     65
  62     70
  63     83
  64     84
  65     77
  66     76
  67     88
  68     90
  69     88
  70     90
  71     70
  72     83
  106   4040
  112   3420
  113   1212
  114   3443
  115   2433
  116   4020
  117   4040
  118   2020
  119   3535
  121   2433
  122   2433
  123   2433
  124   3241
  125   4040
  159    100
  161      1
  162      1
  163      1
  164      1
  165      1
  166      1
  167      1
  168      1
  169    100
  170   1100
  171   1100
  172      1
  483     71
  487      6
  493     94
  495 -32767
  506    -70
  517     50
  535     90
  721   1413
1510     72
1513     -3
1827    -23
1832      0
1834      0
1837      0
1838      2
1841     37
1847      1
1851      0
1852      0
1853      3
1856      0
1860      2
1861      1
1864      1
1865      1
1881      1
1888      1
1917      1
1923    360
1925      2
1956      1
1964    -50
1965    -51
1967    -80
1968    -81
1970     -5
1975 -32767
1976 -32767
1977 -32767
1978 -32767
1980 -32767
1983     -5
1985    -24
1986    -23
1988   1000
1994      2
2006      1
2007      1
2010     14
2011     20
2064     71
2073    -64
2229     70
2437      1
2453     53
2479      1
   0      0
  RELCOMLOCATION,VALUE)
  68     99.9999010
  75     99.9999010
  76     99.9899980
  77      0.0000000
  96    800.0000000
  103      0.0001000
  116      0.0001000
  117      0.9999000
  119     20.0000000
  409      0.0000100
  411     99.9999010
  417      0.0000000
  418      0.0000000
  441   9999.0000000
  452      1.0000000
  458   4200.0000000
1350      2.0000000
1523    100.0000000
   0      0.0000000

UNCX01.F11 --我寫的FIL
  
  Okuma OSP5020  post development 12/5/2000 SC @ DTS INC.
  
REDEF/ON                                                                $$ Allow variable redefinition
  
PRINT/ONRINT/ON,IN;rslt=POSTF(24,1)                                $$ Debugg commands
  
A=1;B=2;C=3;D=4;E=5;F=6;G=7;H=8;I=9;J=10;K=11;L=12;M=13;N=14            $$ Alphabet
O=15=16;Q=17;R=18;S=19;T=20;U=21;V=22;W=23;X=24;Y=25;Z=26
  
CIMFIL/ON,PARTNO
  PROMPT=TEXT/'ENTER WORK OFFSET NUMBER'
  RSLT=FILEF(0,1,PROMPT)
  STRNG=TEXT/READ,0
  WVALUE=SCALF(STRNG)
  CIMFIL/OFF
  
CIMFIL/ON,MACHIN
  RSLT=POSTF(13)
  POSTN/IN,L,WVALUE
CIMFIL/OFF
  
$$ -----------------------------------------------------------------------
$$ TOOL PRE-SELECT
$$ -----------------------------------------------------------------------
  
1stc=0
  
CIMFIL/ON,LOADTL
  rslt=POSTF(2,1,1867,1)          $$ Set COMMAND value and let PP do the simulation mode
  rslt=POSTF(13)
  rslt=POSTF(2,1,1867,0)          $$ Set back to PP Excution mode
  tlnum=POSTF(7,4)
  IF(1stc.EQ.0)THEN
   1stn=POSTF(7,4)
   1stc=1
  ENDIF

還有 保密的Macro 那就真的沒輒了...

用UtraEdit打開....