外部编程

利用VB/VC 外部编程能力

外部编程能力是指在测量软件平台下电销机器人源码支持二次开发，通过VB/VC 等高级编程语言进行高级编程的能力。

PC-DMIS 测量软件提供了强大的内部编程能力和外部编程能力电销机器人源码支持二次开发，用户不仅可以进行灵活的零件编程，也可以通过VB/VC/C++ 高级语言进行高级编程。通过外部编程方式在PC-DMIS 测量软件平台下，电销机器人源码支持二次开发我们开发了齿轮专用测量评价软件包，叶片测量评价软件包，PC-DMIS 与EXCEL 之间数据传递等应用程序，扩大了PC-DMIS 测量软件

功能和应用领域。

下面通过一些简单的编程例子，仅仅展示编程思路，程序本身的意义对您没有太大价值。

●利用VB 编程(外部编程事例I)

通过一事例，描述VB 编程全过程。下面这个例子是用VB 实现特殊测量结果报告的输出，也就是PC-DMIS 测量完成后，把所有测量点坐标提取出来直接写到一个ASCII 文件中。

步骤1：打开PC-DMIS 软件

步骤2：编写测量点元素的PC-DMIS 程序。

运行该PC-DMIS 程序后，得到了一些点坐标和圆心坐标，下面我们编制一VB 程序，从测量结果中取出点坐标，并保存到一文件中。

步骤3：打开VB 软件，编写VB 程序。

打开Visual Basic，选择菜单“文件” ->“新建工程”，这时出现一对话框让电销机器人源码支持二次开发你选择新建种类，如下图：

步骤4：工程文件类型

选择“标准EXE”并按“确定”，这时VB 就进入一个可供编程的新工程，该工程开始时提供了一个空的Form，如下图：

步骤5：添加命令按钮

通过工具菜单，在新工程中，添加命令按钮，方法是：

在V B 左边的工具栏中， 我们选择CommandButton，并在这个空的Form 中“画”一个Button。在右边的属性栏中，首先修改“名称”为cmdGetPointsData，然后修改“Caption”为“取出测量点数据”，这里设计的Form。如图4.20 所示：

用鼠标双击Button, 这时VB 产生一个空的Function , 如下：

Private Sub Command1 Click()

End Sub

步骤6：引用PC-DMIS 编程接口。

把PC-DMIS 编程接口引用到该工程中, 方法是:选择菜单“工程”-> “引用”, 这里出现引用

对话框，在“可用的引用”中找到PC-DMIS3.5(或3.2)并选择上，如下图：

确定后，PC-DMIS 的接口库PCDLRN.TLB就被加入到我们的工程中了。

步骤7：在函数中添加内容。

在函数中添加内容，完成设计要求动作，方法是：

在Command1_Click() 函数体中加入程序代

码，

Private Sub Command1_Click()

Dim appPcdmis As New PCDLRN.Application

Dim prtsPcdmis As PCDLRN.PartPrograms

Set prtsPcdmis = appPcdmis.PartPrograms

Dim prtPcdmis As PCDLRN.PartProgram

Set prtPcdmis= appPcdmis.ActivePartProgram

Dim cmdsPcdmis As PCDLRN.Commands

Set cmdsPcdmis = prtPcdmis.Commands

Dim cmdPcdmis As PCDLRN.Command

Dim featName As String

Dim measX, measY, measZ As String

Dim theoX, theoY, theoZ As String

Open "c:point.txt" For Output As #1

For Each cmdPcdmis In cmdsPcdmis

If cmdPcdmis.Type= AUTO_VECTOR_FEATURE

Then

featName = cmdPcdmis.ID

measX = cmdPcdmis.GetText(MEAS_X, 0)

measY = cmdPcdmis.GetText(MEAS_Y, 0)

measZ = cmdPcdmis.GetText(MEAS_Z, 0)

theoX = cmdPcdmis.GetText(THEO_X, 0)

theoY = cmdPcdmis.GetText(THEO_Y, 0)

theoZ = cmdPcdmis.GetText(THEO_Z, 0)

Print #1, featName + " X "+ " Y "+" Z "

Print #1, "ACT ", measX, measY, measZ

Print #1, "NOM ", theoX, theoY, theoZ

Print #1,

End If

Next

Close #1

End Sub

执行VB 程序

执行VB 程序(PC-DMIS 不能关闭，否则VB程序执行后,没有结果输出)。出现如下对话框：

按“取出测量点数据”按钮，您可以在c:目录下发现一个名为point.txt 的文件，该文件内容如下：

这样，我们就把数据从PC-DMIS 中成功的取了出来，存到了指定的文件中。

PC-DMIS 与EXCEL 之间的数据传递(外部编程示例II)

EXCEL 是非常优秀的制表软件，用户可以根据自己的需要，制做各式各样的个性化的表格，虽然表格设计容易，但添置和录入数据是非常麻烦的事。下面通过一示例，说明如何把测量数据自动添置到设计好的EXCEL 表格中.

在EXCEL 中，双击表格中的图标，PCDMIS软件中评价的数据将会自动传递到EXCEL表格中。

关注只需一秒，受益绝非一时

往期精彩：