周老师的书中,就提供了一种方法
2 d* M( J% ?! y8.1版本代码:" k3 M; g% x3 t
is
) R/ Z0 o. U- z obj:object;
1 _& Z. R2 P4 N, p! A! S+ r tb:table[integer,integer,real,real];
! O4 g3 F2 h$ I. \do( ~* m$ k7 M% y- V. S! P
tb.create;
- j2 X" Q6 W( `2 A5 l: D obj:=.MaterialFlow.track.createobject(current,100,100);4 ^4 C, G; d$ j' c
; s9 ^$ O1 G$ B, r$ s! t( d) [5 P) [/ L tb[1,1]:=100;
% X& T, _( f$ J' p# c% S; y+ C" a tb[2,1]:=60;
, s7 I ]) y2 n/ t) G: S$ H9 M tb[3,1]:=0;
2 D5 y5 O* i) C0 G4 N3 ?/ D) [ tb[4,1]:=0;
* _* N& w3 r0 S& C) ?' B tb[1,2]:=100;
" W$ B/ ]4 n2 w7 O' h tb[2,2]:=150;
% R: N9 \: k; X- J tb[3,2]:=0;
1 k. f( q7 d$ P) e tb[4,2]:=0;
7 X+ Y% M, u4 ~" [# {# f 8 }; t' H: j; l. R9 O. R3 i
obj.SegmentsTable:=tb; O ?( {& Y( T+ W0 C% u
end;9 b' y# ] A' z7 y) d6 m4 k+ _6 X
提醒注意$ h, m) Y; E- X$ F# Z* T
9.0版本的话,表格数不一样,除了X向,Y向外,增加了Z向,不过有两组起始点也是可以确定track的方向, |