云南省人防工程建设网站/手机网站建设价格

【问题描述】在CATIA VBA二次开发中，涉及到数组类型（CATSafeArrayVariant）参数时，比如测量点坐标方法GetPoint，经常会编译出错，提示如下：

同样的代码在CATIA宏程序或者VB.net项目中则不报错。

【原因】在VBA项目中不是所有的接口方法都可以使用，可能是某些接口方法采用C++语言编写，在变量类型传递时出现类型不匹配现象。注：VBA中所有对象类型都派生自Variant，是其子类型。

【解决方案】出现问题的对象在声明时，不要指定其为CATIA Automation中的类型，而用Object代替。

举个栗子：

Dim ref1 As Reference

Set ref1 = part1.CreateReferenceFromObject(pt1) ‘假设pt1是一个点对象

Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")

Dim TheMeasurable As Object '把原来的As Measurable改成As Object

Set TheMeasurable = TheSPAWorkbench.GetMeasurable(ref1)

Dim coords(2)

TheMeasurable.GetPoint coords

MsgBox coords(0)