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

若枫 · 发表于 2012-5-18 17:10:14

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

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

×

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$下面？

queede · 发表于 2016-8-10 23:51:53

学习学习学习

Y15326888 · 发表于 2016-10-17 19:25:37

谢谢楼主分享

xiaonen770 · 发表于 2018-7-4 15:42:29

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

账号		自动登录	找回密码
密码			立即注册

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

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

站长推荐 /2