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

若枫

Mastercam后处理输出程序到指定目录，在Mastercam2017之前是无法直接做到的，如果要达到这个目的，有3个间接的方法：
方法1：通过后处理调用控制台程序。
方法2：通过后处理调用VBScript脚本。
" m  K- |1 E% y* G方法3：通过Bat批处理。
1 V( [& A* \7 x0 @方法1需要开发者对控制台程序有一定的开发基础，同时还需要熟悉后处理传递数据到控制台。
% _% I+ h; z; p1 a7 n. \9 k
# @3 A3 L* M( o% J  ~- K$ i$ w方法2和方法3测需要利用Buffer来完成，都是用过vbs来实现。
$ A( E/ t7 m: t$ X+ U% u
; k0 ?# V" `$ Q6 s现在我们可以直接利用directory函数创建文件夹。这个直接的方法相对于上面间接的方法有如下优点：
1：可以直接对文件夹进行操作，如删除，新建，判断是否存在。
2：不会因为文件不存在而出现未知错误。
3：可以直接对已经存在的文件夹进行操作。
. x% u: b% N' }7 I
Mastercam没有直接复制，移动NC程序的函数，想要直接把当前的NC输出到指定的目录，这个需要借助Buffer来实现。但相对非常简单。
1 T& P5 `  ]8 `% q/ m; I9 {以下代码为实现当前输出的NC程序至图档目录下以NC名为名的文件夹下面。
9 C& j7 L# m$ a3 Z, j$ I8 e% D% o1：定义后处理头数据。
6 a. ]; @2 I3 k5 n' _; f' A[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.
1 s9 L: }$ S/ c4 g: \7 kscustpost_revision   = "0"  # Revision number for use by Resellers or customers.
% [2 `! h1 b- [; x/ m& ?

, {+ i( x" @5 H2 H8 J- w$ [  C2 U6 O2：定义原始路径，新的路径及后缀名。
, L4 }4 `% q+ e' s0 H) areturn      : 0
spath_old   : ""
7 d# Q2 q; G# [; P6 L4 i# q$ jspath       : ""
( O1 O2 `$ S  d' Wspath_new   : ""
sextnc$     : ".nc"
1 N+ R; O3 x* V7 c+ g, z
3：判断文件夹是否存在，并向NC文件里面写入一些数据。
& h1 G' o& O; b. Z, Apheader$
    spath = smcpath$ + snamenc$   
1 Q7 @, }- P) x+ Y: O" \( w    spath_old = spathnc$+ snamenc$ + sextnc$  
# V, L2 M5 {. ]    return = directory(2, spath)   
# }. v: j9 V  A8 b- q    if return = 0, return = directory(1, spath)     
    "G01X0.", e$   
7 x$ j+ j9 E; i2 g1 M     "2022-05-01", e$      
3 y: O! L: `% }5 a& i" z     "2022-05-01", e$
+ x8 f: N% w( L3 d$ q* K
3 Z& B+ H! [4 d5 d, _; B8 r( Y6 H6 S( Z4：定义buffer 1。
3 B1 r- b; A5 A: \6 G5 z0 \sbufname1$   : ""
rc1          : 1
9 J" X/ h' p0 U% M1 Awc1          : 1
b1_size      : 0
0 Z( K: ?! c, V& E2 D2 O! P3 Gstr1         : ""
fbuf 1 1 255 0 1

8 ]; p# s. p# K5：定义Buffer 2
sbufname2$   : ""
. Y2 d* _0 c& Urc2          : 1
wc2          : 1
) _. {+ W" L* J" ]' H9 b, ]2 }b2_size     : 0
str2         : ""
fbuf 2 1 255 0 1
7 ^- t9 ?* s- Q
6：利用buffer读取原始NC程序内容，并通过buffer输出到新的位置。
ppost$
        return = fclose(spath_old)
        sbufname1$ = spathnc$+ snamenc$ + sextnc$     
' G5 t& ]- X* _# n2 D       sbufname2$ = smcpath$ + "\" + snamenc$ + "\" + snamenc$ + sextnc$
       spath_new = smcpath$ + "\" + snamenc$ + "\" + snamenc$ + sextnc$
5 {. r& @  Y' w- m: d0 S       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,
6 X! O: v5 r9 T' W         [
         str2 = rbuf(1,rc1)  
        str2 = wbuf(2,rc2)  
% p1 H& k3 j  O% |        ]
                  return = fclose(2)
) l# T+ z3 ?3 D& C; L, }& ]( }2 e       if fexist(spath_old), return = remove(spath_old)

75921872

QQQQQQQQWWWWW