关于catia的宏命令，高手来

superx

我需要用catia建船模，利用编写的 CATIA 宏命令调用以 EXCEL 文件形式存储的型值表，但是那个ms vbsript不熟悉，谁能帮帮找到调用excel里面数据的语句，下面是我自己建了一个excel测试
Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 = partDocument1.Part
dim excel as object
set excel=getobject("C:\Users\Administrator\Desktop\外形数据.xls")
i=1
do while x<>3
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

superx

谁能帮我解决，给个解决的方案，就是用vbs写个程序使得excel的数据变成坐标点导入到catia里面，发红包有酬谢，联系我qq1525588389,



求高手来