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

214152df

ENTITY/curln(50),curspl,pts(15)
: R( T5 J# y1 S" v, E' SNUMBER/dis(7)
( ^( I: h9 L+ v7 Y) L4 [. pI=1
6 V5 g, p( C5 `8 H1 D  
6 X$ p6 \6 `7 r% p  a LAP4:
    MASK/3
0 d% D7 x; j8 j  H/ I# T5 F    INEXTE                $$ 取直线
3 A# |! T  i9 Y0 B, d9 H   
6 U4 U! E. p9 V2 k LAP1y:   
   
    curln(I)=NEXTE/IFEND,LAP2:
$ r) Q2 g0 c) ^, s* C. X8 I    I=I+1
    JUMP/LAP1y:
LAP2:
9 c$ w6 r" H7 @   lnm=i-1
  
& k! p; K- O3 _$ G0 v    MESSG/'line NUMBER '+ISTR(lnm)     $$遍历所有的直线
0 c3 n8 b0 q/ q7 e  P  
" r. g# o* u/ D; ]2 G. N  pts(1)=point/0,-46.732,0            $$样条点
  pts(2)=point/2.518,-46.732,0
) \- ~8 J5 a; B1 w. V6 y  pts(3)=point/3.31,-46.713,0
  |4 Y5 H, a. O; I* b/ V  pts(4)=point/3.742,-46.657,0
  pts(5)=point/4.353,-46.561,0
  pts(6)=point/4.964,-46.432,0
) ]" r& f: v' e  m$ Z# W  K  pts(7)=point/5.573,-46.237,0
# p) Y+ H7 b! A& J9 E  pts(8)=point/6.182,-45.995,0
  pts(9)=point/6.788,-45.681,0
: P  k( e) a0 K' K3 v6 h  pts(10)=point/7.392,-45.27,0
  pts(11)=point/7.991,-44.692,0
. ^+ R5 W4 Q, E, e5 W  pts(12)=point/8.556,-43.57,0
' y& |3 o7 \) H4 E) i, O/ D  curspl=spline/pts(1..10)             $$生成样条曲线
    do/lop2:,j,1,lnm
! w: N: t* s3 j' Y      dis=RELDST/curspl,curln(j)       $$计算距离
( Q* c2 f' O& `2 Z; }8 T! \! T6 `      ifthen/j==1
         mind=dis(7)
: O1 `" X6 i5 M. |+ H7 d9 t         mindi=j                     
      else
- n& r, s" d/ \/ ~3 `4 ^/ r1 v         ifthen/mind>dis(7)
1 k6 A; K& k* }7 D! n, V           mindi=j
           mind=dis(7)
         endif
0 X* I' y& H; V% \6 ]9 _      endif
    lop2:

214152df

没有人知道吗？

-KASA-

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

214152df

-KASA- 发表于 2011-11-18 13:32
问题在这里：“  INEXTE                $$ 取直线”

该怎么解决呢？

-KASA-

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

' b( o4 \9 s" r2 |/ T0 ]你还是没有仔细看函数说明啊，要加"ALL"字段，才能遍历所有