grip程序

C:\Documents and Settings\Administrator\桌面\1.png这个是我的文件的格式，这个是不是你说的用POINT的格式写的呀？我用什么命令能指定这些点是一条直线，另一个文件里的点是另一条支线呢？

hyfjy 发表于 2011-10-29 21:07
UG认文件输入样条线与GRIP二次开发是UG中的二个模块，互相没关系的。如果想让样条线的五个文件变成可以一 ...

这个是我的文件的格式，这个是不是你说的用POINT的格式写的呀？我用什么命令能指定这些点是一条直线，另一个文件里的点是另一条支线呢？C:\Documents and Settings\Administrator\桌面\1.png

输入点的格式应该为：



总之，每个点要有名称，在下面的处理时才能把相应编号的点连成样条线的，每一步都要十分小心，电脑是听人指挥的，电脑错了，实际上是人指挥错了。

hyfjy 发表于 2011-10-30 20:52
输入点的格式应该为：

我按照您给的格式改了数据点文件，但是用UG运行程序时提示找不到文件，
ENTITY/Pt(2000)
NUMBER/row(2000)
STRING/str(1000)
L1:
CHOOSE/'Select an option',$
       '开式叶轮',$
       '半开式叶轮',$
       '闭式叶轮',resp
       JUMP/L1:,END:,,,L2:,L3:,L4:,RESP
L2:
       messg/'请输入叶轮叶片数据点.dat/'
       JUMP/END:
L3:
      L10:
       PARAM/'ENTER # of rows','给出行数',R,RESP $$ 给出行数
       JUMP/L10:,TRM:,,RESP
      j10:
       TEXT/'输入包含点信息的文件名',str,resp $$输入包含点信息的文件名
       JUMP/J10:,TRM:,,,RSP
       FETCH/TXT,1,'c:\first.dat',iferr,er1: $$搜索文件
       RESET/1
      er1:
       MESSG/'dont find the file!'
      j20:
       DELIM/',' $$点信息之间用逗号隔开
      j30:
       READ/1,IFEND,j40:,iferr,er2:,X,Y,Z
      j40:
       Pt(K)=POINT/X,Y,Z $$生成点实体
       er2:
       MESSG/'read error'
       JUMP/j10:
       TRM:
L4:
       messg/'请输入叶轮叶片数据点.dat/'
       JUMP/END:
END:
HALT
这个是我的程序，您看一下有什么错误，十分感谢您的帮助，方便的话可以加一下我的QQ吗？344570544，验证的时候说是开思论坛就好，谢谢您了。

hyfjy 发表于 2011-10-30 20:52
输入点的格式应该为：

我按照您给的格式改了数据点，但是还是没有生成点实体，这个是我的程序代码，请您看一下哪有问题

hyfjy 发表于 2011-10-30 20:52
输入点的格式应该为：

ENTITY/Pt(2000)
NUMBER/row(2000)
STRING/str(1000)
L1:
CHOOSE/'Select an option',$
       '开式叶轮',$
       '半开式叶轮',$
       '闭式叶轮',resp
       JUMP/L1:,END:,,,L2:,L3:,L4:,RESP
L2:
       messg/'请输入叶轮叶片数据点.dat/'
       JUMP/END:
L3:
      L10:
       PARAM/'ENTER # of rows','给出行数',R,RESP $$ 给出行数
       JUMP/L10:,TRM:,,RESP
      j10:
       TEXT/'输入包含点信息的文件名',str,resp $$输入包含点信息的文件名
       JUMP/J10:,TRM:,,,RSP
       FETCH/TXT,1,'c:\first.dat',iferr,er1: $$搜索文件
       RESET/1
      er1:
       MESSG/'dont find the file!'
      j20:
       DELIM/',' $$点信息之间用逗号隔开
      j30:
       READ/1,IFEND,j40:,iferr,er2:,X,Y,Z
      j40:
       Pt(K)=POINT/X,Y,Z $$生成点实体
       er2:
       MESSG/'read error'
       JUMP/j10:
       TRM:
L4:
       messg/'请输入叶轮叶片数据点.dat/'
       JUMP/END:
END:
HALT

    READ/1,IFEND,j40:,iferr,er2:,X,Y,Z
      j40:
       Pt(K)=POINT/X,Y,Z $$生成点实体
IFEND的指向有问题，ifend是当读到文件尾时的动作，你看下帮助文档吧

hyfjy 发表于 2011-10-30 20:52
输入点的格式应该为：

运行程序时还提示
错误1548999出现在第34行（cad4中）.第10行的点数无效
还有一个问题就是PARAM/'ENTER # of rows','给出行数',R,RESP $$ 给出行数
这个命令起到什么作用呀？是一条曲线的点数吗？

这不是你编的吗？建议你把多余的东西都去掉，将主要部分调试好再一点点往上加东西，这样不容易错，还有GRIP的书还是有几本在网上可以下载到的，建议你好好看看

有可能把你的五个文件都传上来，让我看一下才好，谢谢。