不过元旦这几天估计没时间,
等过完元旦吧,版大?作者: darkhorse 时间: 2003-12-31 17:18
支持!欢迎!作者: ferarriii 时间: 2004-1-4 09:47 作者: jerryjun 时间: 2004-1-9 17:52
嗚嗚看不到
我最近也寫了兩個vb配合catia程式
沒人教很難進步作者: bimch 时间: 2004-1-11 15:46
我也一样。。看不见!遗憾!作者: client 时间: 2004-2-14 18:25
感谢ferarriii ,能否说明一些关于CAA 模块的开发方法,谢谢!作者: jerryjun 时间: 2004-2-17 21:46
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
问一个比较菜的问题,代码是:
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’:
类型不匹配
请问这是怎么回事?作者: blackriver 时间: 2004-2-27 09:51
我不懂CATIA,只对VB、VC略有了解。感觉问题出在: