Mastercam后处理输出程序到指定目录

若枫

Mastercam后处理输出程序到指定目录，在Mastercam2017之前是无法直接做到的，如果要达到这个目的，有3个间接的方法：
方法1：通过后处理调用控制台程序。
方法2：通过后处理调用VBScript脚本。
方法3：通过Bat批处理。
方法1需要开发者对控制台程序有一定的开发基础，同时还需要熟悉后处理传递数据到控制台。
2 w7 ~9 ^7 p; V: z0 s% }; r
8 V+ {: ]( N$ Q- I/ o方法2和方法3测需要利用Buffer来完成，都是用过vbs来实现。
* \7 q9 y- i. m4 s% R  i
. e( ]3 g# L( t现在我们可以直接利用directory函数创建文件夹。这个直接的方法相对于上面间接的方法有如下优点：
: |( t- E: V" a7 H2 ~4 U- I" x6 x1：可以直接对文件夹进行操作，如删除，新建，判断是否存在。
2：不会因为文件不存在而出现未知错误。
3：可以直接对已经存在的文件夹进行操作。
, M' N( @  |4 o
Mastercam没有直接复制，移动NC程序的函数，想要直接把当前的NC输出到指定的目录，这个需要借助Buffer来实现。但相对非常简单。
以下代码为实现当前输出的NC程序至图档目录下以NC名为名的文件夹下面。
1 \* p0 D% N  M, e1：定义后处理头数据。
4 s1 e0 t' R5 K6 t$ h3 _7 a[POST_VERSION #DO NOT MOVE OR ALTER THIS LINE# V24.00 P0 E1 W24.00 T1614093555 M24.00 I0 O1
! g! L0 Y0 _7 W, I0 wscncpost_revision     = "22.81" # Internal revision number for use by CNC Software only.  Please do not change this number.
* \$ ]3 r, d* [6 `* Vscustpost_revision   = "0"  # Revision number for use by Resellers or customers.
) }, P1 g4 [9 a3 a9 T

2：定义原始路径，新的路径及后缀名。
* s; n; [7 |/ A& ]. lreturn      : 0
spath_old   : ""
. j( [. e  @  `( J& o& Uspath       : ""
/ H- M# i" B# a- T4 a5 zspath_new   : ""
sextnc$     : ".nc"
5 G+ @' t" I2 d5 q/ Y. J% f
$ `. h  c- r& r  T% \% J( Q3：判断文件夹是否存在，并向NC文件里面写入一些数据。
; _2 |' O  S6 ^6 g% b. f, Ypheader$
; m. `8 O' e" g# v$ S% r% J3 R    spath = smcpath$ + snamenc$   
7 Y" F0 d  D* B" I, Q* D. ^0 F1 `3 h    spath_old = spathnc$+ snamenc$ + sextnc$  
    return = directory(2, spath)   
8 m; Q# I( M* _, z& {# A! U5 X    if return = 0, return = directory(1, spath)     
% {3 f9 H4 `# o( \2 V: I, ~    "G01X0.", e$   
     "2022-05-01", e$      
& P5 ]; H7 p4 Q* g* A     "2022-05-01", e$

4：定义buffer 1。
4 ~. ]7 o" M5 fsbufname1$   : ""
rc1          : 1
wc1          : 1
7 K. x+ P8 h. z0 @! l: }/ s+ Z+ nb1_size      : 0
str1         : ""
fbuf 1 1 255 0 1
; V2 d5 T+ m  x; O
5：定义Buffer 2
* w4 T; a0 I$ e. csbufname2$   : ""
+ K6 e5 l! j" ]" e0 ?rc2          : 1
wc2          : 1
4 P. _+ \" x8 y& [5 @b2_size     : 0
) J# W; [& F- f, N+ W6 Bstr2         : ""
& k& F# `8 z8 F0 b3 }+ o1 Dfbuf 2 1 255 0 1

0 d+ n) k- L1 I! r7 H; L" ~  S6：利用buffer读取原始NC程序内容，并通过buffer输出到新的位置。
ppost$
3 {  }: O& G8 n0 @: t        return = fclose(spath_old)
        sbufname1$ = spathnc$+ snamenc$ + sextnc$     
       sbufname2$ = smcpath$ + "\" + snamenc$ + "\" + snamenc$ + sextnc$
       spath_new = smcpath$ + "\" + snamenc$ + "\" + snamenc$ + sextnc$
       if fexist(sbufname2$), return = remove(sbufname2$)  
      if fexist(spath_new), return = remove(spath_new)  
      b1_size = rbuf(1,0)
        rc1 = 1
       rc2 = 1
        while rc1 <= b1_size,
7 U2 O- S" K  D4 s         [
0 n/ O# a, z5 T         str2 = rbuf(1,rc1)  
9 a* c* B+ g4 V- u- Y2 q& _        str2 = wbuf(2,rc2)  
        ]
                  return = fclose(2)
  v/ G7 Z, |% g: e       if fexist(spath_old), return = remove(spath_old)
& M, Y& M; X/ d
/ v3 t' Q2 B6 A4 w- [' E3 E

75921872

QQQQQQQQWWWWW