iCAx开思工具箱

标题: 【求助】请教一个菜问题：UG　GRIP [打印本页]

作者: bs906 时间: 2003-2-13 11:17
标题: 【求助】请教一个菜问题：UG　GRIP
我想从文件point.dat中读入这些点数据：
例如：point.dat
1,1,1
2,2,2
.......
8,8,8
9,9,9
FETCH/TXT,1,'c:point.dat',IFERR,err:
READ/file#[,LINNO,line#][,USING,'image string'][,IFEND,label:][,IFERR,label:,],variable list
请教READ语句怎么写？

作者: darkhorse 时间: 2003-2-13 12:17
我只懂一点UG/OpenAPI.
等待其他人回答吧

作者: wuyuchen 时间: 2003-3-7 09:17
文件point.dat的内容：

1,2,3
4,5,6
7,8,9

grip程序：

NUMBER/D(3),X(999),Y(999),Z(999)
DELIM/','
FETCH/TXT,1,'C:\POINT.DAT',IFERR,L999:
DO/L10:,I,1,999
READ/1,LINNO,I*10,IFEND,L999:,D       $$读文件
X(I)=D(1)
Y(I)=D(2)
Z(I)=D(3)
PRINT/X(I),Y(I),Z(I)
L10:
L999:
HALT

执行后的结果：

============================================================
Information listing created by :  wyc1
Date                         :  2003-03-07 09:18:30
Node name                   :  wyc
============================================================
1.000,2.000,3.000
4.000,5.000,6.000
7.000,8.000,9.000

作者: xszlz 时间: 2006-9-1 20:44
非常感谢三楼，我也在研究这个命令

欢迎光临 iCAx开思工具箱 (https://t.icax.org/)