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

若枫

Mastercam后处理输出程序到指定目录，在Mastercam2017之前是无法直接做到的，如果要达到这个目的，有3个间接的方法：
; k6 Q) E3 W( ~+ X7 v方法1：通过后处理调用控制台程序。
( F; l; |3 P% b" ?/ m! c* Q  C5 r# A方法2：通过后处理调用VBScript脚本。
方法3：通过Bat批处理。
0 C8 U& T  h. ]( Y+ C" R方法1需要开发者对控制台程序有一定的开发基础，同时还需要熟悉后处理传递数据到控制台。
1 a: a; m" D# i; W0 H
方法2和方法3测需要利用Buffer来完成，都是用过vbs来实现。
. b4 _- i- Z# R. Q% L
/ s. ~4 `- z1 k) R2 i$ T5 s现在我们可以直接利用directory函数创建文件夹。这个直接的方法相对于上面间接的方法有如下优点：
1：可以直接对文件夹进行操作，如删除，新建，判断是否存在。
2：不会因为文件不存在而出现未知错误。
: A4 v) U. A" C8 F) m, H( x$ H" o3：可以直接对已经存在的文件夹进行操作。
* P1 J# k3 I$ i4 C$ A' \
Mastercam没有直接复制，移动NC程序的函数，想要直接把当前的NC输出到指定的目录，这个需要借助Buffer来实现。但相对非常简单。
以下代码为实现当前输出的NC程序至图档目录下以NC名为名的文件夹下面。
1：定义后处理头数据。
; u( B, G2 _: a- N3 L5 H$ G[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.
; i1 ?" I9 z* fscustpost_revision   = "0"  # Revision number for use by Resellers or customers.


& Z- ~! Z' h* ~/ w7 B2：定义原始路径，新的路径及后缀名。
return      : 0
spath_old   : ""
, t, B$ y# ^! q& P: ^+ Fspath       : ""
3 R* S: }1 W9 `! H5 C6 Fspath_new   : ""
0 R$ U# N6 M( E; P$ f6 Xsextnc$     : ".nc"

3 Q- {7 q1 ]. r$ K- W' g3：判断文件夹是否存在，并向NC文件里面写入一些数据。
/ x) H- b. x; U2 q" upheader$
0 f) K/ ]' T% L. [; ]8 P" \' l    spath = smcpath$ + snamenc$   
# I5 }) i% }# Z" s- {  A& F    spath_old = spathnc$+ snamenc$ + sextnc$  
    return = directory(2, spath)   
. |7 B3 V" ~. x    if return = 0, return = directory(1, spath)     
    "G01X0.", e$   
6 V/ o% r- R& Z     "2022-05-01", e$      
     "2022-05-01", e$
. v4 [$ z" E5 r7 T, G* J
. m& w- i' k/ v/ M- y4 K* Q4：定义buffer 1。
sbufname1$   : ""
% O1 n* v6 }& H2 s+ [rc1          : 1
wc1          : 1
2 O2 S" V3 ~  ^6 }* Y- [b1_size      : 0
# W# `+ M" W7 q6 q6 `9 S7 gstr1         : ""
7 y: Q' U6 E& h* D6 }fbuf 1 1 255 0 1
% v# Q" Z0 [, P9 C
5：定义Buffer 2
sbufname2$   : ""
rc2          : 1
- X8 v; w9 c& Mwc2          : 1
' P, A* j" k5 p. \# H7 Bb2_size     : 0
, b# I3 [# }3 Fstr2         : ""
fbuf 2 1 255 0 1

6：利用buffer读取原始NC程序内容，并通过buffer输出到新的位置。
" {$ z: r! I! b2 _) }6 jppost$
' C6 V: B* n; b: l; `- |' ?        return = fclose(spath_old)
        sbufname1$ = spathnc$+ snamenc$ + sextnc$     
       sbufname2$ = smcpath$ + "\" + snamenc$ + "\" + snamenc$ + sextnc$
1 m! B# c$ K% a  q7 {       spath_new = smcpath$ + "\" + snamenc$ + "\" + snamenc$ + sextnc$
       if fexist(sbufname2$), return = remove(sbufname2$)  
' e4 `+ R7 n% ^# `      if fexist(spath_new), return = remove(spath_new)  
3 g- l, C0 M; Y/ F5 C$ n      b1_size = rbuf(1,0)
" Y' v8 y7 w/ d. F5 D2 |: n        rc1 = 1
2 E2 r! J; D. r+ v% E/ w- s8 l       rc2 = 1
        while rc1 <= b1_size,
         [
         str2 = rbuf(1,rc1)  
        str2 = wbuf(2,rc2)  
9 F8 r- {7 `: S  r2 c        ]
                  return = fclose(2)
       if fexist(spath_old), return = remove(spath_old)

+ }4 j& }8 G' t7 j- u5 W' X

75921872

QQQQQQQQWWWWW