PC-Dmis 二次开发 |（二）：VB基本语法
工欲善其事 必先利其器
PC-Dmis 二次开发
首先要对VB熟悉
文章目录
- 0.PC-Dmis开发简介
- 1.VB常用定义解释
- 2.VB常用IF语句
- 3.VB常用定义(PC-Dmis R2018)
- 4.PC-Dmis上手教程
- 4.1 Method和Properties使用
0.PC-Dmis开发简介
PC-DMIS的自动化功能使您能够在定制的应用程序中自动执行PC-DMIS中的重复任务，甚至使用PC-DMIS功能的元素。
PC-DMIS Automation具有以下优点：
- PC-DMIS Automation是独立于计算机的。您可以在一台计算机上有一个进程，使另一台计算机上的进程自动化。
- PC-DMIS自动化与位置无关。您可以使用BASIC脚本编辑器在PC-DMIS本身中运行自动化脚本，也可以在外部Visual Basic编辑器中运行自动化脚本。此外，您可以在网络上运行自动化脚本。
- PC-DMIS自动化与语言无关：如果您不了解BASIC，但是熟悉另一种编程语言，则可以配置该编程语言以使用PC-DMIS的库（但是，此帮助文件中的示例和说明是使用以下语言编写的： BASIC编程语言。
- ——PS.我联系过PC-Dmis技术人员，他们实用C#进行二次开发的，但是他们并没有相关的示例和教程说明。只有VB脚本的教程及说明。我们这边是买了一份PC-Dmis，所以那边给了份帮助文档和二次开发文档。不知道这个侵不侵权，所以相关文档和文件都没有上传，如果其他读者有问题，可以通过公众号"一匹大懒虫"联系我）。
1.VB常用定义解释
dim a! '定义单精度Single型变量a
dim a@ '定义Currence型变量a
dim a# '定义双精度Double型变量a
dim a$ '定义a为字符串tring
dim a% '定义a为整型变量integer
dim a& '定义a为长整型变量long
2.VB常用IF语句
IF 条件 THEN
语句
END IF
实例：
If a > 0 Then
Msgbox "a>0"
Else
Msgbox "a<0"
End If
3.VB常用定义(PC-Dmis R2018)
4.PC-Dmis上手教程
一般PC-Dmis开发涉及到获取 Properties，Events，Methods。用的最多的是Properties，Method。
- Method(方法)：Method是通常执行动作的功能。 这通常返回一个Boolean，以确定该函数是否成功。
- Properties(属性)：属性用来读取或写入对象/控件的某些特征或属性。
- Events(事件)：Events是满足特定条件时调用的例程。在我的开发过程中，用的较少。先不介绍，后续介绍。
4.1 Method和Properties使用
有两个方法获取
- 一个是通过ID创建
- 直接调用已有的
不管用哪种方法都需要： –创建变量-----然后并指向对应Objects
示例代码如下
'Step 1: Declare the pointer variable name for the application by using the "DIM" statement. For example:
Dim App As Object
'Step 2: Set the pointer variable to the PCDLRN Application using CreateObject. For example:
Set App = CreateObject("PCDLRN.Application")
'Step 3: Declare and set additional pointer variable names for any needed sub objects found within the Application object. For example if you wanted to access commands available for the active measurement routine, you're code would look something like this:
Dim Part As Object
Set Part = App.ActivePartProgram
Dim Cmds As Object
Set Cmds = Part.Commands
Dim Cmd As Object
Set Cmd = Cmds.Add(SET_COMMENT, True)
凡事必留名
