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

若枫 · 发表于 2012-6-7 16:46:28

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区

您需要登录才可以下载或查看，没有账号？立即注册

×

5.1.6：mastercam后处理中增加电脑用户名开发实例
mastercam v9.1代码
1.首先定义vbs脚本文件路径
strVBS_user "C:\Documents and Settings\All Users\Documents\shared mcamx5\vb\Call_username.VBS"

2.定义读取外部数据的参数，这里我们用80,加大读取外部数据的缓冲区
#-----------------------------------------------------------------------------
# Define a string that holds the name of the  VBS script to be run.
#-----------------------------------------------------------------------------
fbuf  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.
stext  : ""    # Define a string variable to hold a line of text read in from
         # the buffer

3.增加读取外部数据到当前程序的命令
preadbuf3  # 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,
      [
      stext = rbuf (3, rc3)
      stext = ucase (stext)
      "(CREAT BY - ",stext,")",e
      result = remove(sbufname3)
      #plice1
      ]

4.在需要输出用户名的位置调用preadbuf3命令块

5.在pheader 下面增加运行vbs脚本的代码
   result = runvbs(strVBS_user)

6.问题，为何要放在pheader下面？

mastercam X5代码
1.首先定义vbs脚本文件路径
strVBS_user  : "C:\Documents and Settings\All Users\Documents\shared mcamx5\vb\Call_username.VBS"

2.定义读取外部数据的参数，这里我们用80
#-----------------------------------------------------------------------------
# Define a string that holds the name of the  VBS script to be run.
#-----------------------------------------------------------------------------
fbuf  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.
stext  : ""    # Define a string variable to hold a line of text read in from
         # the buffer

3.增加读取外部数据到当前程序的命令
preadbuf3  # 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,
      [
      stext = rbuf (3, rc3)
      stext = ucase (stext)
      "(CREAT BY - ",stext,")",e$
      result = remove(sbufname3$)
      #plice1
      ]

4.在需要输出用户名的位置调用preadbuf3命令块

5.在pheader$ 下面增加运行vbs脚本的代码
   result = runvbs(strVBS_user)

6.问题，为何要放在pheader$下面？

下面是做好的后处理，可直接使用
解压密码：http://postp.net

游客，如果您要查看本帖隐藏内容请回复