标题: 请教关于CATIA的二次开发问题 [打印本页] 作者: 刘煜 时间: 2004-2-26 15:53 标题: 请教关于CATIA的二次开发问题 我用VC作了一个自动化对象，在VBA中调用它的方法，代码：
Dim BOM As Object
Sub CATMain()
Set BOM = CreateObject("BOMDll.BOMSheet")
Dim Value
Set Value = BOM.Display()
End Sub
运行结束时，系统提示：运行时错误‘13’：类型不匹配
请问这是怎么回事？作者: pinkwall 时间: 2004-2-26 23:32
caa帮助里面有一个 BOM的例子作者: 刘煜 时间: 2004-2-27 15:41
这问题已经解决，还想请教pinkwall用VB怎样遍历装配树？谢谢！作者: yuanhui_hust 时间: 2011-7-20 10:01 本帖最后由 yuanhui_hust 于 2011-7-20 10:06 编辑
Sub BianLiShu(oProduct As Product)
Dim oProducts As Products
Set oProducts = oProduct.Products
Dim count As Integer
count = oProducts.count
If count = 0 Then
Msgbox oProduct.partnumber
Else
Dim i As Integer
For i = 1 To count
Dim oProduct1 As Product
Set oProduct1= oProducts.Item(i) Call BianLiShu(oProduct1)
Next i
End If
End Sub