CATIA二次开发（3）CATIA VBA编程入门

CATIA二次开发（3）CATIAVBA编程入门前置说明：CATIA的VBA属于CATIA自动化对象（CATIAAutomation），依托VBA宏，不需要单独编译DLL，上手最简单，适合快速做小工具、批量处理、参数修改、导出报表，是CATIA二次开发入门首选。一、CATIAVBA基础环境准备1.调出CATIA宏编辑器打开CATIA，顶部菜单：工具→宏（Macros），快捷键Alt+F8宏对话框：宏名称：自定义，如Test1语言：选CATIAVBA（不是VBScript）点击【创建】，进入VBA编辑器（和OfficeVBA界面几乎一样）⚠️注意：CATIAVBA分两种存储文档宏：保存在当前CATPart/CATProduct文件内，发给别人文件宏一起带走库宏：保存到CATIA宏库文件.catvba，全局可用，推荐正式工具用这个2.引用库（一般新建工程默认自带）VBA编辑器菜单：工具→引用

✅必须勾选：CATIAV5ObjectLibrary一般新建CATIA宏会自动加载，丢失引用会提示“变量未定义”二、CATIA对象模型核心概念（重中之重）CATIA自动化是树形对象结构，从顶层CATIA根对象往下访问：PlainText

CATIA（应用程序根对象）

├─Documents文档集合

│├─Document单个文档（CATPart/CATProduct/CATDrawing）

││├─Part（零件文档才有）

│││├─Bodies实体集合

│││├─Sketches草图集合

│││├─Parameters参数集合

│││└─...

││└─Product（装配文档才有）

││└─Products子装配/零件实例

├─Windows窗口

└─Selection选择集（CATIA里选中的元素）集合（Collection）：复数结尾，Documents、Bodies，可以遍历对象（Object）：单数，Document、Part，代表单个实体两种获取对象思路：通过Selection：获取手动选中的元素（交互式常用）通过Documents.Item：直接打开/获取当前活动文档（自动化批量处理）三、第一个CATIAVBA示例：HelloCATIA（弹窗测试）vba

SubHelloCATIA()

'定义CATIA应用对象，一般CATIA宏里可以省略SetCATIA=GetObject

DimoCATIAAsCATIA.Application

SetoCATIA=CATIA

'弹出消息框

MsgBox"HelloCATIAVBA！CATIA版本："&oCATIA.Version,vbInformation

EndSub运行：F5，会弹出窗口，验证环境正常。四、常用基础代码片段（入门高频）示例1：获取当前激活文档，判断是零件还是装配vba

SubGetActiveDoc()

DimoDocAsDocument

SetoDoc=CATIA.ActiveDocument

MsgBox"文档名称："&oDoc.Name&vbCrLf&"文档类型："&oDoc.Type

'判断是否零件文档

IfoDoc.Type="Part"Then

DimoPartAsPart

SetoPart=oDoc.Part

MsgBox"这是零件文档，零件名称："&oPart.Name

EndIf

EndSub示例2：读取/修改零件参数（最常用，改尺寸）前提：零件里已经创建了参数（长度、直径等）vba

SubModifyParameter()

DimoDocAsDocument

DimoPartAsPart

DimoParamAsParameter

SetoDoc=CATIA.ActiveDocument

SetoPart=oDoc.Part

'获取名为Length的参数

SetoParam=oPart.Parameters.Item("Length")

MsgBox"原值："&oParam.Value

oParam.Value=100'修改数值

oPart.Update'更新零件！修改参数必须Update刷新模型

MsgBox"修改后："&oParam.Value

EndSub✅关键点：修改几何/参数后，必须oPart.Update，模型才会刷新示例3：获取用户选中的元素（Selection选择集）vba

SubGetSelection()

DimoSelAsSelection

SetoSel=CATIA.ActiveDocument.Selection

'判断选中数量

IfoSel.Count<1Then

MsgBox"请先在CATIA里选中元素！"

ExitSub

EndIf

MsgBox"一共选中："&oSel.Count&"个元素"

EndSub五、CATIAVBA调试方法F5：运行整个宏F8：单步逐行执行（最常用调试）Shift+F8：跳出当前过程右键变量→添加监视，查看对象属性调试小技巧：在代码行左侧灰色区域点击，添加断点，运行到该行暂停。六、CATIAVBA与VBScript、CAA的区别（理清路线）CATIAVBA（本篇）

✅优点：上手快，不用额外编译器，CATIA自带，适合小工具、参数驱动、批量导出BOM

❌缺点：只能在CATIA内部运行，复杂界面开发弱，性能一般CATIAVBScript：纯文本脚本，不用打开VBA编辑器，适合外部调用CAAC++：CATIA原生底层开发，功能最强，需要RADE环境，适合大型插件，学习成本极高学习路线建议：VBA→VBS→CAA/C#(COM)七、常见坑（新手高频报错）“ActiveDocument不存在”：没打开CATIA文件，必须先打开CATPart/CATProduct修改参数模型不变：忘记写oPart.Update找不到参数Item("xxx")：参数名称区分中英文空格、特殊符号，名字必须完全一致类型不匹配