STAR 斑竹：我下面的程序能运行，但结果与输入点所得结果不一致： 程序一：构造圆柱： program MEOUT[WM1,WM2] element_array MEMORY[300] real XX,YY,ZZ integer me=0 string FN[30] dy ("数据文件名 ？[带路径]") read (FN) openf (f1,FN) reset (f1) loop exif eof(f1) readln (f1,XX,YY,ZZ) me=me+1 define_element (MEMORY[me],pick,x=XX,y=YY,z=ZZ) save (element,"C:\WTUTOR\DATA\构造圆柱.MEM") end_loop closef (f1) icyl(memory[40],16,memory[1])savepts endstat end_program 程序2：构造平面： program MEOUT[WM1,WM2] element_array MEMORY[300] real XX,YY,ZZ integer me=19 string FN[30] dy ("数据文件名 ？[带路径]") read (FN) openf (f2,FN) reset (f2) loop exif eof(f2) readln (f2,XX,YY,ZZ) me=me+1 define_element (MEMORY[me],pick,x=XX,y=YY,z=ZZ) save (element,"C:\WTUTOR\DATA\SELF5.MEM") end_loop closef (f2) ipl(memory[42],10,memory[20],form lsm)savepts endstat end_program 这两个程序都出现了问题，程序所得结果与 一个点一个点输入得出的 圆柱度和平面度的结果不一致，请问上面的程序哪里出错了？？ 数据如下：圆柱数据： 37.498 -1.463 -184.478 26.47 -1.49 -157.925 0.132 -1.506 -146.989 -26.437 -1.504 -157.894 -37.495 -1.495 -184.484 -26.474 -1.474 -211.044 -0.166 -1.457 -221.979 26.431 -1.46 -211.081 26.432 -21.371 -211.082 0.122 -21.403 -221.987 -26.441 -21.403 -211.07 -37.496 -21.411 -184.485 -26.477 -21.393 -157.93 -0.172 -21.388 -146.989 26.433 -21.389 -157.886 37.501 -21.383 -184.489 平面数据： -46.705 0.004 -203.939 -38.201 0.005 -210.686 -22.856 0.005 -220.071 24.199 -0.001 -220.071 35.289 -0.004 -210.596 43.133 0 -203.994 34.083 0.001 -161.395 32.179 0.001 -144.37 -33.942 0.007 -146.39 -33.95 0.004 -162.284 另外，如果我 在上面程序中都 写为 openf (f1,FN)，同时加载程序一和程序二时 提示出错，为何？？所以我现在改为： openf (f1,FN) 和openf (f2,FN)

另外： 构造 圆柱、平面、圆的几个命令中对于括号中的参数，我不是很明白，请会者详细解释一下： icyl(…………)savepts ipl(…………)savepts 非常感谢！！

很高兴你的进步. 关于你问为什么手动构造与程序构造不一样的问题,我的回答两个结果都没错! 因为构造的形式不一样. 即圆柱与阶梯柱;ISO平面与最小二乘平面.看看我的程序是怎样写的. program BBS1[WM1,WM2] element_array MEMORY[300] real XX,YY,ZZ integer ME=0 string FN[30] dy ("数据文件名 ？[带路径]") read (FN) openf (f1,FN) reset (f1) loop exif eof(f1) readln (f1,XX,YY,ZZ) ME=ME+1 define_element (MEMORY[ME],pick,x=XX,y=YY,z=ZZ) save (element,"C:\WTUTOR\DATA\构造圆柱.MEM") end_loop closef (f1) !构造阶梯柱 icyl (MEMORY[40],16,MEMORY[1]) savepts !构造圆柱 icyl (MEMORY[41],16,MEMORY[1],sdm) savepts endstat end_program program MEOUT[WM1,WM2] element_array MEMORY[300] real XX,YY,ZZ integer me=19 string FN[30] dy ("数据文件名 ？[带路径]") read (FN) openf (f2,FN) reset (f2) loop exif eof(f2) readln (f2,XX,YY,ZZ) me=me+1 define_element (MEMORY[me],pick,x=XX,y=YY,z=ZZ) save (element,"C:\WTUTOR\DATA\SELF5.MEM") end_loop closef (f2) !构造最小二乘平面 ipl(memory[42],10,memory[20],form lsm)savepts !构造ISO标准平面 ipl(memory[43],10,memory[20],form iso)savepts endstat end_program

这个也不错

不知道楼主是否解决此问题。 我是新来的,正在学习中。正好前几天也遇到这个问题。 能否指点一下 我的QQ49096836谢谢

通过编程实现直接读取文本文件中的点的坐标值没有一点问题,上面已有详细示例可供参考.

回家研究一下

请问谁知道这是vb还是别的？