track

dzy

请问程序怎么写可以自动生成方向向下的track...谢谢大家了。。。

jgc

周老师的书中，就提供了一种方法
8.1版本代码：
is
        obj:object;
+ B! y, Y6 ^" S  N1 G2 y& r+ l& G        tb:table[integer,integer,real,real];
: H) q, o( J8 l' @7 I: udo
        tb.create;
        obj:=.MaterialFlow.track.createobject(current,100,100);
% b+ P" r. g# N5 N6 @. j
        tb[1,1]:=100;
& f+ C! v, D' A7 u4 ~; q" ]2 O; L        tb[2,1]:=60;
5 ]. V% m8 L1 D/ O) y) u' {8 d        tb[3,1]:=0;
/ k# L! C3 z/ J        tb[4,1]:=0;
$ a/ N. l/ z  `5 [        tb[1,2]:=100;
        tb[2,2]:=150;
# I' c& T# b7 d3 _. R% _        tb[3,2]:=0;
* e  h" U6 n1 @6 h, m& Y1 j        tb[4,2]:=0;
       
3 I. ?6 T( H, u- ^0 i5 R        obj.SegmentsTable:=tb;
. K7 V$ T) O! ~9 J1 z) Bend;
) v% I* K+ D- L- N+ Y: v( t提醒注意
) O1 x0 P" G$ M& T4 Q9.0版本的话，表格数不一样，除了X向，Y向外，增加了Z向，不过有两组起始点也是可以确定track的方向，