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

若枫

Mastercam后处理输出程序到指定目录，在Mastercam2017之前是无法直接做到的，如果要达到这个目的，有3个间接的方法：
/ H  l2 O  u: z; P) `方法1：通过后处理调用控制台程序。
方法2：通过后处理调用VBScript脚本。
4 Q5 O; f! G" F) i' g& E6 r9 o4 G0 s1 d方法3：通过Bat批处理。
方法1需要开发者对控制台程序有一定的开发基础，同时还需要熟悉后处理传递数据到控制台。

方法2和方法3测需要利用Buffer来完成，都是用过vbs来实现。
7 t" g! L3 G" Y' m0 u0 g
$ x$ t3 e% W" J' M" l4 O8 u现在我们可以直接利用directory函数创建文件夹。这个直接的方法相对于上面间接的方法有如下优点：
1：可以直接对文件夹进行操作，如删除，新建，判断是否存在。
2：不会因为文件不存在而出现未知错误。
3：可以直接对已经存在的文件夹进行操作。
3 s$ Z, Y- e+ d
8 J) u- ^2 S9 SMastercam没有直接复制，移动NC程序的函数，想要直接把当前的NC输出到指定的目录，这个需要借助Buffer来实现。但相对非常简单。
3 X' m# A( d/ J- {3 y以下代码为实现当前输出的NC程序至图档目录下以NC名为名的文件夹下面。
1：定义后处理头数据。
2 k" `+ w$ w: t% D[POST_VERSION #DO NOT MOVE OR ALTER THIS LINE# V24.00 P0 E1 W24.00 T1614093555 M24.00 I0 O1
! d8 A  N) G& c; e9 a' bscncpost_revision     = "22.81" # Internal revision number for use by CNC Software only.  Please do not change this number.
scustpost_revision   = "0"  # Revision number for use by Resellers or customers.
" q% n7 g7 e* a

2：定义原始路径，新的路径及后缀名。
return      : 0
4 |. R  R  i0 s- o; r3 uspath_old   : ""
spath       : ""
2 W: Z( M/ p% w# Y, [8 X% aspath_new   : ""
sextnc$     : ".nc"

5 W1 N; x' {! U3：判断文件夹是否存在，并向NC文件里面写入一些数据。
pheader$
    spath = smcpath$ + snamenc$   
    spath_old = spathnc$+ snamenc$ + sextnc$  
# r+ G9 ?- ]. y" |    return = directory(2, spath)   
    if return = 0, return = directory(1, spath)     
. r6 m& P- j8 b4 p( y  `. O! G    "G01X0.", e$   
; Z3 V, C  n. a. V* O5 W     "2022-05-01", e$      
     "2022-05-01", e$

6 t0 w+ T) s9 m* M4：定义buffer 1。
8 {" s* f! e( m3 |3 _# fsbufname1$   : ""
rc1          : 1
; P; @/ b, Q3 J2 @* vwc1          : 1
- A2 ^3 g/ K' B. Q7 n5 a! wb1_size      : 0
str1         : ""
fbuf 1 1 255 0 1

! t0 F( N5 ^; o' W/ L5 Z5：定义Buffer 2
sbufname2$   : ""
9 A* Y6 T0 o+ J. a! y7 Frc2          : 1
- z5 q5 G, Y( Z% q- p' [1 h! F7 kwc2          : 1
1 ?4 [% N; F4 @, I7 H: i) q. eb2_size     : 0
str2         : ""
fbuf 2 1 255 0 1

6：利用buffer读取原始NC程序内容，并通过buffer输出到新的位置。
+ [& d" \* }% n* m# ^5 cppost$
        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)  
) s; T, g8 z$ i5 u* A      b1_size = rbuf(1,0)
        rc1 = 1
       rc2 = 1
        while rc1 <= b1_size,
1 s. p+ _6 j% Z         [
9 S2 w5 T! e0 K1 S. Q         str2 = rbuf(1,rc1)  
/ C% [8 u1 _8 M- }        str2 = wbuf(2,rc2)  
        ]
* u4 W& G7 G! @* i. v1 ]                  return = fclose(2)
, @- w5 _0 l  w, |       if fexist(spath_old), return = remove(spath_old)

75921872

QQQQQQQQWWWWW