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

zooey

is
) t* O, l: o+ |7 T! @/ x  b) \# C        mark:boolean;
; _3 `) I( Z) c" R6 E% Q6 F        dx,dy,ct:real;
! Z& K% \: r" I# g    i,j,rows,lines:integer;
    machinename,bufname:string;
7 R- Y  C0 J. c  b3 R    machine,buf:object;
do
% M" ]* H7 D. `9 b- w$ {. M. ~        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
) Y1 p9 a/ ?! J& p* A& ~5 p                        print"yes";
3 U8 C9 G: C' Q! y* s6 \                when 32 then
                        print"no";
/ l  w6 N0 x- M& J$ A1 m" d                else
                        print"cancel";
/ P$ s( T0 B. c* @                end;
- {- A" c/ q3 @- w                eventcontroller.stop;
0 ]  p+ A) E6 G; s  Q        end;
# e& F$ L: f. L1 [       
2 {" q+ L& U2 W) E        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
/ C, x( |. W! \# z! v1 f7 m3 }                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
3 A1 d7 B" [  [+ l- p, A& P4 S        next;
/ O. `" n! z/ a0 M. E! v3 }( I       
. K+ P, P# B& l( ?6 p        dx:=0;
, D. o# f% f1 {- C4 n        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
3 P/ g0 I! y. M                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
# T7 n0 N9 \2 \5 q% E$ Y8 q                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
  R0 @* F4 n' i, K( X  k                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
. |4 p7 _, j/ N5 C                        else*/
' p' w$ ^( ?3 s6 ?2 `                        y_max:=y_max+dy;
4 l$ {1 r& g. @+ U& @. C6 c& w  y                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 ]. [; {% z' ^) S9 G7 }1 w                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
, U! y3 R- }1 K! Y& U                /*if mark=true then
9 R" [) ?  M6 O3 K/ P$ `                ct:=activityspace[2,rows];
+ L' ?1 M. e$ ]. L                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
) N1 }) w5 {$ M- L. h7 _& x        next;
        y_max:=y_max+dy;
0 W( k- L* J3 u% T! d: s$ f        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);
6 \5 Q! P4 r& _! m5 D4 h1 K        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);
! ^) v! @* M+ ]# W8 z       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
1 a( t  S5 V0 Y' i* G: y8 l, k                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
7 i. D# o5 P0 M& j$ L/ G. Q# S% D                                d_from_to_chart[j,i]:=abs(dx-dy);
/ B5 x$ p  k1 K; Y$ V                        end;
9 X' ?9 F0 }7 N/ O. K) J! l                next;
        next;
       
        lines:=0;
        partstable.delete;
8 `' p: u. E4 A( d' S2 l       
- y1 a$ p- r. K) Q' E" X* V3 U$ @$ L        for i:=1 to number_of_machine loop
9 d. P9 z' `* k& h* k- Y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' [  j# o- l: O* Z) Z4 L                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
4 F" r* X6 }! t; w# o% O3 q                        lines:=lines+1;
3 @) m( r% I  ?. [+ B4 ]8 F0 u) ^                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
% b4 P* I- T0 q- i1 r5 k+ \. C: D$ }                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
0 z1 }( j2 C% @$ u        next;
+ j8 l3 P8 F( i/ H        machinename:=sprint("M",rows);
        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]);
. g( O. {  Z7 F% U' {% D2 U7 N6 w        machine.name:=machinename;标识符未知
        machine.proctime:=5;
# h- `7 s  c1 L7 Z+ K+ `$ E8 U        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
& y% [- h4 L% v" T8 g       
        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]);
        buf.name:=bufname;
9 \. n7 B: i% J# E3 O, q0 b        buf.capacity:=5000;
        buf.proctime:=0;
# h# Q( Y* _% ?1 S; C( T        .materialflow.connector.connect(buf,machine);
       
        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;
* @8 r" j- F  F8 Ocurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
% W' P1 M" a  J7 [4 D/ ?end;