5.1.6：mastercam后处理中增加电脑用户名开发实例

若枫

5.1.6：mastercam后处理中增加电脑用户名开发实例
2 L1 V( w" f: ^$ `


mastercam v9.1代码
1.首先定义vbs脚本文件路径
strVBS_user   "C:\Documents and Settings\All Users\Documents\shared mcamx5\vb\Call_username.VBS"
3 H- _+ I: z3 R5 o$ S
2.定义读取外部数据的参数，这里我们用80
9 |, @$ u% J" O+ ]#-----------------------------------------------------------------------------
# Define a string that holds the name of the  VBS script to be run.
#-----------------------------------------------------------------------------
: S" G' F- R% d, T6 x4 ifbuf  3  0  80  1 1# Define a string buffer (3rd parameter is '80')
sbufname3  : "username.txt"  # "Point" to the external text file
rc3 : 0     # This variable will be the 'record read pointer' for buffer 3
b3_size : 0 # Define a variable to hold the 'size' of the buffer
            # The '0' record of a buffer ALWAYS contains a  numeric value
            # which is how many records in the buffer.
/ G$ [) e( h$ n8 Q  u4 H2 [stext  : ""      # Define a string variable to hold a line of text read in from
/ c  K# V1 j4 V% ^$ M1 d            # the buffer

3.增加读取外部数据到当前程序的命令
+ B* {/ Z( x8 w0 E. C# p: V% Wpreadbuf3  # Call to our postlock that reads in from buffer #3 (6/21/2002)
      #------ #Added (6/21/2002) ------
      sbufname3 = spathnc + sbufname3
      b3_size = rbuf(3, 0) # The '0' record of a buffer ALWAYS contains a
                           # numeric value = how many records in the buffer.
      rc3 = 1   # Our text data start at record #1
      while rc3 <= b3_size,
        [
. N+ z. x1 M" Z/ ^7 N* ]' Z4 [          stext = rbuf (3, rc3)
          stext = ucase (stext)
          "(CREAT BY - ",stext,")",e
% c- X( Y! s  x% {6 }+ o          result = remove(sbufname3)
          #plice1
        ]

4.在需要输出用户名的位置调用preadbuf3命令块
& ]; [* t- M& S3 }/ W* Q
5.在pheader 下面增加运行vbs脚本的代码
% s/ d8 ~$ H7 _      result = runvbs(strVBS_user)   
6 Z+ f8 y& Q! u4 u
7 j% w' k" {  G) a& r/ g6.问题，为何要放在pheader下面？


- @5 d: G9 ^4 Z+ |6 o" {
( _+ a& \8 B2 {% U/ ]& s+ H* C  [mastercam X5代码
1.首先定义vbs脚本文件路径
strVBS_user  : "C:\Documents and Settings\All Users\Documents\shared mcamx5\vb\Call_username.VBS"

  l5 \, X2 }- ^; R2 o2.定义读取外部数据的参数，这里我们用80
$ y- L! o1 k# G' Z#-----------------------------------------------------------------------------
# Define a string that holds the name of the  VBS script to be run.
" \# [2 O6 Y$ ]#-----------------------------------------------------------------------------
, e* i" i* F" e  v: [; \6 x7 Ffbuf  3  0  80  1 1# Define a string buffer (3rd parameter is '80')
% p! S) \' L4 B6 w- k& hsbufname3$  : "username.txt"  # "Point" to the external text file
rc3 : 0     # This variable will be the 'record read pointer' for buffer 3
0 Q( \7 h; s8 ub3_size : 0 # Define a variable to hold the 'size' of the buffer
            # The '0' record of a buffer ALWAYS contains a  numeric value
" D! ]! ^" R7 M. j) p            # which is how many records in the buffer.
stext  : ""      # Define a string variable to hold a line of text read in from
            # the buffer
# e8 I# q* z, {
3.增加读取外部数据到当前程序的命令
preadbuf3  # Call to our postlock that reads in from buffer #3 (6/21/2002)
$ c* H& w, b' ]- f4 k      #------ #Added (6/21/2002) ------
8 n- D! d; B# Y) t) r; R, |+ f      sbufname3$ = spathnc$ + sbufname3$
# j& X* ?7 I4 i# T! ?      b3_size = rbuf(3, 0) # The '0' record of a buffer ALWAYS contains a
" Z5 u8 @1 R/ R( c6 {! j                           # numeric value = how many records in the buffer.
8 F" ?4 ?+ E' @9 K" Q      rc3 = 1   # Our text data start at record #1
& S6 n6 G4 ?4 g& y3 h      while rc3 <= b3_size,
        [
          stext = rbuf (3, rc3)
2 C* R  l0 L4 n' w. W          stext = ucase (stext)
2 v* r  b- D- u9 o  L$ ~6 R          "(CREAT BY - ",stext,")",e$
          result = remove(sbufname3$)
          #plice1
) V3 w/ d. I0 s% ^% o3 g7 b- n" n        ]
2 b, l. {% a7 N7 w: X2 P) |. {
4.在需要输出用户名的位置调用preadbuf3命令块
4 O$ T$ `$ w9 u$ E( Y( M
5.在pheader$ 下面增加运行vbs脚本的代码
      result = runvbs(strVBS_user)   
. {- t  f5 u0 S- Y) F  _: `+ M
; p. \  P; v1 Z" m9 s5 Y" D$ A! K6.问题，为何要放在pheader$下面？

queede

学习学习学习

Y15326888

谢谢楼主分享

xiaonen770

果然没什么人学了 坛主也没有了更新的欲望 最近蔷薇的羽翼更新的文章都很贴近实际