浅谈MC—VBScript自动化语言

piaofcu

, ~+ _0 F) Q% X2 t2 b& I      VBScript是Visual Basic Script的简称，即 VB 脚本语言，缩写VBS。它是微软环境下的一种轻量级的解释型语言。注意形容词：轻量级, 解释型。
' j; `7 V2 n3 ?, b      大部分软件都支持VBScript编程。（如AUTOCAD中的AUTOLIST, Office中的VBA也类似...）
, |$ [" t5 K( u5 \% q
1 k" H( ^) E. J# f: B- k1 @      1. 首先了解一下，VBScript能干什么？   在你使用软件的过程中，经常会有一些重复的操作。假如可以录制一套操作过程（宏），并保存下来，然后在其它需要用到的文件中调用，以减少工作量，那么实现这个过程就是VBScript编程。（为什么不是直接录制后调用呢？因为程序仅是程序， 不是人工智能，有很多细节和错误并不能分辩，只有通过编程语言才能将之清晰的表达出来。）
/ K  ^4 @" c$ f6 j: Y
. `8 d$ F, m4 M7 e6 E- I      VBScript脚本语言特点之一是它只需要被解释而不是编译（如C / C ++），故用户编写VBScripts，只需要文本编辑器（例如：记事本）以及一些VBScript（或Visual Basic或Visual Basic for Applications）的基础知识即可，受众面广大。
7 }$ G5 H- P. H8 C! l     大部分软件都使用C/C++编写，包括MC。而一般的二次开发，使用C/C++是一个最佳选择，软件会提供相应的接口使用户能够通过C/C++仿问软件。但是使用C/C++编程并不一项简单的工作，它需要你有大量的C/C++的编程知识（头文件，数据结构，内存，编译器..）... 简单点说，给您一份二次开发的操作过程文档，初学者也并不一定能通过C/C++做出来, 而不出错。但VBScript不同，它只有基本结构，简易的数据类型。你可能需要1~3年掌握并使用C/C++写出一个程序, 但可能仅需要1~3个月，亦或1~3天就能用VBScript写出一个简单的程序。
8 o; W! N) M% x7 q
, h0 }% e2 T2 f5 y! h1 c+ p: N    2. Mastercam 中的VBScript
/ s* O0 V8 @6 o! O2 U- a7 w
     从Mastercam V9.1开始提供VBScript工具，目的是向更广泛的受众开放编程。任何人都可以使用此脚本语言自动执行Mastercam中的许多任务，例如几何创建和刀具路径生成。
     
2 V6 e$ y1 h0 g1 y$ r3 x     看到这里，请你先不要高兴的太早。请谨记VBScript的另一特点：轻量级， 并不是所有的任务（操作）都可以通过它来执行。（其可操作范围远不及C / C ++, 当然其难度也远远低于C / C++ ）
) d6 Q2 R# \# d9 H, n( N
7 U" I! [% Y, U! s. ~. y/ Y     3. 若想了解VBScript, 该从哪里开始？
     
, K4 r! x- r+ u: r1 m       3.1 Microsoft 帮助文档 （以下帮助文档 可以在Mastrercam VBScript编辑器中帮助中打开链接）。
            若您没有一点基础，那么MS 2001年发布的帮助文件“Script56.chm” 可能是你开始熟悉VBScript语法的好地方。有一个好消息是因为这个chm文件发布较早，所以有翻译后的中文版可供 下载 阅读。(图 S0 )            
: |' m* J5 a/ x! D  O! x8 S              http://www.3dportal.cn/discuz/forum.php?mod=attachment&aid=MjM0MDkxMXwyNWUyY2RjOTIxYWE0MTVkNmE3MWI3ODkxNjNhY2QyNHwxNzc0NDIwMDY0&request=yes&_f=.png
& u" F; s& o- h1 O; T: _' v
            而有关使用VBScript自动化的Mastercam文档，在 "MC安装目录\help\VBSCRIPT.Htm" 中可供查询参阅。
# R* ]! U3 v! I3 u
            注意：MS和MC中的VBScript解释器有所不同，MC中的语法要求更加严格一些，所以从  参阅大量VBS示例  开始也许是一个很好的选择 （3.2）。
" ]0 f9 y8 t, T6 C
        3.2 VBS示例文件
* [2 z* [5 I, Y# |5 n$ p2 z
# a* H, G6 Z; g9 U       每个版本的Mastercam都会提供 大约30个VBS示例文件可供查询，参考。
2 f1 T, W0 V3 ~  s3 B- o& X       其路径位于：
               <v9>   :  X:\Mcam9\VB\           (v版本位于安装目录VB文件夹下)
                <X>    :  Shared Mcamx*\VB\    (X版本位于共享目录VB文件夹下)

$ m8 p" W/ `2 f/ z: @$ C7 O       这些文件都可以通过记事本打开查看。
$ j/ X; C* u5 Y7 B2 Z+ e
     4. 在Mastercam界面中，从哪里进入VBScript？
         v9 中两种方法可进入：
. W2 Q4 ~1 j! }, t( O; s         (1) Main Menu > Create >Next menu >Add-ins >McamVB*
6 C& Q; C' _4 z) o         (2) Alt+C > MCAMVB.DLL

- A6 ?- C3 l. W. C# ?1 P, u         X版本以 X6为例：
0 i7 v8 u5 C( Y- N8 l$ }         菜单 > 设置 >VB脚本
        "VBScript编辑器" 界面如下：(图 S1)
         http://www.3dportal.cn/discuz/forum.php?mod=attachment&aid=MjM0MDkxMnwyZjVlMWU0OWZmNzY0YjRiNDlmY2M2ZjY5ZjNjYmNlM3wxNzc0NDIwMDY0&request=yes&_f=.png

         你可以在其中新建、编辑、或运行一个VBScript文件。
1 l" m% C! b& O9 U+ c
) j  r0 X# R- w& |( i" @         PS: 如果觉得进入VBScript的方法有些麻烦，建议你在MC中设置快捷键 'F12' 指向此功能。

