iCAx开思网

标题: 问:grip语句怎样将数据转换并写成规定格式? [打印本页]

作者: gypcad    时间: 2005-12-15 11:32
标题: 问:grip语句怎样将数据转换并写成规定格式?
用grip语句生成了部分点集,如何将这些数据导入到一个txt文件,格式如下
23    45     67
23    34     45
.....,十分感谢!!!
数据生成代码:
$$变量声明。
entity/results(100),cur
$$选择一条曲线。
l10:
ident/'pick a curve',cur,resp
jump/l10:,trm:,,resp

$$输入弦向公差。
l20:
param/'enter the tolerance','弦高公差=',tol,resp
jump/l20:,trm:,,resp

$$等弦长离散曲线。
l30:
cpset/chord,cur,tol,results

$$程序结束。
trm:
halt
数据保存代码???。。。期待中
作者: liangquan6    时间: 2007-7-29 20:32
试试我的方法,不一定好,但是可以用。

基本思想是建立点集后,添加一步选择输出点集,代码如下:

$$选择要输出的点集
l40:
ident/'pick several point',ptarr,cnt,numPt,resp
jump/l40:,l50:,,resp


通过上面的代码,取得了点的数组ptarr,还有点集中点的个数,numPt。

用循环输出就可以了:

l70:
create/txt,1,'D:\New\UGTest\grip\'+ filename

l30:
do/trm:,index,1,numPt
pt=results(index)
a(1..3)=&point(pt)
write/1,a(1..3)
file/txt,1,'D:\New\UGTest\grip\' + filename


变量的声明如下:
number/a(3),numPt
string/filename(99)





欢迎光临 iCAx开思网 (https://www.icax.org/) Powered by Discuz! X3.3