Catia中绘制翼形点，从此省事了

' 在Catia中创建翼形数据点的脚本程序 '
' 在零件中加入一个线框几何体，并在其中添加点集'

' 使用要求：
' 1）最多允许200个数据点（可更改）；
' 2）所添加的点的 x、y 坐标须保存在 C:/ff.txt文件中（可更改）
' 3）z坐标默认为0
' 4）ff.txt中每行只允许有两个数值，x坐标在前，y坐标在后，空格隔开

' 编写：最后修改于：20070618 '

'ff.txt的格式可为如下单引号中的形式'
'1 1.1'
'2 2.3'
'   3    4.4'
' 4 6.6    '
' 5 8.8 '


Language="VBSCRIPT"

Sub CATMain()

Dim fso,txtf,FileName
Dim text,arr1
Dim myPointx(200),myPointy(200)           '最多200个点，当然可在此修改'
Dim i,j

FileName="c:/ff.txt"                      '数据文件名

Set fso = CreateObject("Scripting.FileSystemObject")      '创建一个文件对象
if fso.FileExists(FileName) then            '根据指定的文件存在否确定操作
  iomode = 1
  Set txtf = fso.OpenTextFile(FileName,iomode)
else
  msgbox("文件不存在")                      '提示文件不存在
end if

i = 0
Do Until txtf.AtEndOfStream               '至文件末尾'
  text = txtf.ReadLine                    '读取一行'
  text = trim(text)                       '删除首尾空格'
  arr1 = Split(text, " ", -1, 1)          '用空格分离该行文本为字符串'
  myPointx(i) = cdbl(arr1(0))                  '首串转为浮点，并赋值'
  myPointy(i) = cdbl( arr1(Ubound(arr1)) )     '尾串转为浮点，并赋值'
  i = i+1
Loop

txtf.Close                                '关闭文本'


'以下为Catia使用的脚本'
Set partDocument1 = CATIA.ActiveDocument
Set part1 = partDocument1.Part
Set qHSF = part1.HybridShapeFactory
Set qHBodies = part1.HybridBodies
Set qHBody = qHBodies.Add()
qHBody.Name = "我的点集"

For j = 0 To i-1 Step 1
  set qPoint1 = qHSF.AddNewPointCoord(myPointx(j), myPointy(j), 0)  '新建点'
  qHBody.AppendHybridShape qPoint1              '加入线框几何体'
  qPoint1.Name = "q点."+cstr(j+1)               '改名'
Next

part1.Update         

End Sub