* B, A3 B/ e3 n* {8 v3 Z% f5 J     5. 现在，让我们开始进入MC中的VBScript吧。

        5.1 了解VBScript界面和基础知识。
% |3 I: j; f  s+ f" G        在"VBScript编辑器"中点击 "New" (新建)， 会弹出界面：(图S3)
2 v' N' r+ B% i* e; x, V
+ n/ z! E0 Z) Q5 h, j       http://www.3dportal.cn/discuz/forum.php?mod=attachment&aid=MjM0MDkyMXwzYTQwZGFmZDg2ZDJlMWY4NTkzMjY4ODU4YjYwNDQ2ZXwxNzc0NDIwMDY0&request=yes&_f=.png
% Q5 |6 e, G9 C+ r2 p5 a
6 r$ q* n8 {9 f        （1）在帮助中你可以查看当前MC版本VBScript所支持的自动化功能。

        http://www.3dportal.cn/discuz/forum.php?mod=attachment&aid=MjM0MDkxNHw3MjY3NWJiYjQxMzI2YjAwZmUxNDI5YjNhZThhZDQ0N3wxNzc0NDIwMDY0&request=yes&_f=.png
         
/ O* S  E, F  x        在VBScript语言中，有一个命令RunMastercamCommand可以访问大部分MC自带的命令，是一个用途较广的功能，而其所能访问的范围在帮助文件中有说明。
/ s1 X& W) s: B) n
        http://www.3dportal.cn/discuz/forum.php?mod=attachment&aid=MjM0MDkxNXw0YTkwNzRjOTZkMWVkNGE2ZjVlN2UwOThjMzlhZTA2MXwxNzc0NDIwMDY0&request=yes&_f=.png
        http://www.3dportal.cn/discuz/forum.php?mod=attachment&aid=MjM0MDkxNnw5ZWYzOGQzYjk5MmY2Y2U4MTQ4N2UxMzg2MGNmYjZmNHwxNzc0NDIwMDY0&request=yes&_f=.png
: M  Q% p" P  U" g) s        http://www.3dportal.cn/discuz/forum.php?mod=attachment&aid=MjM0MDkxN3w4NzQ2YjNiMDE5Njk3MGUyYzk4ODRhZTgzOGI2OWQ4MHwxNzc0NDIwMDY0&request=yes&_f=.png
        http://www.3dportal.cn/discuz/forum.php?mod=attachment&aid=MjM0MDkxOHw5MTVmOGI5ZGU5OWM5MTY4MzY3ZmVmMWI3ZTE5ZDMyMXwxNzc0NDIwMDY0&request=yes&_f=.png
  e& m2 o1 I- R: a8 z9 C        
       （2）VBScript编辑器中的常用快捷键，可引导编程。

* ^* R" S- ^4 o, S+ }4 M; R  @        http://www.3dportal.cn/discuz/forum.php?mod=attachment&aid=MjM0MDkxOXwyMmFlYjBjMDJkODE0ZGU0NzhlYzBlNTQxY2MyYTlmMXwxNzc0NDIwMDY0&request=yes&_f=.png
* w( K5 W: R' x        http://www.3dportal.cn/discuz/forum.php?mod=attachment&aid=MjM0MDkyMHxhZmQ5ZjhiZGM3M2Y1NTZhN2NiNDVkZTQzZWRjYzhiMHwxNzc0NDIwMDY0&request=yes&_f=.png
+ D: t6 _& j) |2 y0 ]9 I
' K: p3 g: T! H4 L/ S+ s9 K        5.2 下面，使用一个范例来熟悉VBScript，录入蓝色部分代码(单引号‘之后的内容可以不管)。  [或将附件a1.txt 下载后改扩展名为a1.vbs，在VBScript中调用]  
# [- b- e9 U' s% ?- X6 q

