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

214152df

ENTITY/curln(50),curspl,pts(15)
( [- E( Y% `8 B& w% Q* aNUMBER/dis(7)
I=1
  
LAP4:
# ?  W% M# Y6 I$ O$ G% `, s! j    MASK/3
( h; f0 r: Z; o7 V    INEXTE                $$ 取直线
   
LAP1y:   
   
    curln(I)=NEXTE/IFEND,LAP2:
  S! i, N  l; d1 `" {6 Y2 C5 ]    I=I+1
) ]/ K: J/ |, l: w  R- p9 g3 t    JUMP/LAP1y:
  F5 R) v# Q# s  P! B  v6 v LAP2:
5 C, R9 k9 j, ^9 l   lnm=i-1
- V% s# `" D$ H# O  
. C( w& N) ?" e: C    MESSG/'line NUMBER '+ISTR(lnm)     $$遍历所有的直线
$ y2 M8 [- o) ?  
  pts(1)=point/0,-46.732,0            $$样条点
" a2 ]1 Z# F' K4 Q8 H! e) a% y# `4 D  pts(2)=point/2.518,-46.732,0
5 _7 \9 d$ |8 u) c* R, J' n$ K  pts(3)=point/3.31,-46.713,0
  pts(4)=point/3.742,-46.657,0
1 z! d1 C% `) v" x8 m  T- f: @! a* b  pts(5)=point/4.353,-46.561,0
& v* {9 n* l2 ]  J5 U8 d7 @  pts(6)=point/4.964,-46.432,0
6 v6 j% c7 `/ R; R  pts(7)=point/5.573,-46.237,0
: p* X* z. d2 m  pts(8)=point/6.182,-45.995,0
  pts(9)=point/6.788,-45.681,0
  pts(10)=point/7.392,-45.27,0
  pts(11)=point/7.991,-44.692,0
, @# `$ M( D% V; R, Q) O# Z4 d  pts(12)=point/8.556,-43.57,0
& N% ]/ C1 Q9 V! F  curspl=spline/pts(1..10)             $$生成样条曲线
/ Q/ @  G$ e" [; ?0 k0 B    do/lop2:,j,1,lnm
) l, e! W/ v; d+ ^      dis=RELDST/curspl,curln(j)       $$计算距离
      ifthen/j==1
         mind=dis(7)
         mindi=j                     
3 d# \6 c$ z2 Y/ P, K4 [+ e      else
         ifthen/mind>dis(7)
           mindi=j
0 n2 G' Y5 m9 U  ?- m; Y           mind=dis(7)
         endif
      endif
; M9 d& [) y" _8 U, R    lop2:
) h/ a+ E0 u" E* h9 s/ x: K5 L2 X: |6 [

214152df

没有人知道吗？

-KASA-

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

214152df

-KASA- 发表于 2011-11-18 13:32
% e% t# _2 O! m" \& c问题在这里：“  INEXTE                $$ 取直线”

该怎么解决呢？

-KASA-

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

% P* ?2 G4 F1 \& n* t你还是没有仔细看函数说明啊，要加"ALL"字段，才能遍历所有