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

若枫

Mastercam后处理输出程序到指定目录，在Mastercam2017之前是无法直接做到的，如果要达到这个目的，有3个间接的方法：
2 b. Z: f4 \0 B  E: Q6 |& n方法1：通过后处理调用控制台程序。
方法2：通过后处理调用VBScript脚本。
6 n/ f8 X9 G. X$ ]: f$ Q! }& ^2 W方法3：通过Bat批处理。
方法1需要开发者对控制台程序有一定的开发基础，同时还需要熟悉后处理传递数据到控制台。
7 {# ~7 H4 x# O# A: x) O! `
" v2 F$ r+ h  \$ @+ _3 U. S4 E方法2和方法3测需要利用Buffer来完成，都是用过vbs来实现。

8 t. R1 w; H7 n, Q$ k. h现在我们可以直接利用directory函数创建文件夹。这个直接的方法相对于上面间接的方法有如下优点：
  ]- V& G9 I  c+ b( p; D1：可以直接对文件夹进行操作，如删除，新建，判断是否存在。
2：不会因为文件不存在而出现未知错误。
3：可以直接对已经存在的文件夹进行操作。
9 Q( V2 p" d1 _: L7 ~
Mastercam没有直接复制，移动NC程序的函数，想要直接把当前的NC输出到指定的目录，这个需要借助Buffer来实现。但相对非常简单。
" @  c  |# _" f: [以下代码为实现当前输出的NC程序至图档目录下以NC名为名的文件夹下面。
3 B4 e; ?. m/ j. Z4 ?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.
scustpost_revision   = "0"  # Revision number for use by Resellers or customers.
9 E/ @) H( P4 V" L1 k( A- T

2：定义原始路径，新的路径及后缀名。
. r9 h( n) i1 n- Qreturn      : 0
spath_old   : ""
+ t# I2 @& y9 h/ f) ~5 a. T% q2 F2 Mspath       : ""
spath_new   : ""
sextnc$     : ".nc"
, d' i/ L' T6 r/ x# n
! O* A! q6 i1 s1 j. s) j/ C& r3：判断文件夹是否存在，并向NC文件里面写入一些数据。
pheader$
" h, J/ f' X" }: o3 s( J    spath = smcpath$ + snamenc$   
    spath_old = spathnc$+ snamenc$ + sextnc$  
# ~$ J8 J8 `9 V' c5 }    return = directory(2, spath)   
5 o, Q& G5 V. h' e4 e" K; o    if return = 0, return = directory(1, spath)     
3 `' |9 E$ Q8 j: q2 m7 H( m& [1 k    "G01X0.", e$   
     "2022-05-01", e$      
     "2022-05-01", e$
5 p. h+ @/ z5 L
4：定义buffer 1。
sbufname1$   : ""
/ @* q7 d6 e% H4 F; mrc1          : 1
3 {" r8 ?0 \: ?wc1          : 1
b1_size      : 0
9 t! Y: K5 ^* N( ?2 wstr1         : ""
& ~6 E" J8 m$ j) m( `. r7 _' c6 afbuf 1 1 255 0 1
2 s7 A1 q6 R0 H; T
/ z# X7 u: b- O% q5：定义Buffer 2
sbufname2$   : ""
" ^! f8 O& H5 w) s/ e  o, wrc2          : 1
wc2          : 1
b2_size     : 0
- t. a2 N* r3 A3 e# Estr2         : ""
fbuf 2 1 255 0 1

6：利用buffer读取原始NC程序内容，并通过buffer输出到新的位置。
ppost$
1 I! V: P1 O$ ~% R" m        return = fclose(spath_old)
4 z/ ?: U" t8 e' B        sbufname1$ = spathnc$+ snamenc$ + sextnc$     
       sbufname2$ = smcpath$ + "\" + snamenc$ + "\" + snamenc$ + sextnc$
       spath_new = smcpath$ + "\" + snamenc$ + "\" + snamenc$ + sextnc$
       if fexist(sbufname2$), return = remove(sbufname2$)  
      if fexist(spath_new), return = remove(spath_new)  
      b1_size = rbuf(1,0)
% z+ b9 g! o9 D6 [8 n9 B! ^3 l- g        rc1 = 1
       rc2 = 1
* j! }, |" |/ L" k% x) \1 F, p        while rc1 <= b1_size,
* K3 Z3 ^9 K6 n4 F# {% y( O         [
( G# o- Y( J+ i& l! K         str2 = rbuf(1,rc1)  
        str2 = wbuf(2,rc2)  
+ \' c2 G" R9 c        ]
3 j" b+ z" K  m  T, l0 |                  return = fclose(2)
; Q4 I) @9 ?9 p* A: D/ D5 c       if fexist(spath_old), return = remove(spath_old)

  }7 s7 y. z$ F2 g! [. t

75921872

QQQQQQQQWWWWW