iCAx开思网

标题: 【求助】哪个强人懂VB，帮忙看看哪儿有问题？ [打印本页]

作者: dutmark 时间: 2004-3-19 20:43
标题: 【求助】哪个强人懂VB，帮忙看看哪儿有问题？
Language="VBSCRIPT" '因为本操作系统是 windows2000，所以此宏是用'vbscript编写的
Sub CATMain()
Dim partDocument1 As Document '创建文件
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part '创建部件
Set part1 = partDocument1.Part
dim excel as object ' 调用excel对象
set excel=getobject("d: \外形数据.xls") '飞机外形数据存于d: \外形数据.xls文'件下
'利用循环，读入excel中的数据。此数据为飞机外形上的一些点的坐标值，这些'值分别存于excel的表单1中的B、C、D中，把这些值分别赋给变量x，y，z
i=1
do while x<>””
x=excel.worksheets(1).cells.range("B" & trim(cstr(i))).value
y=excel.worksheets(1).cells.range("C" & trim(cstr(i))).value
z=excel.worksheets(1).cells.range("D" & trim(cstr(i))).value
·
·
·
'定义点坐标
Dim hybridShapePointCoord1 As HybridShapePointCoord
Set hybridShapePointCoord1 = hybridShapeFactory1.AddNewPointCoord(x,y,z)
·
·
·
'输入点
hybridBody1.AppendHybridShape hybridShapePointCoord1
part1.InWorkObject = hybridShapePointCoord1
i=i+1
loop
part1.Update
End sub

作者: suilj 时间: 2004-3-22 08:53
我不是强人，帮你顶一下

作者: CATIA_Boy 时间: 2004-3-22 10:08
什么错误？
把文件名改成英文试一试
另外用VBScript时要注意版本一致，你这段程序用的是哪个版本，CATIA就用哪个版本

作者: dutmark 时间: 2004-3-22 11:57
显示第三行出错
“Dim partDocument1 As Document '创建文件”
对VBScript不了解，不知道什么版本不版本的。

作者: sac_meTeor 时间: 2004-3-26 01:27
应该不是版本的问题，将文件名该为英文看看。
看语法都没错
兄弟能到这个地步很厉害了

欢迎光临 iCAx开思网 (https://www.icax.org/)