浅谈MC—VBScript自动化语言

piaofcu · 发表于 2019-5-24 13:57:38

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

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

x

本帖最后由 piaofcu 于 2019-5-25 11:01 编辑

   VBScript是Visual Basic Script的简称，即 VB 脚本语言，缩写VBS。它是微软环境下的一种轻量级的解释型语言。注意形容词：轻量级, 解释型。
   大部分软件都支持VBScript编程。（如AUTOCAD中的AUTOLIST, Office中的VBA也类似...）

   1. 首先了解一下，VBScript能干什么？ 在你使用软件的过程中，经常会有一些重复的操作。假如可以录制一套操作过程（宏），并保存下来，然后在其它需要用到的文件中调用，以减少工作量，那么实现这个过程就是VBScript编程。（为什么不是直接录制后调用呢？因为程序仅是程序，不是人工智能，有很多细节和错误并不能分辩，只有通过编程语言才能将之清晰的表达出来。）

   VBScript脚本语言特点之一是它只需要被解释而不是编译（如C / C ++），故用户编写VBScripts，只需要文本编辑器（例如：记事本）以及一些VBScript（或Visual Basic或Visual Basic for Applications）的基础知识即可，受众面广大。
   大部分软件都使用C/C++编写，包括MC。而一般的二次开发，使用C/C++是一个最佳选择，软件会提供相应的接口使用户能够通过C/C++仿问软件。但是使用C/C++编程并不一项简单的工作，它需要你有大量的C/C++的编程知识（头文件，数据结构，内存，编译器..）... 简单点说，给您一份二次开发的操作过程文档，初学者也并不一定能通过C/C++做出来, 而不出错。但VBScript不同，它只有基本结构，简易的数据类型。你可能需要1~3年掌握并使用C/C++写出一个程序, 但可能仅需要1~3个月，亦或1~3天就能用VBScript写出一个简单的程序。

