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

zooey

is
8 y6 ]4 R5 G3 p5 S7 w6 n; H8 r2 O' e        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
; d3 g" r! t/ N2 k/ j9 L1 Sdo
) u5 o1 b& ~4 C( z0 W& ^        current.eraselayer(1);
9 o0 b' I0 C- }/ `+ Y       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
/ [8 u. ^# d* Q* d. C3 Z                inspect messagebox("设施数目不对！请核查...,",50,13)
" L1 [. Q- M# ^2 E                when 16 then
* q4 o- [2 j% L5 P4 t                        print"yes";
                when 32 then
" E. d5 L5 g( I: }' c0 A$ m                        print"no";
, P/ l( o& |! B0 e+ ^3 A% U- V" v                else
$ O5 `, p& K8 T7 M: Q                        print"cancel";
; A& x" _1 Q! e0 e& \                end;
                eventcontroller.stop;
3 B3 n: @+ M5 C+ a        end;
0 c7 y$ ~0 F+ S' i1 Y       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
) _  L- x; B+ [1 f                machine.deleteobject;
* c% Y+ ^4 y' C" m9 n        end;
. V6 Q& @6 H6 k6 f4 B        bufname:=sprint("BF",i);
1 J; f8 Q) u( o+ m        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
% t/ T# {, {) L: q* H                buf.deleteobject;
2 x8 j. T1 R# r- \: w% {        end;
9 Y0 _: L2 m3 C9 |        next;
# D. P: ]& s& C4 ~0 p, g4 }0 g$ E       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
  |2 O$ x; d: W" n* g# w0 I6 z                        and activityspace[1,rows]<(1.05*y_max) then
3 c) e; V) u1 ?9 U- O. i1 I8 u/ c* V                        print activityspace[1,rows],",",activityspace[2,rows];
) q, T- }  S3 O                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
! \- M, `7 L7 l8 d9 U, Y! X2 E! u                        else*/
+ L0 h$ l( }; F- ]                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
) O# m2 M' P% C. H                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
% ]8 i# v) |. s8 u+ _: M$ G! t. i                        dy:=activityspace[2,rows];
) N' F1 K7 N0 ~5 E                end;
$ o; P  ?6 @1 Y8 M. ~/ T! B                dx:=dx+activityspace[1,rows];
/ [0 L7 u8 x# _                /*if mark=true then
. g2 a$ ^1 y% C                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
+ W1 I7 z5 s( }8 I8 g; v3 u2 _        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);
9 w" s$ A- b4 @4 a# M, Y        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);
       
, @, @6 c2 n& Y( ^        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
/ f  o3 E2 O/ r: P' w7 ]7 h$ \% `                        else
7 U0 Q. i( J9 Y' y                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
1 O, }( Q( V0 q, g                        end;
* p: x/ O) v7 ?& ~! L1 x$ i                next;
        next;
       
8 S2 X/ ]/ p" q3 p0 h        lines:=0;
9 F" g! h6 q8 m7 s* o; ?* B        partstable.delete;
       
( Q$ Z# }/ s' y; H+ s        for i:=1 to number_of_machine loop
/ N, I* v3 X2 @6 E/ A7 a6 P- L                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 O5 o+ e. i$ x                machinesequence[2,i]:=rows;
( ^# T7 l' ]1 a3 [2 ?                for j:=1 to number_of_machine loop
1 B5 ^1 r$ _* J5 q7 i4 ]  i                        if w_from_to_chart[j,rows]>0 then
4 m! W9 Z# e: n; b9 g1 w  |& \. W                        lines:=lines+1;
! r! Y4 |0 B4 d                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
1 v3 l. G- b% s! |  _* y                        partstable[3,lines]:=sprint("parts");
6 e, l  |/ x2 e; [: s& [                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
2 F' K$ U6 E  [) V! @7 K# t                end;
5 a3 c+ c. z3 M. g- k9 J9 ]        next;
        machinename:=sprint("M",rows);
: ~* v" {& @6 s6 E        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;
  o1 s2 Y, v9 _# d$ T  e3 W1 _        machine.label:=activityspace[0,rows];
8 q4 P* e0 F: _# v4 i7 `1 X2 _        machine.exitctrl:=ref(leave);
. u, F2 ]8 a- `. u: ^       
        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]);
, H  i  {3 L! T' a        buf.name:=bufname;
        buf.capacity:=5000;
# }) z9 ?7 k9 ~        buf.proctime:=0;
! M$ @8 Y  ~( D0 L& A        .materialflow.connector.connect(buf,machine);
       
6 e) ?/ n+ m+ \5 ~% D        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
. b0 K& I7 w' C) hdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
' ^# w* i' M7 \( mcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
2 C$ Z2 @) Q+ snext;
end;
. v; e% r0 y  Q+ L( q0 g