track

dzy

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

jgc

周老师的书中，就提供了一种方法
8.1版本代码：
6 S" h  Y9 }4 U* f- }is
        obj:object;
        tb:table[integer,integer,real,real];
do
        tb.create;
        obj:=.MaterialFlow.track.createobject(current,100,100);

        tb[1,1]:=100;
& G7 B+ f  V$ ]! a: W1 {5 p        tb[2,1]:=60;
: u8 H9 c- n; V& t$ _% v' l+ @        tb[3,1]:=0;
- A, q2 T& }- ^/ V        tb[4,1]:=0;
( d0 b7 f8 \, a        tb[1,2]:=100;
5 w: T7 m% ~$ X0 d' e        tb[2,2]:=150;
        tb[3,2]:=0;
        tb[4,2]:=0;
       
        obj.SegmentsTable:=tb;
end;
提醒注意
$ A, @$ [2 j- Q3 \* x9.0版本的话，表格数不一样，除了X向，Y向外，增加了Z向，不过有两组起始点也是可以确定track的方向，