【问题描述】在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)