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

若枫

Mastercam后处理输出程序到指定目录，在Mastercam2017之前是无法直接做到的，如果要达到这个目的，有3个间接的方法：
4 o  g  `) f; U  S: M" U方法1：通过后处理调用控制台程序。
# Z1 Q" ^! I- W( e8 g方法2：通过后处理调用VBScript脚本。
方法3：通过Bat批处理。
# n  B, Z% S1 b) {. L7 _5 c. M方法1需要开发者对控制台程序有一定的开发基础，同时还需要熟悉后处理传递数据到控制台。
# E" |- _, ]5 L/ @. C' [6 G
方法2和方法3测需要利用Buffer来完成，都是用过vbs来实现。
' \) j9 ~4 L0 i: d
( `% I. j3 s6 Z, [+ u4 Y$ J现在我们可以直接利用directory函数创建文件夹。这个直接的方法相对于上面间接的方法有如下优点：
# N5 e& Y; a5 T& z5 r+ c3 B+ R1：可以直接对文件夹进行操作，如删除，新建，判断是否存在。
% I& p, c% B& }# N8 p2：不会因为文件不存在而出现未知错误。
3：可以直接对已经存在的文件夹进行操作。
/ k  u0 m/ l& c! N' R2 J
Mastercam没有直接复制，移动NC程序的函数，想要直接把当前的NC输出到指定的目录，这个需要借助Buffer来实现。但相对非常简单。
1 [+ [, e1 {6 e# i: ~! V! ~以下代码为实现当前输出的NC程序至图档目录下以NC名为名的文件夹下面。
, x8 P' Q4 N5 v2 z1：定义后处理头数据。
[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.


2：定义原始路径，新的路径及后缀名。
0 q% W3 s$ x! y5 Rreturn      : 0
+ j2 `9 v+ `( c0 u: z2 A; ?spath_old   : ""
( O7 A9 B. ]6 g. X5 u- vspath       : ""
+ h' w4 w$ @: H: R& lspath_new   : ""
sextnc$     : ".nc"
, ?5 S+ e; i( l) U  n0 P9 s" P. ^
  h, R  J7 C8 U' n$ p! d3：判断文件夹是否存在，并向NC文件里面写入一些数据。
pheader$
$ W) g) D- y$ t0 `: S. S7 F    spath = smcpath$ + snamenc$   
    spath_old = spathnc$+ snamenc$ + sextnc$  
5 b+ I5 C/ T# Y: E7 }7 R    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
: S( r  f, g$ I% V9 V4 u$ }wc1          : 1
0 Y6 h  y7 t9 N4 Yb1_size      : 0
str1         : ""
fbuf 1 1 255 0 1

5：定义Buffer 2
4 ^6 Z: r/ R, Y1 |1 Psbufname2$   : ""
( \. k6 Q2 W" V# a# V- ~! Irc2          : 1
wc2          : 1
1 y& ?5 w: h' J6 hb2_size     : 0
! I7 ^% i0 c- u# [+ ~! P" M5 A& ?str2         : ""
2 x# e& [! N" _8 Nfbuf 2 1 255 0 1
3 u+ ]+ ]7 h2 I% o# g
6：利用buffer读取原始NC程序内容，并通过buffer输出到新的位置。
ppost$
        return = fclose(spath_old)
4 _1 Y: J% h1 T8 b7 [$ x        sbufname1$ = spathnc$+ snamenc$ + sextnc$     
       sbufname2$ = smcpath$ + "\" + snamenc$ + "\" + snamenc$ + sextnc$
* K- E9 L' N7 s0 X/ n       spath_new = smcpath$ + "\" + snamenc$ + "\" + snamenc$ + sextnc$
) D( [& G2 d+ u" T4 Q; P       if fexist(sbufname2$), return = remove(sbufname2$)  
      if fexist(spath_new), return = remove(spath_new)  
- Z6 i9 _8 {% B% Z, D7 {% ~* n/ |      b1_size = rbuf(1,0)
        rc1 = 1
( t" y& W* `! U# p       rc2 = 1
        while rc1 <= b1_size,
7 c" Z4 d2 [1 P# s; @         [
         str2 = rbuf(1,rc1)  
! P; D0 \- T# z9 ~$ m/ ^        str2 = wbuf(2,rc2)  
        ]
( u! e3 }" o2 g5 @6 {" d% B5 Z                  return = fclose(2)
( M9 l& |% c5 R$ ?. Y: X9 _  F$ j6 o: N       if fexist(spath_old), return = remove(spath_old)
0 V: p6 U7 ?2 A9 s

75921872

QQQQQQQQWWWWW