浅谈MC—VBScript自动化语言

piaofcu

2 u$ i; M8 w+ b* o$ _- G" o      VBScript是Visual Basic Script的简称，即 VB 脚本语言，缩写VBS。它是微软环境下的一种轻量级的解释型语言。注意形容词：轻量级, 解释型。
1 {5 E6 m9 K) Z' R. }, V9 x      大部分软件都支持VBScript编程。（如AUTOCAD中的AUTOLIST, Office中的VBA也类似...）
% j3 x4 ~( U! B$ y/ t
  b0 _1 i: e, [. s      1. 首先了解一下，VBScript能干什么？   在你使用软件的过程中，经常会有一些重复的操作。假如可以录制一套操作过程（宏），并保存下来，然后在其它需要用到的文件中调用，以减少工作量，那么实现这个过程就是VBScript编程。（为什么不是直接录制后调用呢？因为程序仅是程序， 不是人工智能，有很多细节和错误并不能分辩，只有通过编程语言才能将之清晰的表达出来。）
: A! c3 V' [& l8 o) Z. c' t
, [8 _& P! N, ~9 y" P( t) \& ]      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写出一个简单的程序。
# n6 g- `' P; F; P7 J3 g
    2. Mastercam 中的VBScript
& t8 M' u( C: U% Z
     从Mastercam V9.1开始提供VBScript工具，目的是向更广泛的受众开放编程。任何人都可以使用此脚本语言自动执行Mastercam中的许多任务，例如几何创建和刀具路径生成。
  ]9 U1 W) Q  i1 I3 h& V+ }6 d     
     看到这里，请你先不要高兴的太早。请谨记VBScript的另一特点：轻量级， 并不是所有的任务（操作）都可以通过它来执行。（其可操作范围远不及C / C ++, 当然其难度也远远低于C / C++ ）

' M2 \& q8 f% Z4 A2 O     3. 若想了解VBScript, 该从哪里开始？
# j$ x1 v( n. \, x5 D' l     
8 u9 d4 o0 t6 v       3.1 Microsoft 帮助文档 （以下帮助文档 可以在Mastrercam VBScript编辑器中帮助中打开链接）。
            若您没有一点基础，那么MS 2001年发布的帮助文件“Script56.chm” 可能是你开始熟悉VBScript语法的好地方。有一个好消息是因为这个chm文件发布较早，所以有翻译后的中文版可供 下载 阅读。(图 S0 )            
' O9 O1 k, d* R  p- n( y              https://www.3dportal.cn/discuz/forum.php?mod=attachment&aid=MjM0MDkxMXw4MTU5NzM3NDEwNWY5NDM0MDE1OTFiZjBlOWE5YmNhZXwxNzc4NjA5MzEy&request=yes&_f=.png

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

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

7 j* I; ?; N. J% _# K        3.2 VBS示例文件
: I8 l& S# R: M+ r" u
9 h5 s5 P# W3 L9 k" r6 z) F9 y       每个版本的Mastercam都会提供 大约30个VBS示例文件可供查询，参考。
7 a3 A7 E" o2 J& e4 i       其路径位于：
( S/ z" S" @0 k               <v9>   :  X:\Mcam9\VB\           (v版本位于安装目录VB文件夹下)
                <X>    :  Shared Mcamx*\VB\    (X版本位于共享目录VB文件夹下)
. u8 K0 t4 H3 l! K" u
       这些文件都可以通过记事本打开查看。

+ x1 ~- ~; X8 I; ~6 Z5 ^  k5 G     4. 在Mastercam界面中，从哪里进入VBScript？
1 Q  L; i+ A$ k7 b2 K- N; O$ i         v9 中两种方法可进入：
         (1) Main Menu > Create >Next menu >Add-ins >McamVB*
8 u$ ?4 S; `6 V& d         (2) Alt+C > MCAMVB.DLL
& M8 `! ]; ?& A) v0 Q. B  S
" R/ _  Q/ X  {$ {" J: \2 u1 a         X版本以 X6为例：
         菜单 > 设置 >VB脚本
  n4 Q9 g8 f4 L        "VBScript编辑器" 界面如下：(图 S1)
         https://www.3dportal.cn/discuz/forum.php?mod=attachment&aid=MjM0MDkxMnwyODgyMmI5OTg3NzAwY2RlZWVhY2Y2ZmYyOGJjOWNhOXwxNzc4NjA5MzEy&request=yes&_f=.png
