UG如何直接读取点文件

试一试这个，如果还不行，呵呵，那可没辙了。

grip搞定

grip？？？？？
呵呵，没学过啊。
不过我觉得grip似乎象UG的脚本一样啊，应该不能处理文件读写，字串处理等操作吧。

深夜摔键盘 wrote:
试一试这个，如果还不行，呵呵，那可没辙了。

  
再次感谢深夜摔键盘，已经搞定了。多谢帮忙。顺便问一句，两个程序有什么不一样吗？

第一个程序我用的是MFC共享库，可能你的机器上没有装VC。
第二个，用的是静态库，程序文件体积大，把所需要的MFC的库都包了进去。

是的，我没装VC。我就说嘛，人家都行，就我不行，也忒可怜了。总算你还是帮我摆平了。

799.070 -362.105 -339.078
799.068 -362.104 -339.078
799.070 -362.106 -339.079
799.220 -362.123 -339.005
799.728 -362.144 -338.644
800.349 -362.154 -338.227
800.710 -362.169 -338.078
801.122 -362.185 -337.902
801.716 -362.200 -337.639
802.107 -362.214 -337.535
802.497 -362.231 -337.462
803.072 -362.243 -337.322
803.509 -362.259 -337.278
803.918 -362.275 -337.255
804.480 -362.288 -337.234
804.900 -362.304 -337.246
805.295 -362.323 -337.302
805.844 -362.335 -337.376
  
这是一个哥们给我的点

entity/pt
string/sfn(30)
j10:
   $$ text/'Enter file name',sfn,rsp
   $$ jump/j10:,trm:,,,,rsp
   fetch/txt,1,'d:\grip\B.asc',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
  $$ print/x,y,z
   pt=point/x,y,z
   jump/j30:
j50:
   fterm/txt,1
trm:
   halt
er2:
   messg/'read error'
   jump/j50:  

这是读点云的源程序
  
将这段文奔赴制成  A.GRS 文件
  
启动UG的工具里的  UG OPEN GRIP
  
2 编译 3 连接  得到  A.GRX
  
把点云文件改为“D:\*****"
  
开个UG的新图
  
文件下执行UG/OPEN
  
搞定

如图