1. Sub Main()
   
2. 
   
3.     Dim mcColor_Current                        '定义变量mcColor_Current（Dim 是关键字,定义变量）
   
4.     mcColor_Current=GetBackGroundColor        '获取当前MC背景颜色
   
5. 
   . m3 b  w/ M. C( R5 R8 n
6.     ShowString("现在我想把屏幕背景弄成白色.")          '显示对话框
   + ?" G, D0 O3 X0 }
7.    
   
8.    Call SetBackGroundColor(mcCOLOR_WHITE)        '变更背景颜色为白色
   
9.    Call RepaintScreen(False)                        '刷新屏幕: 一般更改屏幕内容后需要刷新屏幕
   , s6 k" P1 @0 r' E) z( k
10.    Call RunMastercamCommand("clipbrd")        '调用内置命令:截图
    
11.            
    , M' }$ |& Z  a1 ?
12.    If askYesNo("是否恢复原有背景色?")=1 Then        '询问是否恢复原有MC背景颜色: =1(点击Yes)恢复
    
13.       Call SetBackGroundColor(mcColor_Current)        
    
14.       Call RepaintScreen(False)
    
15.    End If
    
16.         
    4 R3 Y1 s. y1 O7 L8 j# m
17. 
    ( ~* W0 p" g% F/ q/ |. {$ {2 I
18. End Sub

复制代码

( m  b, a& q, D4 t; G: ^% K+ g2 e       存档后，调用并运行它，看看会发生什么？
" ]0 {( f3 B% p# _# {0 i2 z- P
4 f0 h+ O! N) t" Y# Z% s1 b      首先弹出对话框，点击确定后，工作区屏幕背景会变成白色.
      此时正在调用截图功能（看MC提示区信息），框选范围或按ESC键 可以部分或全屏截图到剪贴板中。(打开Excel或画图工具，按Ctrl+V可以粘贴出来截图。)
2 J; b, v$ j& K  z6 U      当上一个命令执行完毕，会再次弹出对话框，询问是否恢复背景颜色，选是则恢复，否则退出。
     
/ w, c7 o2 j/ \+ {      从示例中来看，VBS相对而言是一种比较简易的语言，容易理解。
4 f, R! A7 ^5 V8 M
( g# U  P+ c# {2 V     6. 另外再提供一个VBScript示例：[附件a2.txt扩展名改为a2.vbs]  
" d  E6 v# Y0 k- D      此VBS用于自动将图档中指定直径的圆（整圆）设定为指定颜色，方便在编程时通过选定颜色的方式 一次性全部选择。
3 N8 @* b+ \$ _( ^7 X  W  ?- N: A

    题外话：
    (1) 本文仅为抛砖引玉，引导初学者了解VBScript这一工具，方便爱好者入门。期盼将来能有大票高手涌现，把编程弄得更简单点。
    (2) 作者本身有一些VB基础，也仅是花费了几天工夫了解VBScript。故如在文中发现错误，请不吝指出并共同探讨。

( u# u& Q' G- j& O+ P4 r& F
3 p3 w# ^7 n0 L* p/ Q
$ l+ }6 W6 @+ L4 b


, N, I1 u; P: i( `

qq418294654

火钳刘明

梦子_LDxlH

火钳刘明，抢地主。

MING-CNC

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

zhangjing176

干货，感谢分享

gbq937802932

写的非常棒

呵呵仙

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

xinruyu369

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

piaofcu

是太难还是大家对此不感兴趣？
1 ^% G8 _; u! b  R: }! W
再贴一示例： 利用MC自带命令截3视图出来。
' s* y8 H, O! t* C' C

1. '////////////////////////////////////////////////////////////////////////////////
   ( \4 H1 k! J# {+ ^' y- w
2. '//        Author:   zrs
   
3. '//          Date:   25-05-2019 02:43 PM
   + c  }3 R% D! D  t
4. '//     File Name:   Get Gviwe Shot
   
5. '//   Description:   Mastercam VB Script
   5 V3 o  B* F+ H# C
6. '//      Comments:   利用MC自带命令DoBitmapfile截图多个视角的线框模型存档到 C:\ 根目录下.
   1 |* W, C$ J4 ^& \, F# b  w9 I
7. '////////////////////////////////////////////////////////////////////////////////
   4 L) H( K2 ~' z3 V2 n2 o
8. 
   ' R0 z& ^2 _  V0 I
9. 
   ' S4 z/ ~; A9 o" ^* T' g1 U
10. '///////////////// My Constants /////////////////
    $ }! \" R3 p5 j% V  q7 f8 l
11. Const Mydir="C:"               '保存路径
    
12. Const Bitmap_Name="Shot_"       '截图保存的名称前缀
    + b1 P7 D/ I, @
13. 
    " m+ N0 @& b5 w- S1 U: i- X+ W* ?
14. '///////////////// My Global Variables //////////
    . p( \* R+ H3 \# t7 _
15. Dim ViewNum(2)                  '定义数组变量 () , 数组从0开始，所以数组有0,1,2共3个元素
    & @6 f- Y: U- b7 R! H
16. ViewNum(0)="1"                  '分别指定3个元素的数值，其中1,2,7对应 MC视角1-TOP, 2-FRONT, 7-ISO
    
17. ViewNum(1)="2"
    
18. ViewNum(2)="7"
    
19. 
    
20. ' -- Start Script
    9 q& b2 m5 G, D% G
21. Call Main()
    
22. 
    + |5 W- r. b8 {& {7 t  i; U
23. 
    
24. ' ////////////////////
    / }9 U0 [, }, P
25. ' Sub Declaration
    
26. ' ////////////////////
    " c' a6 t/ M  M" ?+ \4 L
27. Sub Main()
    0 O" F0 E& q3 c+ z( A. _9 c, j
28.     Dim i,Pnum
    / W1 [1 L& `! |! ~1 s: s
29.     Dim strBMP                                      '定义3个变量, i为序号, Pnum为元素, strBMP为字符串:要存档的名称
    & {9 r$ x1 _/ l# f7 x; Q# a8 V
30.     For i=0 To UBound(ViewNum)                      '循环: 从0开始到数组ViewNum在最大数: 则i依次为0,1,2
    
31.       Pnum=ViewNum(i)                               'i为0时,Pnum数值等于数组内第一个数值,即1
    1 l- y8 e  ^! F6 t  s
32.       strBMP= Mydir& Bitmap_Name & i & ".bmp"       '存档的名字
    
33. 
    
34.       Call GetBitmap(Pnum)                          '呼叫函数GetBitmap, 在最下方
    
35.       If DoBitmapfile(vbNullString,strbmp) Then     'MC自带命令DoBitmapfile截图
    
36.       
    
37.       Else
    - C7 V- L5 B4 C( R4 b/ L/ Q
38.          ShowString "Error!" & strBMP               '如果截图出错显示错误
    
39.          Exit Sub                                   '并且退出程序
    / b6 o* f( w6 c; g6 N' b
40.       End If
    1 r! s3 t, x9 q; t5 d" S7 p
41.     Next
    
42.     Call RepaintScreen(False)                       '刷新屏幕
    , {. e' w/ N/ d2 l
43. End Sub
    + }. g+ i! }/ H+ X- X4 P7 _; e
44. 
    
45. 
    
46. Function GetBitmap(GViewNum)                        '自定义函数GetBitmap
      k) N& Q( M! f7 g, \/ B6 w
47.     Call SetGViewNumber(GViewNum)                   '设定MC视角为指定视角
    
48.     Call RepaintScreen(False)                       '刷新屏幕
    
49. End Function
    5 L8 D5 Y+ Q3 V& Z, E

复制代码

效果如下：
& H! A, @/ Q( W3 L: J6 g) n   运行后，会在C盘根目录下生成3个截图文件：Shot_0.bmp~Shot_2.bmp

大风刮过

这个可以搞二次开发

wx_ykfxqQi4

刚接触的我一窍不通

poi8848328

真·大神！！

poi8848328

不知道为啥，9.1这三个有两个报错，整圆改指定颜色的没反应，大佬现在还有研究VBS吗？
* Q0 b3 @/ ^* l2 W& C: Y' T

wx_dfA5IKla

历害了，正好学习一下

DADA7478

感谢分享.......

qiuhunjian

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

ajqfnxk

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

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

# S# z( v$ w* D  V. k  b
4 n( N0 ^5 [4 s% K$ @' n
  h7 R( V* Q' O/ X( R那们大神可以提取出来，，，

3303eaa

平看看

站在无人风口

好像2017以后没有VB文件啊

1547474800

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

chinady

看不懂！！！
3 Q$ `/ E# R3 Q8 Z; _% g1 t8 ]太高端了

盛海

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