' 在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
Catia中绘制翼形点,从此省事了
最新推荐文章于 2020-12-29 04:30:44 发布