顶部左侧内容
百度360必应搜狗淘宝本站头条
当前位置:网站首页 > 技术文章 > 正文

利用VB/VC外部编程至测量软件,原来是这样操作的

chargingw 2024-07-02 16:07 83 浏览

利用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中成功的取了出来,存到了指定的文件中。

相关推荐

Exchange Server 2019 实战操作指南

基本信息镜像下载地址:https://next.itellyou.cn/Original/#文档:https://learn.microsoft.com/zh-cn/Exchange/plan-and...

电脑蓝屏怎么回事(电脑蓝屏怎么回事怎样处理)

电脑在使用的过程中,突然蓝屏。电脑不定时的自动重新启动。这种情况,可以进入系统查看蓝屏日志,进行蓝屏原因分析。蓝屏日志文件位置:蓝屏分析软件:下载蓝屏分析软件DebuggingToolsfor...

Qt中编译和设置protobuf(qt 命令行编译pro)

我们在使用Qt开发做项目开发是时候,经常会进行数据的跨平台传输,就需要对数据进行序列化,序列化的方式有很多,现在项目开发最常用就是google公司开发的protobuf。今天传输播客老师就给大...

WEB安全:深入反射式dll注入技术(反射添加注解)

一、前言dll注入技术是让某个进程主动加载指定的dll的技术。恶意软件为了提高隐蔽性,通常会使用dll注入技术将自身的恶意代码以dll的形式注入高可信进程。常规的dll注入技术使用LoadLibrar...

查看系统进程进而时时警觉木马(查看当前系统的所有进程)

什么是系统的进程对于hejb的提问,不是我钻牛角尖,而是我太忙,没时间细看提问,如果我大至发现是针对主题的提问,我就答,否我就不答,见谅。最近太忙了,希望支持我,等我闲下来会好好和各位朋友交流的!!...

俄罗斯APT组织 Turla 在攻击目标系统上部署新型后门程序

思科网络安全团队Talos称,俄罗斯国家资助的APT高级持续威胁组织Turla是此前无记录的入侵美国和德国等一系列新入侵事件的幕后黑手,该APT组织创造了恶意软件TinyTurla,这个恶意软件...

Turla(又名Pensive Ursa)工具库分析

导语:PensiveUrsa工具库中最近活跃的10种恶意软件详解看过来!Turla(又名PensiveUrsa、Uroburos、Snake)是一个至少从2004年开始运行,总部位于俄罗斯的一个攻...

俄罗斯Astra推出Microsoft、Google 和 Amazon 云的自主替代品

据cnews网8月29日报道,俄罗斯AstraCloud作为AstraGroup面向商业客户,推出了MicrosoftAzure、GoogleCloud和AmazonWebServic...

微软危机!AZURE服务瘫痪引发全球Windows系统崩溃!

近日,全球范围内爆发了一场前所未有的Windows系统崩溃危机,微软公司正紧急应对。据微软发言人透露,该问题与AZURE服务相关,他们正在全力修复,并预计很快将发布解决方案。这场“微软蓝屏”事件正在...

微软宣布于2024年11月1日终止对Azure账户的TLS 1.0/1.1支持

IT之家1月11日消息,微软宣布,将取消对所有云中现有Azure账户的传输层安全性(TLS)1.0和1.1的支持。2024年11月1日后,TLS1.2将成为Azure...

微软发布0.7预览版Dev Home更新:支持Azure扩展

IT之家11月23日消息,微软今天更新了DevHome应用,推出了0.7预览版更新,最大的亮点是支持Azure扩展,其中包括AzureDevOps(ADO)和ADO小...

微软Windows Server 26280预览版发布,调整有效期

IT之家9月7日消息,微软面向WindowsServerInsider项目成员,发布了Build26280预览版更新,最大的变化就是到期日期调整为2025年9月15日...

微软发布Windows Server 2025最新预览版26244

IT之家6月29日消息,微软公司今天面向Canary频道发布Windows11Build26244预览版更新之外,还发布了WindowsServerBuild26244...

微软将CBL-Mariner Linux发行版项目更名为“Azure Linux”

IT之家3月6日消息,CBL-Mariner是适用于微软云基础设施以及边缘产品和服务的内部Linux发行版,其中CBL是指“CommonBaseLinux”,而现在该发行版似乎...

现已修复,微软Microsoft 365云服务再次出现全球性宕机

IT之家7月31日消息,在影响全球850万台设备的蓝屏故障之后,微软旗下365云服务再次出现宕机事件,包括Word、PowerPoint和Outlook等云服务应用均无法正常使...