(图片来源网络,侵删)
利用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_Click0Dim appPcdmis As New PCDLRN ApplicationDim prtsPcdmis As PCDLRN PartProgramsSet prtsPcdmis=appPcdmis PartProgramsDim prtPcdmis As PCDLRN.PartProgramSet prtPcdmis =appPcdmis.ActivePartProgramDim cmdsPcdmis As PCDLRN.CommandsSet cmdsPcdmis=prtPcdmis.CommandsDim cmdPcdmis As PCDLRN.CommandDim featName As StringDim measX,measY,measZAs StringDim theox,theoY,theoZ As StringOpen ‘c:\point.txt“For Output As #1For Each cmdPcdmis In cmdsPcdmisIf cmdPcdmis.Type=AUTO_VECTOR_FEATUREThenfeatName=cmdPcdmis.IDmeasX=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, measZPrint #1,\"NOM\", theox, theoY, theoZPrint #1.End IfNextClose #1End Sub步骤8:执行VB程序执行VB程序(PC-DMIS不能关闭,否则VB程序执行后,没有结果输出)。出现如下对话框:按“取出测量点数据”按钮,您可以在cA目录下发现一个名为point.txt的文件,该文件内容如下:这样,我们就把数据从PC-DMIS中成功的取了出来,存到了指定的文件中。
0 评论