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

214152df

ENTITY/curln(50),curspl,pts(15)
  }0 l+ k7 d1 D, ZNUMBER/dis(7)
! N) t, s/ R2 n" rI=1
8 c) F- u; ]: D0 l( v( p  w  
& k/ ]1 r  U/ | LAP4:
8 f9 p8 i& z' T    MASK/3
    INEXTE                $$ 取直线
/ j) q. k9 Z8 U/ [& O   
0 J  w2 A+ A8 o9 J/ W LAP1y:   
# G! ~7 M. L% _- N, E  U   
    curln(I)=NEXTE/IFEND,LAP2:
    I=I+1
5 c* ~( p7 s" F) `$ F- G( q: M1 d5 r    JUMP/LAP1y:
LAP2:
   lnm=i-1
# ?. I/ t7 u5 N" D! o+ K  
    MESSG/'line NUMBER '+ISTR(lnm)     $$遍历所有的直线
  
  pts(1)=point/0,-46.732,0            $$样条点
3 p. E9 }: n8 O, h1 N4 U: P  pts(2)=point/2.518,-46.732,0
$ p; H8 L, ^7 P/ d6 z# d' q; R- Q  pts(3)=point/3.31,-46.713,0
5 S) B8 T' i3 R* c# T  pts(4)=point/3.742,-46.657,0
% N3 F' j3 M! f4 W  pts(5)=point/4.353,-46.561,0
  pts(6)=point/4.964,-46.432,0
  pts(7)=point/5.573,-46.237,0
; g) v) q' |2 g$ H- j  l  pts(8)=point/6.182,-45.995,0
  pts(9)=point/6.788,-45.681,0
  pts(10)=point/7.392,-45.27,0
4 J0 n9 [4 W5 L* J7 D$ M  pts(11)=point/7.991,-44.692,0
$ q  b  u' L3 b  pts(12)=point/8.556,-43.57,0
  curspl=spline/pts(1..10)             $$生成样条曲线
( ]" k: D  M# _    do/lop2:,j,1,lnm
      dis=RELDST/curspl,curln(j)       $$计算距离
# c# N! l1 A4 w. {. n      ifthen/j==1
: A) |7 |+ e  P. {" e3 c) ^# s$ e         mind=dis(7)
& ]9 i: U2 j5 h0 ]  `" v) l  @, P         mindi=j                     
( Q2 z. x9 P, G9 H! t" }3 [2 D      else
, P! c6 u) @# ~8 o- \         ifthen/mind>dis(7)
1 s- Q% n: ~: b7 d, ^& z) Z9 l           mindi=j
# {- _3 _: }0 C9 w% Y0 b  G8 `' R           mind=dis(7)
6 R/ }. \( P, c  X         endif
5 y( c# a6 R1 ]2 F# Q* I# b9 z      endif
    lop2:

214152df

没有人知道吗？

-KASA-

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

214152df

-KASA- 发表于 2011-11-18 13:32
1 ?0 }  f: a4 S$ i$ W, Q问题在这里：“  INEXTE                $$ 取直线”

该怎么解决呢？

-KASA-

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

* O9 ^4 j3 w5 D你还是没有仔细看函数说明啊，要加"ALL"字段，才能遍历所有