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://t.icax.org/)