用GRIP写的一个遍历图中所有直线的程序，但是有时显示算出的直线不对啊！求教1

214152df

ENTITY/curln(50),curspl,pts(15)
' D, [  v' ?  _9 TNUMBER/dis(7)
I=1
  
LAP4:
    MASK/3
% ^/ i" \# z2 C" F    INEXTE                $$ 取直线
   
LAP1y:   
   
    curln(I)=NEXTE/IFEND,LAP2:
    I=I+1
    JUMP/LAP1y:
) r# I6 Q8 a+ [- u/ S LAP2:
   lnm=i-1
  
    MESSG/'line NUMBER '+ISTR(lnm)     $$遍历所有的直线
9 \# m6 O( J: d5 p$ _; q, c  
  pts(1)=point/0,-46.732,0            $$样条点
  pts(2)=point/2.518,-46.732,0
  pts(3)=point/3.31,-46.713,0
2 M; R; n& u0 X6 k9 Z, t! j  pts(4)=point/3.742,-46.657,0
  pts(5)=point/4.353,-46.561,0
( t$ W1 K6 J" i  ~" o* Y4 d  pts(6)=point/4.964,-46.432,0
  pts(7)=point/5.573,-46.237,0
  pts(8)=point/6.182,-45.995,0
  pts(9)=point/6.788,-45.681,0
7 N! k5 y- K9 i& e9 M0 E: c  pts(10)=point/7.392,-45.27,0
  pts(11)=point/7.991,-44.692,0
5 R: m' V6 ]6 Z  z1 j  W/ y  pts(12)=point/8.556,-43.57,0
  curspl=spline/pts(1..10)             $$生成样条曲线
3 G* B5 n2 W" f! e* D    do/lop2:,j,1,lnm
      dis=RELDST/curspl,curln(j)       $$计算距离
      ifthen/j==1
         mind=dis(7)
2 F: Z- Q$ Y7 s         mindi=j                     
      else
         ifthen/mind>dis(7)
           mindi=j
6 S/ R4 }7 N/ R! v5 P7 ]3 W+ E           mind=dis(7)
; L, M2 y& M5 O: W, A/ ^' J' ^% y4 N         endif
8 L. V! U4 g) [1 y      endif
  Z9 n5 W6 y& v/ T& @5 c    lop2:

214152df

没有人知道吗？

-KASA-

问题在这里：“  INEXTE                $$ 取直线”

214152df

-KASA- 发表于 2011-11-18 13:32
( s# a8 w! _" d/ p) m. }+ b问题在这里：“  INEXTE                $$ 取直线”

该怎么解决呢？

-KASA-

214152df 发表于 2011-11-18 19:30
该怎么解决呢？

. H; x: D& p, P% \. l) r( V+ D& X你还是没有仔细看函数说明啊，要加"ALL"字段，才能遍历所有