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

只看该作者 · 发表于 2003-12-31 10:02:21

马上注册，结交更多同行朋友，交流，分享，学习。

您需要登录才可以下载或查看，没有帐号？注册

x

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

只看该作者 · 发表于 2003-12-31 10:14:50

谢谢zzz版大这么看得起。
非常乐意和大家一起探讨，
至于像讲课那样做，我可能还做不到，::?
因为水平还差很远。

不过像你在题目里面说的要将标准件单独打包，
估计不太现实。我可能就只能做到上传录象，讲解其中的原理我还是非常乐意的。

不过元旦这几天估计没时间，
等过完元旦吧，版大？

只看该作者 · 发表于 2003-12-31 17:18:03

支持！欢迎！

只看该作者 · 发表于 2004-1-4 09:47:21

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

只看该作者 · 发表于 2004-1-9 17:52:26

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

只看该作者 · 发表于 2004-1-11 15:46:17

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

只看该作者 · 发表于 2004-2-14 18:25:26

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

只看该作者 · 发表于 2004-2-17 21:46:22

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幫忙一下

只看该作者 · 发表于 2004-2-26 15:20:41

问一个比较菜的问题，代码是：
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’：
                                    类型不匹配
请问这是怎么回事？

只看该作者 · 发表于 2004-2-27 09:51:36

我不懂CATIA，只对VB、VC略有了解。感觉问题出在：

1、object required. 请仔细检查出错语句 . 操作符前面的变量到底是不是对象，还是一般的简单变量，如整数。

2、类型不匹配。应为 void Display(void)，即无返回值，但确把它赋给Value，当然出错了。应改成：
call bom.display()

乱说一通。如有错误请指正。

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

马上注册，结交更多同行朋友，交流，分享，学习。

本帖子中包含更多资源

浏览过的版块