哪位高手有 王庆林 编著的《ug/open grip..》的光盘内一程序

哪位高手有 王庆林 编著的《ug/open grip..》的光盘内一程序提供下载
程序名为
  rd_points.grx
就是生成点实体，再用这些点生成曲面（该书正文第二页所说的）

谢谢了！期待您的关注！我也有资料可以提供交换！

联系我吧mstangmei@tom.com

你怎么就和点对上了。

拿去好好看看


$$
$$  程序名：rd-points.grs
$$
$$  功能：从文件中读一批点的信息，生成点实体，并用这些点
$$        自动生成曲面
$$  说明：点文件名为：point.dat
$$        执行此文件时，输入  # of ROW = 10
$$
     NUMBER/row(100)
     ENTITY/Pt(200), BS
     STRING/sfn(30)
$$
  L10:
     PARAM/'ENTER # of rows','# OF ROWS',R,RESP $$ 给出行数
     JUMP/L10:,TRM:,,RESP
$$

j10:
   TEXT/'Enter file name',sfn,rsp  $$ 输入包含点信息的文件名
   JUMP/j10:,trm:,,,,rsp
   FETCH/txt,1,sfn,iferr,er1:      $$ 搜索文件
   JUMP/j20:
er1:
   MESSG/'dont find the file !'
   JUMP/j10:
j20:
   RESET/1
   DELIM/','                       $$ 点信息之间用逗号隔开
j30:
   READ/1,ifend,j50:,iferr,er2:,x,y,z
   K=K+1
   pt(K)=POINT/x,y,z       $$ 生成点实体
   JUMP/j30:
$$
j50:
     A=K/R
L30:
     J=J+1
     ROW(J)=A
     IF/J==R,JUMP/CONT:
     JUMP/L30:
  CONT:
     BS=BSURF/Pt(1..K),ROW(1..R)  $$ 生成曲面
$$

   FTERM/txt,1                    $$ 关闭点文件
trm:
   HALT
er2:
   MESSG/'read error'
   JUMP/j50:

楼主请问您在grip里怎么用点文件生成曲线呀？