Greetings!	CATIA 模型下载	CATIA V5安装包下载合集	CATIA常用基本命令视频教程
CATIA V5-6R2018下载	查看高版本CATIA文件	CATIA V5-6R2015下载	CATIA V5-6R2014下载
CATIA V5R21 64位下载	CATIA V5R21 32位下载	CATIA V5R20下载	CATIA 基础视频教程

查看: 8010|回复: 1

[求助] 关于catia的宏命令，高手来 [复制链接]

superx

1 主题	0 好友	11 积分

初学乍练

Rank: 1

TA的每日心情

	擦汗 2016-8-3 19:37

签到天数: 1 天

[LV.1]初来乍到

推广贡献: 0
金币: 4
荣誉: 32
在线时间: 1 小时

发消息

电梯直达

楼主

发表于 2016-8-3 19:49:26 |只看该作者 |倒序浏览

新手如何挣金币，提高权限 catia新手群:37932140欢迎大家加入!

1金币

我需要用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