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

若枫

Mastercam后处理输出程序到指定目录，在Mastercam2017之前是无法直接做到的，如果要达到这个目的，有3个间接的方法：
/ F( U4 U' K3 I0 [4 b" t. |- h方法1：通过后处理调用控制台程序。
方法2：通过后处理调用VBScript脚本。
方法3：通过Bat批处理。
方法1需要开发者对控制台程序有一定的开发基础，同时还需要熟悉后处理传递数据到控制台。

; {, |) X+ ?& M- r6 g; F方法2和方法3测需要利用Buffer来完成，都是用过vbs来实现。
# D: Y; D* ?: f; M0 ?% g! y
现在我们可以直接利用directory函数创建文件夹。这个直接的方法相对于上面间接的方法有如下优点：
1：可以直接对文件夹进行操作，如删除，新建，判断是否存在。
2：不会因为文件不存在而出现未知错误。
3：可以直接对已经存在的文件夹进行操作。
& ?8 d, b0 a9 ]9 f- q
Mastercam没有直接复制，移动NC程序的函数，想要直接把当前的NC输出到指定的目录，这个需要借助Buffer来实现。但相对非常简单。
以下代码为实现当前输出的NC程序至图档目录下以NC名为名的文件夹下面。
1：定义后处理头数据。
2 r. j3 _6 y# H" _0 y+ D7 K; e& K[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.
scustpost_revision   = "0"  # Revision number for use by Resellers or customers.
5 z/ w+ X# F' C0 `
2 S* r, Y( c  e: c) C
/ x/ ^+ k: S! l1 X4 B/ ^7 y2：定义原始路径，新的路径及后缀名。
' Y- D& k1 p* a) D1 ]. Z& _/ q7 i& Areturn      : 0
spath_old   : ""
spath       : ""
8 {! I  x0 C2 D" \5 wspath_new   : ""
* o8 d# ^% L; V; s( gsextnc$     : ".nc"
% W: K0 Q0 Q; ?0 y9 ^7 l+ c
3：判断文件夹是否存在，并向NC文件里面写入一些数据。
# Q& g# M* y4 X3 G% \  wpheader$
    spath = smcpath$ + snamenc$   
) N$ V( w" h2 b. h    spath_old = spathnc$+ snamenc$ + sextnc$  
    return = directory(2, spath)   
    if return = 0, return = directory(1, spath)     
    "G01X0.", e$   
     "2022-05-01", e$      
     "2022-05-01", e$

4：定义buffer 1。
sbufname1$   : ""
rc1          : 1
7 N4 G* p5 M, e7 Xwc1          : 1
, \% b1 Z* u  u- X, ~; ib1_size      : 0
str1         : ""
fbuf 1 1 255 0 1
: q" O$ O: P. F7 r
5：定义Buffer 2
  a* O# U7 k$ j9 H  e5 N6 jsbufname2$   : ""
rc2          : 1
9 s, z  H) \$ \* {6 {6 y$ Uwc2          : 1
b2_size     : 0
str2         : ""
fbuf 2 1 255 0 1

9 B# g6 h* C$ K: D% M9 }3 E6：利用buffer读取原始NC程序内容，并通过buffer输出到新的位置。
ppost$
, ~' N9 p7 P' b: k2 d3 c        return = fclose(spath_old)
        sbufname1$ = spathnc$+ snamenc$ + sextnc$     
       sbufname2$ = smcpath$ + "\" + snamenc$ + "\" + snamenc$ + sextnc$
' H, k  d# e4 Y+ \7 K& Z$ _       spath_new = smcpath$ + "\" + snamenc$ + "\" + snamenc$ + sextnc$
. f: O' x) k  y5 q+ B       if fexist(sbufname2$), return = remove(sbufname2$)  
      if fexist(spath_new), return = remove(spath_new)  
! e' ~/ s, O  `6 d. [5 D      b1_size = rbuf(1,0)
        rc1 = 1
       rc2 = 1
: e! T( m; N2 j! d4 I2 ]0 g9 I        while rc1 <= b1_size,
2 z8 L, w/ F) ^         [
         str2 = rbuf(1,rc1)  
        str2 = wbuf(2,rc2)  
7 D* O" F! h2 `; X7 f) m        ]
                  return = fclose(2)
       if fexist(spath_old), return = remove(spath_old)

* y) f' P5 p, A' L/ e

75921872

QQQQQQQQWWWWW