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

214152df

ENTITY/curln(50),curspl,pts(15)
NUMBER/dis(7)
I=1
% m, g4 ~5 n( N+ B) v6 @5 v  
: N% B! P; z, t0 Q0 W" @* \8 B LAP4:
# [. r6 J" |* l; {    MASK/3
' i( C: P' @, p& }9 a    INEXTE                $$ 取直线
: G! c) v! F5 q1 F) e& m* ]* q   
& Q) s/ t7 D; H3 _+ O9 x LAP1y:   
   
& h  n) q( e( s/ h( u& C    curln(I)=NEXTE/IFEND,LAP2:
; P$ F0 Y2 h6 y0 x+ E' R8 R3 f8 m    I=I+1
  [* h7 I: O) q# D) r& O/ ~, t    JUMP/LAP1y:
7 g1 y" }% |, W$ D, O LAP2:
! T+ S9 u" t/ j# c6 S   lnm=i-1
  o7 p0 ^& M7 G1 `$ r: H  
    MESSG/'line NUMBER '+ISTR(lnm)     $$遍历所有的直线
. I' J% o& `+ X% T4 [, D* N  
0 T2 V" v& |1 a2 L3 K  pts(1)=point/0,-46.732,0            $$样条点
+ R7 b. b$ @8 B, F) D  pts(2)=point/2.518,-46.732,0
4 |  G. s& A/ }( u9 S* {  pts(3)=point/3.31,-46.713,0
  pts(4)=point/3.742,-46.657,0
  pts(5)=point/4.353,-46.561,0
4 q0 O% e7 D- W+ ^6 e  pts(6)=point/4.964,-46.432,0
$ c# f. w5 v9 |" p; Q1 o: t  pts(7)=point/5.573,-46.237,0
  pts(8)=point/6.182,-45.995,0
  pts(9)=point/6.788,-45.681,0
; h3 P9 H9 }2 W1 Z5 k1 ~7 n' ]. d  pts(10)=point/7.392,-45.27,0
+ Q0 Q4 h5 b4 x: Z2 f- i7 A! S  pts(11)=point/7.991,-44.692,0
- C3 @+ e3 K  l3 u: t  pts(12)=point/8.556,-43.57,0
8 l: U% m* D" d3 M) F  curspl=spline/pts(1..10)             $$生成样条曲线
" @) C- a0 k1 Q8 w* B    do/lop2:,j,1,lnm
      dis=RELDST/curspl,curln(j)       $$计算距离
      ifthen/j==1
         mind=dis(7)
         mindi=j                     
# N$ ], U/ `0 v, O$ I" p! d. I$ B* s      else
         ifthen/mind>dis(7)
           mindi=j
           mind=dis(7)
& o" p' z: R4 u& Z         endif
      endif
- c; K7 g& @( |8 h+ t5 @8 ^    lop2:
. @" Y; @) M3 C7 P0 n% R5 M' g6 x

214152df

没有人知道吗？

-KASA-

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

214152df

-KASA- 发表于 2011-11-18 13:32
8 [. [8 ?1 u) O问题在这里：“  INEXTE                $$ 取直线”

9 m+ {6 L7 x: H- @该怎么解决呢？

-KASA-

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

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