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

214152df

ENTITY/curln(50),curspl,pts(15)
6 p+ ^5 `- D) a2 d9 ?- c* GNUMBER/dis(7)
I=1
  
# O0 l, v  Q3 Q LAP4:
    MASK/3
: _7 |- c! l4 a; ~    INEXTE                $$ 取直线
   
; r; u; H7 p! s' Z  j1 B LAP1y:   
5 f+ y1 T$ {' Z5 K$ z   
; [( M9 D  w& |    curln(I)=NEXTE/IFEND,LAP2:
    I=I+1
    JUMP/LAP1y:
9 u, D2 H/ U% A LAP2:
   lnm=i-1
  
# J/ s1 v& m, d    MESSG/'line NUMBER '+ISTR(lnm)     $$遍历所有的直线
  
2 k- T8 E6 K" a$ g3 E  pts(1)=point/0,-46.732,0            $$样条点
0 ~* `% j6 O( r1 Z; D8 \  pts(2)=point/2.518,-46.732,0
, v0 e0 x! N3 N' M/ u  pts(3)=point/3.31,-46.713,0
& Q& W6 Z  Y9 y  pts(4)=point/3.742,-46.657,0
  pts(5)=point/4.353,-46.561,0
% ?: y2 S9 u) _% Q) C  pts(6)=point/4.964,-46.432,0
  pts(7)=point/5.573,-46.237,0
. m  C% F, Y+ _9 S. q$ H" o8 k9 s  pts(8)=point/6.182,-45.995,0
  pts(9)=point/6.788,-45.681,0
2 U$ g2 h5 n% _, v4 T  I8 p9 ?  pts(10)=point/7.392,-45.27,0
  pts(11)=point/7.991,-44.692,0
  pts(12)=point/8.556,-43.57,0
  curspl=spline/pts(1..10)             $$生成样条曲线
3 F1 O& G+ W* L, y8 z" e; L4 l3 A    do/lop2:,j,1,lnm
      dis=RELDST/curspl,curln(j)       $$计算距离
9 v( Q, L: h0 S2 A      ifthen/j==1
$ {" t' ]$ E3 o* [         mind=dis(7)
         mindi=j                     
6 A+ K* K4 N- o/ R7 w1 L; |+ _      else
, c+ |% Z4 X9 i3 ~4 G4 S! D- N         ifthen/mind>dis(7)
           mindi=j
           mind=dis(7)
         endif
      endif
    lop2:
" N: h; T, {0 B; i

214152df

没有人知道吗？

-KASA-

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

214152df

-KASA- 发表于 2011-11-18 13:32
# a) u' E* v+ u% `1 X5 C( x问题在这里：“  INEXTE                $$ 取直线”

+ a4 ~* t% Y4 n1 j该怎么解决呢？

-KASA-

214152df 发表于 2011-11-18 19:30
4 d$ }* g& v5 ?' X& p2 u该怎么解决呢？

你还是没有仔细看函数说明啊，要加"ALL"字段，才能遍历所有