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

若枫

Mastercam后处理输出程序到指定目录，在Mastercam2017之前是无法直接做到的，如果要达到这个目的，有3个间接的方法：
方法1：通过后处理调用控制台程序。
方法2：通过后处理调用VBScript脚本。
3 ~' l+ a; e: Q5 W5 A% G方法3：通过Bat批处理。
方法1需要开发者对控制台程序有一定的开发基础，同时还需要熟悉后处理传递数据到控制台。
0 k; y; W: r1 E
方法2和方法3测需要利用Buffer来完成，都是用过vbs来实现。

现在我们可以直接利用directory函数创建文件夹。这个直接的方法相对于上面间接的方法有如下优点：
# q, H* V9 s+ n4 t, {& Q: H. a* o1：可以直接对文件夹进行操作，如删除，新建，判断是否存在。
3 T  O5 g4 A2 L0 ?  w& |8 T6 P2：不会因为文件不存在而出现未知错误。
9 S% {  D+ N4 A2 C) V3：可以直接对已经存在的文件夹进行操作。

) W* ^$ [  g/ B% L& U' @( rMastercam没有直接复制，移动NC程序的函数，想要直接把当前的NC输出到指定的目录，这个需要借助Buffer来实现。但相对非常简单。
5 m6 v  N/ w2 |2 S以下代码为实现当前输出的NC程序至图档目录下以NC名为名的文件夹下面。
- E. ~( w% O' c! T: O1：定义后处理头数据。
[POST_VERSION #DO NOT MOVE OR ALTER THIS LINE# V24.00 P0 E1 W24.00 T1614093555 M24.00 I0 O1
scncpost_revision     = "22.81" # Internal revision number for use by CNC Software only.  Please do not change this number.
: `0 a5 b9 t# s: Iscustpost_revision   = "0"  # Revision number for use by Resellers or customers.
6 ~/ J+ J% N' E# R, o) s7 t
: t! _  W% b5 K5 B8 _" L
2：定义原始路径，新的路径及后缀名。
+ U/ r1 O; r+ Y( p4 c1 w& \# a2 Y0 areturn      : 0
# j; r' r' x& Bspath_old   : ""
spath       : ""
' h; _' j- e6 n7 _, d0 Jspath_new   : ""
sextnc$     : ".nc"

9 }0 {- q& G! X, O" J) |9 \3：判断文件夹是否存在，并向NC文件里面写入一些数据。
pheader$
9 ^" H4 S% k7 Q1 m6 h) N    spath = smcpath$ + snamenc$   
3 H  i: @  t; F9 D1 r) L; O4 Z    spath_old = spathnc$+ snamenc$ + sextnc$  
3 Y8 p1 X! S7 \: V* N; M: o    return = directory(2, spath)   
    if return = 0, return = directory(1, spath)     
' M  B8 H) o+ e- r" _9 J    "G01X0.", e$   
     "2022-05-01", e$      
: E7 N" x( W" A' T9 W# a     "2022-05-01", e$
: q( `5 ~  a4 ^' o' l
4：定义buffer 1。
$ @# B" C# I5 C" {sbufname1$   : ""
rc1          : 1
" V, u. q! t6 U. f4 h7 N5 u: w0 cwc1          : 1
) G2 X* ^. _5 z4 u: Eb1_size      : 0
str1         : ""
fbuf 1 1 255 0 1

5：定义Buffer 2
0 P' m6 Z! \+ U+ M! |1 x# nsbufname2$   : ""
: H6 |; X$ ?0 e( D, src2          : 1
) {0 n2 Z* E' c% V/ u5 |wc2          : 1
b2_size     : 0
str2         : ""
fbuf 2 1 255 0 1

6：利用buffer读取原始NC程序内容，并通过buffer输出到新的位置。
ppost$
2 I( }$ f* ^- r: a3 ]5 g  s        return = fclose(spath_old)
2 B3 z& N8 V; |4 E. v9 N. I; n        sbufname1$ = spathnc$+ snamenc$ + sextnc$     
       sbufname2$ = smcpath$ + "\" + snamenc$ + "\" + snamenc$ + sextnc$
. Z2 F9 l; G' A7 }# X. {9 Y( L       spath_new = smcpath$ + "\" + snamenc$ + "\" + snamenc$ + sextnc$
/ ]) A, z, j- k8 ]       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,
; g( Q0 d" O/ R9 U: i) A         [
6 j, g& ^, L, h3 ~  E5 R         str2 = rbuf(1,rc1)  
        str2 = wbuf(2,rc2)  
        ]
6 b" n6 J* E" F. K' X  k- i                  return = fclose(2)
       if fexist(spath_old), return = remove(spath_old)
) U0 n1 K# @: {$ H; a
5 @* h: O6 _1 |5 e  w; z

75921872

QQQQQQQQWWWWW