CATIA VBA测量功能实现:编程助力精准测量

文章转载自楼主本人的公众号“CATIA那点事儿”



欲撰此文必有因

最近,很多小伙伴在写VBA/宏代码时,都遇到了“测量”相关的问题。鉴于最近这个话题上榜率很高,小编决定写此文章,介绍一下如何用Automation中的Object实现测量这一功能!

在进行CATIA VBA二次开发时,需要测量的场景还是比较多的,例如:

  • 对某些元素,如球心坐标、或多对元素的间距等项目测量,并将值导出;
  • 通过测量的方式,找出多个元素中到目标元素最大/最小距离的那个,或是面积最小/最大的那个,从而实现筛选的目的。



代码测之何所异

首先可以肯定的是,CATIA Automation中是有测量相关的API的,它虽不能像手动点击测量命令那样,在特征树上生成一个“测量特征”,但可以实现同样测量的功能,更像是手动测量时,不勾选“Keep Measure”的效果。

CATIA VBA中如何实现测量功能的图1



持此许可方能行

测量相关的API,我们可以从Working with Space Analysis的Object中找到。

CATIA VBA中如何实现测量功能的图2



上述Object使用的前提,是需要我们有SPA这个许可证(用盗版的小伙伴就无所谓啦)

CATIA VBA中如何实现测量功能的图3

创建参考以测之

有了这些,我们就可以用以下的代码实现测量的功能了!

首先, 用Document的GetWorkbench的方法,得到SPA workbench。

Dim wb

Set wb = d.GetWorkbench("SPAWorkbench")

然后,再用Workbench的GetMeasurable方法,创建一个Measurable对象。

Dim m

Set m = wb.GetMeasurable(Ref1)

需要说明的是,这里的Ref1就是你要测量的元素的参考。创建参考的方法,可以查阅Part的几个CreateReference方法。

CATIA VBA中如何实现测量功能的图4

当然,我们常用的,是CreateReferenceFromObject,即通过具体的集合元素创建参考。

通过参考创建了上面的Measurable对象之后,如果你是想模拟单一元素的测量(卡尺那个图标CATIA VBA中如何实现测量功能的图5),那么,你就可以直接使用Measurable的某些属性或是不带参数的方法,来获取一些测量信息了。如:

'获取面积

myArea=m.Area

'获取角度

myRadius=m.Radius

'获取坐标

Dim Coord(2)

m.GetPoint Coord

myX=Coord(0)

myY=Coord(1)

myZ=Coord(2)

而如果你想模拟的是测量两个元素,如角度、距离这些(直尺那个图标CATIA VBA中如何实现测量功能的图6),那么你需要使用Meaurable的带参数的Method,如:

’测量Ref1和Ref2之间的距离

myDis=m.GetMinimumDistance(Ref2)

以下为Measurable的属性与方法截图,详细使用方法各位小伙伴请自行查阅Automation手册。

CATIA VBA中如何实现测量功能的图7

践一实例以悉之

文章的最后,是一段实例,实现的功能和之前发过的这篇文章类似:

但之前的文章是有一定的局限性的:

  1. GetCoordinates是Point的Method。换句话说,如果图形集里有提取、相交、投影等元素,虽然其本质上也是点,但由于不是Point类特征,所以无法使用GetCoordinates方法
  2. 如果所选几何图形集中有曲线或不规则曲面,无法将其过滤(但这段可以加防错或判断以优化)
  3. 如果所选几何图形中有球面特征,上述方法无法获取球心坐标

而通过测量的方法,我们可以让程序获取坐标的容错率更高:选中某一几何图形集并运行宏代码,程序会遍历并测量几何图形集内的每一个元素,如果可以测出坐标,那就意味着该元素是点类特征(不管是点,投影,提取,相交……),或是球面类特征,或是圆/椭圆类线框特征。

以下为代码运行的效果演示动图。

CATIA VBA中如何实现测量功能的图8

以下为完整代码

CATIA VBA中如何实现测量功能的图9

免责声明:本文系网络转载或改编,未找到原创作者,版权归原作者所有。如涉及版权,请联系删

QR Code
微信扫一扫,欢迎咨询~

联系我们
武汉格发信息技术有限公司
湖北省武汉市经开区科技园西路6号103孵化器
电话:155-2731-8020 座机:027-59821821
邮件:tanzw@gofarlic.com
Copyright © 2023 Gofarsoft Co.,Ltd. 保留所有权利
遇到许可问题?该如何解决!?
评估许可证实际采购量? 
不清楚软件许可证使用数据? 
收到软件厂商律师函!?  
想要少购买点许可证,节省费用? 
收到软件厂商侵权通告!?  
有正版license,但许可证不够用,需要新购? 
联系方式 155-2731-8020
预留信息,一起解决您的问题
* 姓名:
* 手机:

* 公司名称:

姓名不为空

手机不正确

公司不为空