2. Mastercam 中的VBScript

   从Mastercam V9.1开始提供VBScript工具，目的是向更广泛的受众开放编程。任何人都可以使用此脚本语言自动执行Mastercam中的许多任务，例如几何创建和刀具路径生成。

   看到这里，请你先不要高兴的太早。请谨记VBScript的另一特点：轻量级，并不是所有的任务（操作）都可以通过它来执行。（其可操作范围远不及C / C ++, 当然其难度也远远低于C / C++ ）

   3. 若想了解VBScript, 该从哪里开始？

   3.1 Microsoft 帮助文档（以下帮助文档可以在Mastrercam VBScript编辑器中帮助中打开链接）。
         若您没有一点基础，那么MS 2001年发布的帮助文件“Script56.chm” 可能是你开始熟悉VBScript语法的好地方。有一个好消息是因为这个chm文件发布较早，所以有翻译后的中文版可供下载阅读。(图 S0 )
            http://www.3dportal.cn/discuz/forum.php?mod=attachment&aid=MjM0MDkxMXxlODc3ODQ0NmU3NzQxZGFmODg4NGMzZjMwNDg4YzdhOXwxNzc0NDI1OTMw&request=yes&_f=.png

         而有关使用VBScript自动化的Mastercam文档，在 "MC安装目录\help\VBSCRIPT.Htm" 中可供查询参阅。

          注意：MS和MC中的VBScript解释器有所不同，MC中的语法要求更加严格一些，所以从  参阅大量VBS示例  开始也许是一个很好的选择（3.2）。

      3.2 VBS示例文件

   每个版本的Mastercam都会提供大约30个VBS示例文件可供查询，参考。
   其路径位于：
            <v9> :  X:\Mcam9\VB\          (v版本位于安装目录VB文件夹下)
            <X> :  Shared Mcamx*\VB\ (X版本位于共享目录VB文件夹下)

   这些文件都可以通过记事本打开查看。

   4. 在Mastercam界面中，从哪里进入VBScript？
      v9 中两种方法可进入：
      (1) Main Menu > Create >Next menu >Add-ins >McamVB*
      (2) Alt+C > MCAMVB.DLL

      X版本以 X6为例：
      菜单 > 设置 >VB脚本
      "VBScript编辑器" 界面如下：(图 S1)
      http://www.3dportal.cn/discuz/forum.php?mod=attachment&aid=MjM0MDkxMnxhMjM5NTQ5YzVkYTk2NjUxNjczNTNiOTI1NjI4MzA4NXwxNzc0NDI1OTMw&request=yes&_f=.png

      你可以在其中新建、编辑、或运行一个VBScript文件。

      PS: 如果觉得进入VBScript的方法有些麻烦，建议你在MC中设置快捷键 'F12' 指向此功能。

   5. 现在，让我们开始进入MC中的VBScript吧。

      5.1 了解VBScript界面和基础知识。
      在"VBScript编辑器"中点击 "New" (新建)，会弹出界面：(图S3)

   http://www.3dportal.cn/discuz/forum.php?mod=attachment&aid=MjM0MDkyMXw3Y2I0NjMwOTc1MWY4NDYxMWQ3OGYxYzIyYTBlNDAxM3wxNzc0NDI1OTMw&request=yes&_f=.png

      （1）在帮助中你可以查看当前MC版本VBScript所支持的自动化功能。

      http://www.3dportal.cn/discuz/forum.php?mod=attachment&aid=MjM0MDkxNHw3ZWYxNDFhMmIwM2JkMGMzNWQwNGI0YjUzOGI0YTEzYXwxNzc0NDI1OTMw&request=yes&_f=.png

      在VBScript语言中，有一个命令RunMastercamCommand可以访问大部分MC自带的命令，是一个用途较广的功能，而其所能访问的范围在帮助文件中有说明。

      http://www.3dportal.cn/discuz/forum.php?mod=attachment&aid=MjM0MDkxNXw5NTIyZWY5ZjgzOTAwMGE5YzViM2M3Yzg1NTYyZWZiYXwxNzc0NDI1OTMw&request=yes&_f=.png
      http://www.3dportal.cn/discuz/forum.php?mod=attachment&aid=MjM0MDkxNnw4MzAwOTkzNWMzNTM1OWIyOWQ3Mzc5YmU3ODZmYzE0ZnwxNzc0NDI1OTMw&request=yes&_f=.png
      http://www.3dportal.cn/discuz/forum.php?mod=attachment&aid=MjM0MDkxN3xiMWE4YTdlYTVjMDdlMzg3N2IwYTExMGQ1M2JiN2IwMXwxNzc0NDI1OTMw&request=yes&_f=.png
      http://www.3dportal.cn/discuz/forum.php?mod=attachment&aid=MjM0MDkxOHw5ZWNiNDVhM2UzZGZmMTE3OTY2YTgwYWNlZDJhMmMzM3wxNzc0NDI1OTMw&request=yes&_f=.png

   （2）VBScript编辑器中的常用快捷键，可引导编程。

      http://www.3dportal.cn/discuz/forum.php?mod=attachment&aid=MjM0MDkxOXxlNWIxNTk3MjM1YzBjMTUwNzRhY2RkMzFjNTlkZmY0NHwxNzc0NDI1OTMw&request=yes&_f=.png
      http://www.3dportal.cn/discuz/forum.php?mod=attachment&aid=MjM0MDkyMHwzY2ZhODY2ZDVhZjEyNWRjNmZkYjg1NDE0MjE0MmE0M3wxNzc0NDI1OTMw&request=yes&_f=.png

      5.2 下面，使用一个范例来熟悉VBScript，录入蓝色部分代码(单引号‘之后的内容可以不管)。  [或将附件a1.txt 下载后改扩展名为a1.vbs，在VBScript中调用]

