原标题:CATIA宏/VBA/二次开发——3 几何特征的批量创建与重命名
有了前面两篇文章的知识储备,我们就不必依赖“录制得到代码”的方法了。接下来,我们通过下面的实例小试牛刀,看一下代码一行行从无到有敲出来是怎样的体验。
提出需求:
一个Part的某个几何图形集下有若干个点,我们要以每个点为中心,做一个半径为r的球面。
权衡利弊:
如果你懂CATIA的知识工程,上面的内容可谓小菜一碟。但如果你不懂知识工程,或者因为公司抠门不买知识工程的许可证,那么英雄无用武之地的你,不妨试试VBA宏代码的方法!
思路分析:
第一篇文章入门时,我们就写了一段For-Next循环的代码,并且大概有这么个印象就是:一些重复且有规律的工作也许可以用代码来完成。
而拿上面的实例来说,我们大胆猜测,中间某一段代码可能是这样:
For i = 1 to 6
创建圆(圆心=几何图形集中第i个点,半径=r)
Next
从0到1:
通过研究已经录过的代码,或者看Automation手册
我们可以通过下面的代码从CATIA(Application)开始,一级一级获取到需要的对象:
‘获取CATIA当前打开的文档
Dim Doc
Set Doc=CATIA.ActiveDocum