9 d* g" `# y+ ]% L% F6 X3 f. }" d) T
         你可以在其中新建、编辑、或运行一个VBScript文件。

2 k) m6 @( w& r  N: }         PS: 如果觉得进入VBScript的方法有些麻烦，建议你在MC中设置快捷键 'F12' 指向此功能。

     5. 现在，让我们开始进入MC中的VBScript吧。
, I0 @7 U  t6 u; |9 Z; b) |
1 `% g9 A4 z" \! D1 D        5.1 了解VBScript界面和基础知识。
- |' P9 k7 e6 Q% D% H        在"VBScript编辑器"中点击 "New" (新建)， 会弹出界面：(图S3)
* U6 d7 y2 f6 o6 ]; n% x
: z9 \/ u: `/ p7 X5 l/ L: `3 {. h       https://www.3dportal.cn/discuz/forum.php?mod=attachment&aid=MjM0MDkyMXxjMzZhZDJhMDE2MDZjMGI3YTgwZjE4ZDE2OWViOGQ1YnwxNzc4NjA5MzEy&request=yes&_f=.png

2 ~, N$ c. D" B        （1）在帮助中你可以查看当前MC版本VBScript所支持的自动化功能。

        https://www.3dportal.cn/discuz/forum.php?mod=attachment&aid=MjM0MDkxNHwxYjRiNDNkYzFiMjFlN2RiM2VlZTNmYzI0MGZiNGJhOHwxNzc4NjA5MzEy&request=yes&_f=.png
         
$ t  u1 b6 j, ?" W/ T        在VBScript语言中，有一个命令RunMastercamCommand可以访问大部分MC自带的命令，是一个用途较广的功能，而其所能访问的范围在帮助文件中有说明。
+ t" d) }& H0 Y! X, O0 I
' u0 H0 B' `* X; X/ z3 P/ [. ~        https://www.3dportal.cn/discuz/forum.php?mod=attachment&aid=MjM0MDkxNXw3MjQ4NDYxYjU3ZWI0MmQ5N2FlMDhkMjlhZDUyYmZiNnwxNzc4NjA5MzEy&request=yes&_f=.png
$ R5 M8 x& p  K6 S7 D        https://www.3dportal.cn/discuz/forum.php?mod=attachment&aid=MjM0MDkxNnxmMGE5M2Q3ZWIzOWIwZjQ0ZGM4NmM5MDEwZmNlZTVhNXwxNzc4NjA5MzEy&request=yes&_f=.png
        https://www.3dportal.cn/discuz/forum.php?mod=attachment&aid=MjM0MDkxN3wyZTQwODI1ZDg2NzAyNzE4ZTYxODE0YWU5ZjljMDMxMXwxNzc4NjA5MzEy&request=yes&_f=.png
        https://www.3dportal.cn/discuz/forum.php?mod=attachment&aid=MjM0MDkxOHxiZDNkZTQ2MmRhNGM4YjNiYTdlM2UwODRlMGRmZmNhZnwxNzc4NjA5MzEy&request=yes&_f=.png
        
& a! v5 I6 j" k! O       （2）VBScript编辑器中的常用快捷键，可引导编程。
8 F0 w$ k5 P4 q& f* D5 D  r
: E) P4 w! X8 Q# b& t8 Z        https://www.3dportal.cn/discuz/forum.php?mod=attachment&aid=MjM0MDkxOXxhN2YwNWRmZjQyNzEwZjE5YzM3YTExZTE1ZGM0ZTk1YnwxNzc4NjA5MzEy&request=yes&_f=.png
        https://www.3dportal.cn/discuz/forum.php?mod=attachment&aid=MjM0MDkyMHw5ZThhMjVlMmU3OTc2ODkyYzdmN2VlYmNlODI2M2FmZXwxNzc4NjA5MzEy&request=yes&_f=.png
