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

若枫

Mastercam后处理输出程序到指定目录，在Mastercam2017之前是无法直接做到的，如果要达到这个目的，有3个间接的方法：
方法1：通过后处理调用控制台程序。
; V2 S& a* \: Q/ m方法2：通过后处理调用VBScript脚本。
, g8 h# k  `/ n方法3：通过Bat批处理。
7 u4 z4 {" o- Y8 l* A( C方法1需要开发者对控制台程序有一定的开发基础，同时还需要熟悉后处理传递数据到控制台。

方法2和方法3测需要利用Buffer来完成，都是用过vbs来实现。
8 g1 x. Y' P+ E
现在我们可以直接利用directory函数创建文件夹。这个直接的方法相对于上面间接的方法有如下优点：
1 v. D( R! [# v! b# R9 Q1：可以直接对文件夹进行操作，如删除，新建，判断是否存在。
( Z+ U, q3 @8 {2：不会因为文件不存在而出现未知错误。
; v: G1 D6 C  N  [* k( w* i3：可以直接对已经存在的文件夹进行操作。

$ q3 O$ t9 j5 M& jMastercam没有直接复制，移动NC程序的函数，想要直接把当前的NC输出到指定的目录，这个需要借助Buffer来实现。但相对非常简单。
4 U( B: t$ U! ]& l* V以下代码为实现当前输出的NC程序至图档目录下以NC名为名的文件夹下面。
1 a8 s% P3 r+ g9 t1：定义后处理头数据。
[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 Z8 [. Y/ |, y

2：定义原始路径，新的路径及后缀名。
return      : 0
spath_old   : ""
4 ]/ G0 z! E6 X; w$ z0 i: |) nspath       : ""
/ g( F) A! \0 H& |" }6 Sspath_new   : ""
* Y: |2 z( T. [1 i9 P" o  I, Psextnc$     : ".nc"

& e) I  a2 K  \& _) L) o3：判断文件夹是否存在，并向NC文件里面写入一些数据。
* @/ _" ]0 S- \pheader$
6 L% b% l* ]/ I  v- Z    spath = smcpath$ + snamenc$   
2 H% P0 v6 Z7 y: y, g    spath_old = spathnc$+ snamenc$ + sextnc$  
  C  `: i1 p5 v" @7 Q    return = directory(2, spath)   
8 V7 z% J: u* v/ ^: w) F5 _    if return = 0, return = directory(1, spath)     
    "G01X0.", e$   
     "2022-05-01", e$      
% U( |5 |$ x" P9 T+ {     "2022-05-01", e$
# V- G5 G" w2 w& I0 S! D/ l  u
4：定义buffer 1。
sbufname1$   : ""
rc1          : 1
( ]# ]" a0 i# {4 B7 a' @( Lwc1          : 1
b1_size      : 0
str1         : ""
0 c" P8 J% a! e# rfbuf 1 1 255 0 1

& a+ K/ a0 z% Z/ k" j' R5：定义Buffer 2
- b! e; q' V# k& S' F. W" Ksbufname2$   : ""
# r, k, C. c9 A& f) Y: {! Wrc2          : 1
% [6 F8 H4 p! z+ T' kwc2          : 1
b2_size     : 0
str2         : ""
* z; |5 H6 q% h* X2 mfbuf 2 1 255 0 1

6：利用buffer读取原始NC程序内容，并通过buffer输出到新的位置。
ppost$
) a" P- i( |" l9 k. s1 g        return = fclose(spath_old)
$ l3 Q; D- o( ]% w        sbufname1$ = spathnc$+ snamenc$ + sextnc$     
/ k# m2 Y1 U$ J* \       sbufname2$ = smcpath$ + "\" + snamenc$ + "\" + snamenc$ + sextnc$
2 [6 G! q5 k9 ^1 L0 ]/ P# e$ g. U       spath_new = smcpath$ + "\" + snamenc$ + "\" + snamenc$ + sextnc$
       if fexist(sbufname2$), return = remove(sbufname2$)  
) O+ H' w0 d% X3 Q3 {" k      if fexist(spath_new), return = remove(spath_new)  
1 F& }. u! V5 {8 R) Z      b1_size = rbuf(1,0)
        rc1 = 1
       rc2 = 1
% d  F5 X* v  a4 U7 r5 M  I; a        while rc1 <= b1_size,
         [
1 j1 U4 |% {( n* U( ^; p5 w3 A- T         str2 = rbuf(1,rc1)  
. p+ f" h5 n7 f% P8 e        str2 = wbuf(2,rc2)  
        ]
                  return = fclose(2)
       if fexist(spath_old), return = remove(spath_old)
! d. ^4 L- l; j/ |! A
) ?5 @5 P0 \, L. P: j

75921872

QQQQQQQQWWWWW