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

214152df

ENTITY/curln(50),curspl,pts(15)
4 ~; s( J0 e) }# mNUMBER/dis(7)
& B* e: N0 O( x$ }4 E/ CI=1
  
' ~$ M1 n- @- V$ i  [ LAP4:
4 |+ z" [- }- u: g    MASK/3
+ o4 q' x) J# p+ `8 k# X    INEXTE                $$ 取直线
   
LAP1y:   
   
  P# ^8 `' X$ K8 I# q    curln(I)=NEXTE/IFEND,LAP2:
/ \( T5 w- h5 }) x    I=I+1
3 u: }8 J8 c" ]    JUMP/LAP1y:
LAP2:
+ J) h7 z- U+ `- {! L$ y   lnm=i-1
6 [% a( E! I3 }$ W7 I5 H& J' m  
9 g, O" u7 \; t. O    MESSG/'line NUMBER '+ISTR(lnm)     $$遍历所有的直线
  
* p' J( j+ J4 ~  T  pts(1)=point/0,-46.732,0            $$样条点
# B7 S1 Y& g7 e& y; l  pts(2)=point/2.518,-46.732,0
  pts(3)=point/3.31,-46.713,0
4 D# ~: ?; P0 {- v8 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
  pts(7)=point/5.573,-46.237,0
  pts(8)=point/6.182,-45.995,0
7 j2 l% p5 x! a' C9 q) _  pts(9)=point/6.788,-45.681,0
0 Y6 U; Z) o9 P8 h2 O  pts(10)=point/7.392,-45.27,0
  pts(11)=point/7.991,-44.692,0
  pts(12)=point/8.556,-43.57,0
& y4 Q6 W  r: J3 n: ~! z  curspl=spline/pts(1..10)             $$生成样条曲线
    do/lop2:,j,1,lnm
' B$ j! h/ U' {. @( u5 b& ]      dis=RELDST/curspl,curln(j)       $$计算距离
0 [; j6 Z3 w! h; n4 V$ z2 b2 S      ifthen/j==1
/ w* p9 }8 T7 k' ~0 C4 W         mind=dis(7)
6 t; W( ^1 p8 w         mindi=j                     
/ x3 r) N* G/ B      else
         ifthen/mind>dis(7)
           mindi=j
8 p4 d8 ?3 r4 O, ~+ m8 n           mind=dis(7)
         endif
7 F% ]1 P3 t( X/ _! l      endif
* v+ K: y$ w  Z2 b1 G    lop2:

214152df

没有人知道吗？

-KASA-

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

214152df

-KASA- 发表于 2011-11-18 13:32
! c9 N: G2 x1 T# `问题在这里：“  INEXTE                $$ 取直线”

该怎么解决呢？

-KASA-

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

! F% @3 p* C$ A你还是没有仔细看函数说明啊，要加"ALL"字段，才能遍历所有