6 s0 m( g- ?# F2 g: W
        5.2 下面，使用一个范例来熟悉VBScript，录入蓝色部分代码(单引号‘之后的内容可以不管)。  [或将附件a1.txt 下载后改扩展名为a1.vbs，在VBScript中调用]  

1. Sub Main()
   ; S; r8 A, s' Y. p3 o
2. 
   ( P$ }# ^( U2 m# }4 C& B# O
3.     Dim mcColor_Current                        '定义变量mcColor_Current（Dim 是关键字,定义变量）
   
4.     mcColor_Current=GetBackGroundColor        '获取当前MC背景颜色
   
5. 
   ' y/ Y1 {+ H' X6 q: K8 H
6.     ShowString("现在我想把屏幕背景弄成白色.")          '显示对话框
   
7.    
   
8.    Call SetBackGroundColor(mcCOLOR_WHITE)        '变更背景颜色为白色
   
9.    Call RepaintScreen(False)                        '刷新屏幕: 一般更改屏幕内容后需要刷新屏幕
   
10.    Call RunMastercamCommand("clipbrd")        '调用内置命令:截图
    
11.            
    
12.    If askYesNo("是否恢复原有背景色?")=1 Then        '询问是否恢复原有MC背景颜色: =1(点击Yes)恢复
    
13.       Call SetBackGroundColor(mcColor_Current)        
    
14.       Call RepaintScreen(False)
    
15.    End If
    7 e- v* I7 P7 j- c3 n( J5 A) G
16.         
    6 C$ O3 W9 d- @) F% A