Sub Main()
) ^2 }8 U6 Z+ W9 H# ?$ X
, R/ L) S/ b# ` \. ]" R; j
Dim mcColor_Current '定义变量mcColor_Current（Dim 是关键字,定义变量）" S+ c: f% v% t1 \: H6 X
mcColor_Current=GetBackGroundColor '获取当前MC背景颜色
# c1 f$ b/ {, Q: a; N2 K
0 z/ j: @9 K2 S, B ^6 X
ShowString("现在我想把屏幕背景弄成白色.") '显示对话框
) p7 A2 q6 X7 E. b X3 j$ d- I1 E7 h
3 w! Z6 F L; R7 W) L `
Call SetBackGroundColor(mcCOLOR_WHITE) '变更背景颜色为白色
) C9 k1 E* m1 n P- R6 J
Call RepaintScreen(False) '刷新屏幕: 一般更改屏幕内容后需要刷新屏幕
2 _- \: A# E# A, t( @
Call RunMastercamCommand("clipbrd") '调用内置命令:截图5 e7 B6 Z* V' I& h, E
, f9 [* J1 t- ^: g3 |9 \* g
If askYesNo("是否恢复原有背景色?")=1 Then '询问是否恢复原有MC背景颜色: =1(点击Yes)恢复+ W; r$ p& M) z" j
Call SetBackGroundColor(mcColor_Current)
: y, i1 ^6 {! X) M
Call RepaintScreen(False)1 R7 v: C7 X; I; I+ }! ]# B
End If
" c1 p4 D* r- _$ D4 I4 b9 ]
6 k+ y2 T, O; b' p( W8 I
) x# n7 N4 o) J# L
End Sub

复制代码

   存档后，调用并运行它，看看会发生什么？

   首先弹出对话框，点击确定后，工作区屏幕背景会变成白色.
   此时正在调用截图功能（看MC提示区信息），框选范围或按ESC键可以部分或全屏截图到剪贴板中。(打开Excel或画图工具，按Ctrl+V可以粘贴出来截图。)
   当上一个命令执行完毕，会再次弹出对话框，询问是否恢复背景颜色，选是则恢复，否则退出。

   从示例中来看，VBS相对而言是一种比较简易的语言，容易理解。

   6. 另外再提供一个VBScript示例：[附件a2.txt扩展名改为a2.vbs]
    此VBS用于自动将图档中指定直径的圆（整圆）设定为指定颜色，方便在编程时通过选定颜色的方式一次性全部选择。

题外话：
(1) 本文仅为抛砖引玉，引导初学者了解VBScript这一工具，方便爱好者入门。期盼将来能有大票高手涌现，把编程弄得更简单点。

(2) 作者本身有一些VB基础，也仅是花费了几天工夫了解VBScript。故如在文中发现错误，请不吝指出并共同探讨。

qq418294654 · 发表于 2019-5-24 14:22:20

火钳刘明

梦子_LDxlH · 发表于 2019-5-24 14:26:00

火钳刘明，抢地主。

MING-CNC · 发表于 2019-5-24 14:26:02

666感谢分享——有时间我也试试

zhangjing176 · 发表于 2019-5-24 14:47:55

干货，感谢分享

gbq937802932 · 发表于 2019-5-24 15:30:40

写的非常棒

呵呵仙 · 发表于 2019-5-24 19:48:09

解释全部的开放接口才是重点吧？

xinruyu369 · 发表于 2019-5-25 14:17:22

这个很厉害了，如果可以把以前的NC转换NCI单独提出来到后面的X版本用，就解决我的一大心愿了

piaofcu · 发表于 2019-5-25 15:41:36

是太难还是大家对此不感兴趣？

再贴一示例：利用MC自带命令截3视图出来。

'////////////////////////////////////////////////////////////////////////////////8 r6 ~- m6 m- P
'// Author: zrs% w4 D7 I9 o! ?; E( P/ r
'// Date: 25-05-2019 02:43 PM
0 F( I0 M0 }4 B
'// File Name: Get Gviwe Shot
6 S4 ^3 U! i: _& f7 T* [% c1 ]8 K" q
'// Description: Mastercam VB Script& |2 y) ^, T' W! @' |9 E# I6 y- K5 j- V
'// Comments: 利用MC自带命令DoBitmapfile截图多个视角的线框模型存档到 C:\ 根目录下.
+ @0 O0 ^1 f- b L5 A: t: o
'////////////////////////////////////////////////////////////////////////////////
6 w1 N/ q. h% u1 D
2 _+ z$ K( Y3 z$ ?. N
6 n" |" Y8 U3 W$ S0 I
'///////////////// My Constants ///////////////// a( {5 p/ F. D: l5 ~" ^
Const Mydir="C:" '保存路径3 ~& E& J p8 i% ]9 { C
Const Bitmap_Name="Shot_" '截图保存的名称前缀
9 J4 L# p: E1 S$ e1 K/ d, f h
" z# ~9 B5 C" @
'///////////////// My Global Variables //////////
* a5 u0 X9 z7 p y
Dim ViewNum(2) '定义数组变量 () , 数组从0开始，所以数组有0,1,2共3个元素/ B) l& X/ K' H
ViewNum(0)="1" '分别指定3个元素的数值，其中1,2,7对应 MC视角1-TOP, 2-FRONT, 7-ISO1 }! N% m+ {* k4 @2 V* M
ViewNum(1)="2"7 b2 d6 p' y: e, L: N. D
ViewNum(2)="7"
- T" _2 B: P5 D3 w5 e1 L
4 ~( y6 E0 J! u# a% e1 A+ q
' -- Start Script
0 Y% D, w: ~) D" l" J
Call Main()
& B8 M+ w7 T% v4 p, B
. f1 s7 W0 K0 ?9 ^$ N, A7 ]
- x$ t% Z( r( X& P
' ////////////////////- ]; u, x1 M. ]. \' o, }. m0 ?, {
' Sub Declaration
8 f' L& ]% i; O9 x6 K3 ]
' ////////////////////* L0 `) ~1 N. i1 V! T! K' P+ Q
Sub Main()
! S* ~7 p# ~! j# _
Dim i,Pnum
! T1 w/ X6 G( r# ]+ E% {" h9 s
Dim strBMP '定义3个变量, i为序号, Pnum为元素, strBMP为字符串:要存档的名称, B+ C6 e' F5 W3 `
For i=0 To UBound(ViewNum) '循环: 从0开始到数组ViewNum在最大数: 则i依次为0,1,2 C. D$ s$ I p+ X# Q
Pnum=ViewNum(i) 'i为0时,Pnum数值等于数组内第一个数值,即1; ^: I$ C+ k( \! U, N3 v' E4 P0 i
strBMP= Mydir& Bitmap_Name & i & ".bmp" '存档的名字. v8 g* T) y' Y0 S' f+ G- o- F. z
4 M. }& \7 @" S: s! j) S; P
Call GetBitmap(Pnum) '呼叫函数GetBitmap, 在最下方4 Z' j+ |. H& X# s9 n
If DoBitmapfile(vbNullString,strbmp) Then 'MC自带命令DoBitmapfile截图: `+ ?5 T; I6 E
& }" d# b. B" ^+ Q) |" e5 |# V6 [) V$ F
Else1 l9 r/ v' c4 h5 ], q& S
ShowString "Error!" & strBMP '如果截图出错显示错误
/ f8 u0 Z2 C) X' C9 s# Q9 Y. _) S: g
Exit Sub '并且退出程序5 b& {; F* X+ w `5 L+ e
End If; K9 O! A* C, O6 x
Next& d8 g4 T$ Z4 }& U5 ]
Call RepaintScreen(False) '刷新屏幕
( U1 u4 T& q* q. ?$ u
End Sub' @' |! y: B" R; z7 U
! Q' l/ `9 s# M8 |" H# {
" X) d; m4 h& _- k
Function GetBitmap(GViewNum) '自定义函数GetBitmap! h) H: S. A7 m( }) \7 c9 R4 {
Call SetGViewNumber(GViewNum) '设定MC视角为指定视角
6 {, t, P" x9 n U0 x4 F
Call RepaintScreen(False) '刷新屏幕 E- n: k9 u4 E( F7 D
End Function8 T. b; \+ r6 a" x

复制代码

效果如下：8 E$ P& u5 D& e/ d% e& F
运行后，会在C盘根目录下生成3个截图文件：Shot_0.bmp~Shot_2.bmp

大风刮过 · 发表于 2019-5-31 10:22:24

这个可以搞二次开发

wx_ykfxqQi4 · 发表于 2019-5-31 19:43:29

刚接触的我一窍不通

poi8848328 · 发表于 2019-9-11 12:23:46

真·大神！！

poi8848328 · 发表于 2019-9-11 12:35:24

不知道为啥，9.1这三个有两个报错，整圆改指定颜色的没反应，大佬现在还有研究VBS吗？

wx_dfA5IKla · 发表于 2019-9-17 11:26:02

历害了，正好学习一下

DADA7478 · 发表于 2019-9-18 20:18:29

感谢分享.......

qiuhunjian · 发表于 2019-11-11 08:31:29

看着很厉害的样子，反正我也不懂。

ajqfnxk · 发表于 2020-3-19 18:02:08

VBs获取一下程序的编号program#，弄一天了，找不到是那一个Get函数。。。

[url=]http://www.3dportal.cn/discuz/forum.php?mod=image&aid=2350213&size=300x300&key=50c71c6591ccc7b8&nocache=yes&type=fixnone[/url]

那们大神可以提取出来，，，

3303eaa · 发表于 2020-3-19 18:43:00

平看看

站在无人风口 · 发表于 2020-10-22 11:36:36

好像2017以后没有VB文件啊

1547474800 · 发表于 2020-11-11 16:42:23

高级货，懵逼中，希望楼主持续更新

chinady · 发表于 2021-3-11 20:48:26

看不懂！！！
太高端了

盛海 · 发表于 2021-3-15 14:27:22

绝对是精华贴，在 ActiceReports 里面还可以用 C# 做脚本，估计 MC现在这支持。

		自动登录	找回密码
密码			注册

通知

[原创] 浅谈MC—VBScript自动化语言

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

浏览过的版块