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

若枫

Mastercam后处理输出程序到指定目录，在Mastercam2017之前是无法直接做到的，如果要达到这个目的，有3个间接的方法：
方法1：通过后处理调用控制台程序。
3 j9 c2 b* _0 ?& u- J, c方法2：通过后处理调用VBScript脚本。
/ h6 Z- E2 ~  j0 p. ~方法3：通过Bat批处理。
, o1 y9 f- K. a( H% b方法1需要开发者对控制台程序有一定的开发基础，同时还需要熟悉后处理传递数据到控制台。

方法2和方法3测需要利用Buffer来完成，都是用过vbs来实现。
/ m3 J: n. L& R% O, d$ p2 O
: N% S5 [8 b; p  ]# v现在我们可以直接利用directory函数创建文件夹。这个直接的方法相对于上面间接的方法有如下优点：
9 i; T2 b% z* B/ G8 `' j  k1：可以直接对文件夹进行操作，如删除，新建，判断是否存在。
% ?4 K& z8 Q/ B2：不会因为文件不存在而出现未知错误。
3：可以直接对已经存在的文件夹进行操作。

  h/ _" G* {" ZMastercam没有直接复制，移动NC程序的函数，想要直接把当前的NC输出到指定的目录，这个需要借助Buffer来实现。但相对非常简单。
. K% E6 t- ]2 E3 m* ]& s7 V以下代码为实现当前输出的NC程序至图档目录下以NC名为名的文件夹下面。
1：定义后处理头数据。
[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.
& h) s/ m7 F1 j3 ^5 ]+ a+ f. Xscustpost_revision   = "0"  # Revision number for use by Resellers or customers.

. u" A3 Y; N4 k: C
2：定义原始路径，新的路径及后缀名。
3 m/ s4 b% A( F6 [return      : 0
1 E# S! D. g( c$ _, \$ {( ospath_old   : ""
: Z0 d) k% X! d7 I  W; ?spath       : ""
) r! y! C, t: Y/ ?spath_new   : ""
sextnc$     : ".nc"
" A6 _$ C" @3 I4 T* \4 u( b
3：判断文件夹是否存在，并向NC文件里面写入一些数据。
/ {$ |3 m2 Y$ {+ d* ~1 N. P& hpheader$
" U8 k3 N( ?- I( v( V  l9 I7 {    spath = smcpath$ + snamenc$   
3 Q5 ], D9 L* I/ v  `- G' e% C* J9 U# N    spath_old = spathnc$+ snamenc$ + sextnc$  
( I+ K% z  \$ p2 v' W1 E    return = directory(2, spath)   
    if return = 0, return = directory(1, spath)     
    "G01X0.", e$   
+ u7 o0 s; T3 F7 Y     "2022-05-01", e$      
5 @4 I0 Y) w% `7 b( {- J7 [5 o3 l     "2022-05-01", e$
) T4 _) i: _+ u, i
4：定义buffer 1。
) z, a  X4 |) P+ b0 psbufname1$   : ""
rc1          : 1
wc1          : 1
b1_size      : 0
5 W2 v/ i5 F$ kstr1         : ""
fbuf 1 1 255 0 1
0 f0 u# [5 ~: ~
5：定义Buffer 2
sbufname2$   : ""
rc2          : 1
1 r: V' w2 s6 }7 H" D+ Z( o2 Hwc2          : 1
5 Z8 B6 R  g& Zb2_size     : 0
9 X* h+ ~9 j# b- H6 Zstr2         : ""
fbuf 2 1 255 0 1
, V! W0 o1 V% @/ G
& F8 B% n6 P" ]5 a( T6：利用buffer读取原始NC程序内容，并通过buffer输出到新的位置。
! l8 ?" Y& g' Cppost$
        return = fclose(spath_old)
        sbufname1$ = spathnc$+ snamenc$ + sextnc$     
       sbufname2$ = smcpath$ + "\" + snamenc$ + "\" + snamenc$ + sextnc$
( I: R0 H: {+ h5 }3 F: P       spath_new = smcpath$ + "\" + snamenc$ + "\" + snamenc$ + sextnc$
7 j" g* ^, Z/ Y, l! v       if fexist(sbufname2$), return = remove(sbufname2$)  
. f- h3 C- s7 |8 \+ p      if fexist(spath_new), return = remove(spath_new)  
  W- `# s9 z/ X( c      b1_size = rbuf(1,0)
4 a! t! }1 ^) |8 ]9 i4 ]! o        rc1 = 1
5 \6 \& G6 }. _; [' Q       rc2 = 1
        while rc1 <= b1_size,
4 _1 Y% c5 T* _8 s6 R) E         [
6 }2 U# o  O1 |+ z, I* L; ^  P: O         str2 = rbuf(1,rc1)  
        str2 = wbuf(2,rc2)  
        ]
1 W& P3 D# R/ b" N& B1 w, O                  return = fclose(2)
       if fexist(spath_old), return = remove(spath_old)

" ]" {! a, D: c% D4 \

75921872

QQQQQQQQWWWWW