17. 
    * p5 F5 `1 J  f, s9 P" t4 ?, ^/ u& G
18. End Sub

复制代码

3 r" J* e, l3 _2 |       存档后，调用并运行它，看看会发生什么？
( w7 b" B: a& W5 U* h- }! M( U
$ y& x$ r! @. q1 @. n      首先弹出对话框，点击确定后，工作区屏幕背景会变成白色.
+ m+ [* [/ Q3 J7 H) H      此时正在调用截图功能（看MC提示区信息），框选范围或按ESC键 可以部分或全屏截图到剪贴板中。(打开Excel或画图工具，按Ctrl+V可以粘贴出来截图。)
      当上一个命令执行完毕，会再次弹出对话框，询问是否恢复背景颜色，选是则恢复，否则退出。
5 ?8 v6 q2 N$ y2 m     
5 H" ?3 j) ~( C      从示例中来看，VBS相对而言是一种比较简易的语言，容易理解。

6 ]# g  f. P! G) X     6. 另外再提供一个VBScript示例：[附件a2.txt扩展名改为a2.vbs]  
* K/ T" T# X! \7 h% y* {, r      此VBS用于自动将图档中指定直径的圆（整圆）设定为指定颜色，方便在编程时通过选定颜色的方式 一次性全部选择。


    题外话：
+ Z& [- l# h* k/ R    (1) 本文仅为抛砖引玉，引导初学者了解VBScript这一工具，方便爱好者入门。期盼将来能有大票高手涌现，把编程弄得更简单点。
8 b8 T: ]# h# o% _    (2) 作者本身有一些VB基础，也仅是花费了几天工夫了解VBScript。故如在文中发现错误，请不吝指出并共同探讨。
# N7 \0 ~) H3 d0 ]6 \/ X
) o* e4 K! o7 u/ W" f, X

* K8 F" B3 s$ m! V9 S

9 T% T! ?9 Z# g
& N$ U, W( a8 c! t9 Z
# ?8 l7 a0 z3 V7 M

qq418294654

火钳刘明

梦子_LDxlH

火钳刘明，抢地主。

MING-CNC

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

zhangjing176

干货，感谢分享

gbq937802932

写的非常棒

呵呵仙

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

xinruyu369

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

piaofcu

是太难还是大家对此不感兴趣？
4 c1 O: d0 Z4 J5 y3 \& @& P
! i+ b& S; K$ e! K7 }0 h; C. d再贴一示例： 利用MC自带命令截3视图出来。
5 e% [* L( J! a' i5 Z: _+ O

1. '////////////////////////////////////////////////////////////////////////////////
   3 A7 C! C5 K: [; |/ N# O; \
2. '//        Author:   zrs
   
3. '//          Date:   25-05-2019 02:43 PM
   + s# K) \( Z( N+ i' z
4. '//     File Name:   Get Gviwe Shot
   ) Q) x* c6 u) O
5. '//   Description:   Mastercam VB Script
   4 @3 h' e$ X. Z/ i7 G6 u- v/ p& @
6. '//      Comments:   利用MC自带命令DoBitmapfile截图多个视角的线框模型存档到 C:\ 根目录下.
   - c' O" ~, E' R. u2 N! q
7. '////////////////////////////////////////////////////////////////////////////////
   & \  |/ e7 u2 h( _# ~5 O' r7 R
8. 
   
9. 
   
10. '///////////////// My Constants /////////////////
    6 k# T! D8 [6 ?
11. Const Mydir="C:"               '保存路径
    
12. Const Bitmap_Name="Shot_"       '截图保存的名称前缀
    % T/ I; F- f3 Y9 |1 X: t) |7 C
13. 
    
14. '///////////////// My Global Variables //////////
    6 T2 ]" {8 d$ T/ V$ e
15. Dim ViewNum(2)                  '定义数组变量 () , 数组从0开始，所以数组有0,1,2共3个元素
    
16. ViewNum(0)="1"                  '分别指定3个元素的数值，其中1,2,7对应 MC视角1-TOP, 2-FRONT, 7-ISO
    
17. ViewNum(1)="2"
    
18. ViewNum(2)="7"
    , I8 @/ f" {" Q3 O/ k5 T
19. 
    ' E, R) Q, {! d. n
20. ' -- Start Script
    
21. Call Main()
    
22. 
    1 ]/ l7 Y+ ~$ K8 E* ?- {; }
23. 
    2 _2 S  w, X1 |7 N& T
24. ' ////////////////////
    $ F( I: b0 y% z3 `( d
25. ' Sub Declaration
    4 L4 ~! s3 }( [: M
26. ' ////////////////////
    
27. Sub Main()
    
28.     Dim i,Pnum
    ! E& ~1 A( [5 \/ C; _  C9 ^
29.     Dim strBMP                                      '定义3个变量, i为序号, Pnum为元素, strBMP为字符串:要存档的名称
    
30.     For i=0 To UBound(ViewNum)                      '循环: 从0开始到数组ViewNum在最大数: 则i依次为0,1,2
    9 m! D- I5 F6 w
31.       Pnum=ViewNum(i)                               'i为0时,Pnum数值等于数组内第一个数值,即1
    
32.       strBMP= Mydir& Bitmap_Name & i & ".bmp"       '存档的名字
    
33. 
    
34.       Call GetBitmap(Pnum)                          '呼叫函数GetBitmap, 在最下方
    ; a( e$ q) `! J! C: O
35.       If DoBitmapfile(vbNullString,strbmp) Then     'MC自带命令DoBitmapfile截图
    9 X7 H9 G4 D1 k5 Q% r: o  a9 s
36.       
    6 E# o( n+ z9 h' T! U
37.       Else
    
38.          ShowString "Error!" & strBMP               '如果截图出错显示错误
    9 i9 K8 g$ ^) C: q% l
39.          Exit Sub                                   '并且退出程序
    6 w' Q( g; m* [: n) F
40.       End If
    
41.     Next
    2 k& K' r/ t' X& n" T1 G& d! w
42.     Call RepaintScreen(False)                       '刷新屏幕
    : A" |) y: V3 G9 \
43. End Sub
    * f; C: P: x+ m6 j- J3 U/ H0 k* X) L
44. 
    & i3 ]) k- \( ^) I& U
45. 
    
46. Function GetBitmap(GViewNum)                        '自定义函数GetBitmap
    ' x! j# F6 i. O' n! k; x
47.     Call SetGViewNumber(GViewNum)                   '设定MC视角为指定视角
    ; B& q  n/ N( p1 Y
48.     Call RepaintScreen(False)                       '刷新屏幕
    / N, A- J, K9 \; x. i1 c
49. End Function
    

复制代码

" h/ C* n% V' f$ p
效果如下：
, c2 K8 u5 ^' P. Q1 B   运行后，会在C盘根目录下生成3个截图文件：Shot_0.bmp~Shot_2.bmp

大风刮过

这个可以搞二次开发

wx_ykfxqQi4

刚接触的我一窍不通

poi8848328

真·大神！！

poi8848328

不知道为啥，9.1这三个有两个报错，整圆改指定颜色的没反应，大佬现在还有研究VBS吗？
( t- \( N1 A3 j" c

wx_dfA5IKla

历害了，正好学习一下

DADA7478

感谢分享.......

qiuhunjian

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

ajqfnxk

VBs获取一下程序的编号program#，弄一天了，找不到是那一个Get函数。。。
6 I/ l2 A: x6 @" S* |; G

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

# i; C* H. @! c
  }" ^: K, W! }
6 b; h3 Q  [; A6 Y4 G  o9 E那们大神可以提取出来，，，

3303eaa

平看看

站在无人风口

好像2017以后没有VB文件啊

1547474800

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

chinady

看不懂！！！
太高端了

盛海

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