用VB做CATIA的二次开发

可以，有好几种方法实现。一般先用宏录制过程，然后将vb与catia链接，程序如下：

Dim CATIA As Object

On Error Resume Next

Set CATIA = GetObject(, "CATIA.Application")

If Err.Number <>0 Then

Set CATIA = CreateObject("CATIA.Application")

CATIA.Visible = True

End If

On Error GoTo 0

将宏的过程考进去就可以了。

1、首先通过引用相应的库文件，启动Catia软件。

2、其次在相应草图平面用VB代码创建草图，根据节距数计算模型旋转角度可创建轮胎实体模型。

3、最后采用开槽方法生成可获取catia中各节点的状态。

整体思路：

获取CATIA接口；

获取CATIA当前激活文档；

获取CATIA激活文档的Product对象

遍历Product下的所有Products子对象；

得到所有的Product的PartNumber以及其他参数；

将得到的参数写入到2D图的表格对象中。

---