track

dzy

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

jgc

周老师的书中，就提供了一种方法
8.1版本代码：
6 K5 C+ v& I+ w! W1 T% l, p* ris
9 i) y7 y6 c) L  J( h8 N% X/ P        obj:object;
" x, n' \+ }1 g. ]        tb:table[integer,integer,real,real];
do
        tb.create;
5 ]- J( {( Q3 \/ `7 P2 }  h        obj:=.MaterialFlow.track.createobject(current,100,100);

6 A6 ?" q8 l" j5 d- p* P; x( }        tb[1,1]:=100;
        tb[2,1]:=60;
        tb[3,1]:=0;
        tb[4,1]:=0;
2 E) p  s) `# u1 b        tb[1,2]:=100;
        tb[2,2]:=150;
        tb[3,2]:=0;
  w' }8 B" m$ F7 X2 J1 e/ G        tb[4,2]:=0;
       
        obj.SegmentsTable:=tb;
end;
提醒注意
9.0版本的话，表格数不一样，除了X向，Y向外，增加了Z向，不过有两组起始点也是可以确定track的方向，