simtalk程序调试不出来，帮忙看一下

zooey

is
/ O: N. E4 ~) y' _8 a        mark:boolean;
; l4 ]  g3 D: n% ]# M0 V3 `        dx,dy,ct:real;
, S6 h; E# S5 i    i,j,rows,lines:integer;
    machinename,bufname:string;
1 [: A. w% ?, A    machine,buf:object;
do
# l7 F: W4 h% l        current.eraselayer(1);
       
+ E0 ~, x% |8 F; I5 C9 d        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
, w% {* g3 `5 D3 d) [- q4 `- ~! \9 G                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
% ?2 f( i( T, {, Z1 N- Q                        print"no";
                else
% l$ K; U* l/ ]/ j$ ]$ l, l3 \                        print"cancel";
                end;
& B! Z/ H3 R6 n# |* d                eventcontroller.stop;
! N: n- W. R: E# q' A0 F        end;
: c' U4 m) h, w% v5 }% z       
0 M" h8 C* ^6 U0 J& W3 U5 k0 I        for i:=1 to number_of_machine loop
4 ?2 W& ?6 q% ^" P" C        machinename:=sprint("M",i);
        if existsobject(machinename) then
' L- |* T" Z' S* J, D; f  q                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
( l. [6 M; V' G+ j, u* {        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
6 `/ F  `) @4 Y8 z                buf.deleteobject;
        end;
, a* F& _2 y' D6 {3 J. |' y        next;
& j1 B, C2 q  q" i* Y/ @       
        dx:=0;
: D5 f* [  Y8 B4 l$ x7 g+ r- G+ v' |        dy:=0;
0 |2 t! ]. q" Q6 e/ O6 J: a  x4 N        for i:=1 to number_of_machine loop
# S) j( ?9 w1 F8 n. h% k                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
' O! g1 V& P" T1 w$ |                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
8 Q( q, l8 k: E+ |( X. \! D                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
  J. z* B3 |/ \  G. O                        ct:=activityspace[2,rows];
6 ?, R* s% r$ m; L7 Z6 q/ J                        activityspace[2,rows]:=activityspace[1,rows];
/ J0 Z' P6 t; ~. `) {                        activityspace[1,rows]:=ct;
: Z0 O  a- X9 u. W7 ^6 d. B                        mark:=true;
                        else*/
( i& r' C' k2 f$ `                        y_max:=y_max+dy;
. o3 {' w( F' C: E9 w* [7 a/ D4 V                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
" D2 g! p+ t+ p  r: U+ m  t: @                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
7 q) {+ A" \/ ^$ h            if activityspace[2,rows]>dy then
$ ]$ S; Z; i& J; X9 k                        dy:=activityspace[2,rows];
                end;
; e/ I! O  H6 Y& |- C" d+ ]& ^# K+ ^; c. L                dx:=dx+activityspace[1,rows];
% [3 ?/ j9 i0 ]* y& u                /*if mark=true then
7 Y/ E$ Z- `8 h3 D! P                ct:=activityspace[2,rows];
4 E8 A1 P. ~& A. ]& \$ M2 q                        activityspace[2,rows]:=activityspace[1,rows];
7 Z+ ^+ t' T. Z* Z3 |9 s, m                        activityspace[1,rows]:=ct;
                        end;*/
        next;
3 Y8 Y- L5 E1 }: M. _        y_max:=y_max+dy;
        current.drawrectangle(1,x_pos_init-5,y_pos_init-5,activityspace[1,number_of_machine+1]*xscale+10,y_max*xscale+10,228,174);
. I# \" `0 r! {        current.drawrectangle(1,x_pos_init-7,y_pos_init-7,activityspace[1,number_of_machine+1]*xscale+14,y_max*xscale+14,238,176);
       
        rows:=0;
9 ]7 M$ F  \; F7 Q8 s        lines:=0;
8 k7 G3 R& _8 a+ A% z5 o# G        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
' t5 \# W  B* H  V/ t                                d_from_to_chart[j,i]:=0;
                        else
  B! f4 h" i, p                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
& p6 {, D7 y8 q. V. l, |* ^* E" G                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
                                d_from_to_chart[j,i]:=abs(dx-dy);
1 ~! _% ~6 s+ B1 ~, q3 X6 Z                        end;
: S; g) K/ E4 ]* h, X2 D8 m( {+ b6 D                next;
9 f0 d) E3 [9 A  x- m) U+ C, J( ^; j, K        next;
3 A9 K' x- n' o: C7 g       
( u: w% M) L$ U5 @4 S5 k# ?        lines:=0;
        partstable.delete;
       
7 o2 h- A7 ]4 y! }) M$ M        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ j) V5 y. v$ ^; b( p                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
* S, t0 R, M) n, S+ K' x6 o% Y                        if w_from_to_chart[j,rows]>0 then
8 W0 f; T% l. [+ x" d3 u0 V                        lines:=lines+1;
2 t! p6 o7 V9 P2 f, R  I                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
. L( j% ?5 \2 l9 `                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
3 V4 |) M* q8 e* [6 O9 Y5 W                end;
        next;
' |% [1 L. G6 H# _! a  F        machinename:=sprint("M",rows);
! [" j! G, E$ P7 y        machine:=.materialflow.singleproc.createobject(current,x_pos_init+d_from_to_chart[number_of_machine+1,i]+15,y_pos_init+d_from_to_chart[number_of_machine+2,i]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
. F$ T+ U% j/ L$ ]        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
% e! \" X8 z: {6 E% s        bufname:=sprint("BF",rows);
        buf:=.materialflow.buffer.createobject(current,x_pos_init+d_from_to_chart[number_of_machine+1,i]-15,y_pos_init+d_from_to_chart[number_of_machine+2,i]);
9 C6 H' v8 Q% `) n- m" ^, O4 G        buf.name:=bufname;
) Q" |0 ]/ T* Y' d2 {% J: `' y        buf.capacity:=5000;
        buf.proctime:=0;
+ I2 T* H  J) E; _8 h+ w        .materialflow.connector.connect(buf,machine);
2 w' `) k/ ]/ ~7 {- R       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
5 }2 b. k* h7 ^+ Q& ecurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
+ G: j0 z  C* S" T; V, e) {next;
) ~9 P  a' T) ?1 O/ D9 u9 Zend;