欢迎ferarriii给我们讲一下，用VB开发catia。

大家鼓掌，啪啪，啪啪，::y::y

谢谢zzz版大这么看得起。
非常乐意和大家一起探讨，
至于像讲课那样做，我可能还做不到，::?
因为水平还差很远。
  
不过像你在题目里面说的要将标准件单独打包，
估计不太现实。我可能就只能做到上传录象，讲解其中的原理我还是非常乐意的。
  
不过元旦这几天估计没时间，
等过完元旦吧，版大？

支持！欢迎！

游客，本帖隐藏的内容需要积分高于 10 才可浏览，您当前积分为 0

嗚嗚看不到
我最近也寫了兩個vb配合catia程式
沒人教很難進步

我也一样。。看不见！遗憾！

感谢ferarriii ，能否说明一些关于CAA 模块的开发方法，谢谢！

Dim InputObjectType(1)
  Set Document = CATIA.ActiveDocument
  Set Selection = Document.Selection
  Set HybridBodies = Document.Part.HybridBodies
  Set HybridBody = HybridBodies.Item("Open_body.1")
  InputObjectType(0)="TriDimFeatEdge"
  InputObjectType(1)="BiDimFeatEdge"
  Status=Selection.SelectElement2(InputObjectType,"Select an edge",true)
  if (Status = "cancel") then Exit Sub
  Set Curve = Selection.Item(1).Value
  Set HybridShapePointOnCurve = HybridShapeFactory.AddNewPointOnCurveFromDistance(Curve,18.0,False)
  HybridBody.AppendHybridShape HybridShapePointOnCurve
  Document.Part.InWorkObject = HybridShapePointOnCurve
  Document.Part.Update  
   
  
我依照上述的方法想做
取任意曲面上的邊線作點位於邊線上但是都出現
下圖問題??請ferarriii幫忙一下

问一个比较菜的问题，代码是：
Dim BOM As Object
Sub CATMain()
Set BOM = CreateObject("BOMDll.BOMSheet")
Dim Value
Set Value = BOM.Display()
End Sub
其中BOM是我用VC开发的一个自动化对象，方法void Display(void)
运行结束时，系统提示：运行时错误‘13’：
                                    类型不匹配
请问这是怎么回事？

我不懂CATIA，只对VB、VC略有了解。感觉问题出在：
  
1、object required. 请仔细检查出错语句 . 操作符前面的变量到底是不是对象，还是一般的简单变量，如整数。
  
2、类型不匹配。应为 void Display(void)，即无返回值，但确把它赋给Value，当然出错了。应改成：
call bom.display()
  
乱说一通。如有错误请指正。