track

dzy

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

jgc

周老师的书中，就提供了一种方法
0 K' F7 h, J/ w) E* o& X8.1版本代码：
is
  [& |! v  [9 Z/ W# K2 _! u        obj:object;
        tb:table[integer,integer,real,real];
! ?& g" J+ {3 g- E6 Ado
3 g, }4 F4 q3 b% k6 ?8 h        tb.create;
2 `2 d6 S: j! U0 |8 n& ^# A        obj:=.MaterialFlow.track.createobject(current,100,100);

% }0 u- T9 \3 P5 Q/ E9 Z& T+ B        tb[1,1]:=100;
        tb[2,1]:=60;
; y% B1 v! K( m4 v- K3 Y        tb[3,1]:=0;
. F" M3 A8 [1 E. e' A2 m2 H& J        tb[4,1]:=0;
        tb[1,2]:=100;
        tb[2,2]:=150;
0 s! r7 h& g# ~( h7 S* d8 d        tb[3,2]:=0;
) y0 R5 s* g, r3 H) z        tb[4,2]:=0;
       
        obj.SegmentsTable:=tb;
2 {) b" W9 Z  D! R; |end;
提醒注意
" h/ G% p8 U' e- n9.0版本的话，表格数不一样，除了X向，Y向外，增加了Z向，不过有两组起始点也是可以确定track的方向，