利用VB/VC外部编程,原来是这样操作的

-回复 -浏览
楼主 2019-10-29 09:29:08
举报 只看此人 收藏本贴 楼主


      利用VB/VC外部编程能力外部编程能力是指在测量软件平台下,通过VB/VC等高级编程语言进行高级编程的能力。

     本文以PC-DMIS测量软件提供了强大的内部编程能力和外部编程能力,用户不仅可以进行灵活的零件编程,也可以通过VB/VC/C·高级语言进行高级编程。通过外部编程方式在PC-DMIS测量软件平台下,我们开发了齿轮专用测量评价软件包,叶片测量评价软件包,PC-DMIS与EXCEL之间数据传递等应用程序,扩大了PC-DMIS测量软件功能和应用领域。

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


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

步骤1:打开PC-DMIS软件。

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

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

步骤3:打开VB软件,编写VB程序。


      打开Visual Basic,选择菜单“文件”>“新建工程”,这时出现一对话框让你选择新建种类,如下图:

步骤4:工程文件类型选择“标准EXE”并按“确定”,这时VB就进入一个可供编程的新工程,该工程开始时提供了一个空的Form,如下图:

步骤5:添加命令按钮通过T工具菜单,在新工程中,添加命令按钮,方法是:

在VB左边的工具栏中,我们选择CommandButton,并在这个空的Form中“画”一个Button。在右边的属性栏中,首先修改“名称”

为cmdCetPointsData,然后修改“Caption”为“取出测量点数据”,这里设计的Form。如图所示:

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

Private Sub Command1 Click()End Sub 步骤6:引用PC-DMIS编程接口。

把PC-DMIS编程接口引用到该工程中,方法是:

选择菜单“工程”->“引用”,这里出现引用对话框,在“可用的引用”中找到PC-DMIS并选择上,如下图:

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


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

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

在Command1_ClickO函数体中加入程序代码,

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

Private Sub Command1_Click0

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,measZAs 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,O)

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


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

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

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



相互学习  共同进步!


往期精彩:

三坐标测量机测头校正的步骤

测量机使用与安全注意事项,你可以拿去当作业指导书了。

机械制图之表面粗糙度及主要评定参数

三坐标测量系统的校准与检定的区别

我要推荐
转发到