iCAx开思工具箱

标题: 哪位高手有王庆林编著的《ug/open grip..》的光盘内一程序 [打印本页]

作者: 描述 时间: 2007-3-5 16:13
标题: 哪位高手有王庆林编著的《ug/open grip..》的光盘内一程序
哪位高手有王庆林编著的《ug/open grip..》的光盘内一程序提供下载
程序名为
rd_points.grx
就是生成点实体，再用这些点生成曲面（该书正文第二页所说的）

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

作者: mstang 时间: 2007-3-7 21:11
联系我吧mstangmei@tom.com

作者: rickshu 时间: 2007-3-7 22:54
你怎么就和点对上了。

作者: rickshu 时间: 2007-3-7 22:59
拿去好好看看

$$
$$  程序名：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:

作者: aaronliyuan 时间: 2011-10-13 17:07
楼主请问您在grip里怎么用点文件生成曲线呀？

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