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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
# r4 w6 F& N8 u! [, _! M- c    machinename,bufname:string;
" V( B, \; |6 X5 Z    machine,buf:object;
do
        current.eraselayer(1);
! ~/ Q& @8 r  \1 _4 S0 f       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
  _4 ^# X# e' e  D, x) G                inspect messagebox("设施数目不对！请核查...,",50,13)
; P" o% v" a* f                when 16 then
2 C5 I& l& [5 d! M7 p5 W7 A( @                        print"yes";
. D8 }6 D) v+ q/ @' x6 j7 F( b                when 32 then
$ @) `4 A! O2 g, u                        print"no";
/ b' A3 [& V* g                else
                        print"cancel";
                end;
3 ?& i% o) S8 v+ y# r. ]/ v# U                eventcontroller.stop;
        end;
       
& h7 _0 t7 {) w% j- |0 Y: C        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
, ~) H0 n' N. k" R& Y        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
- W+ u) J0 W% L& l* U0 S        end;
+ @' H0 T# y0 ~6 M" U" U        bufname:=sprint("BF",i);
        if existsobject(bufname) then
1 [  O. w0 D: C7 j: X                buf:=str_to_obj(bufname);
% V, S. r3 o" }7 p) K$ G                buf.deleteobject;
        end;
1 m( s0 a, }2 f! {! m        next;
& [* {# z( R! F" Z( ]! F5 ]       
2 w) e( W+ p$ u+ ~        dx:=0;
        dy:=0;
" }' g% v# K6 L: i: x2 l        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
: y8 o6 ]8 V1 ^$ T5 E3 r2 i                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
6 n  m  ^  s5 i2 d& Q* ]                        and activityspace[1,rows]<(1.05*y_max) then
2 P( E2 [$ B$ K4 M" O                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
, G5 j" v! Q: \4 f                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
5 z5 X& v, v/ s9 R                        mark:=true;
                        else*/
* E8 r8 t$ k$ Y0 b2 V1 n                        y_max:=y_max+dy;
% n. a$ j. N- a+ {8 M* S                        dx:=0;
                dy:=0;
                        --end;
                end;
' P& I. p& u, o" `* P  |8 C% u/ ?                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
- T$ z$ B% n  s! E# J) M* c            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
* i$ d) Q$ d/ e" g! H: K& C0 r                /*if mark=true then
0 U  i6 o) `+ _9 s, E                ct:=activityspace[2,rows];
9 C4 {. E' ~* l5 D                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
# P. o2 x% z, L2 j, W! b! R        next;
        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);
        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;
3 X  S8 X* O- K  S        lines:=0;
' o5 P9 l% h8 N! W# W3 c- s        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;
                        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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
) U4 t% P" Z8 e, l                        end;
                next;
        next;
" k! @, b) Q4 m9 ~' N4 c0 E7 ]0 a       
& z" G9 [) E* ^        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
0 i! e* S7 V% M. m3 ^) d3 N6 Y7 u                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
2 g9 \- [9 s! F; G# ]                        lines:=lines+1;
1 r. Q* |9 R7 j9 H                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
6 W' ]7 u( k& f                        partstable[2,lines]:=w_from_to_chart[j,rows];
9 s. r$ c$ U1 c) o) V. o* J' C                        partstable[3,lines]:=sprint("parts");
; C" o: p" q  G6 V( {                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
0 v9 g: N' v; J3 F$ c2 {" H/ X3 ]        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]);
3 k9 m4 j" C1 O) x5 ]! O4 n        machine.name:=machinename;标识符未知
# Q. K3 M$ }( [8 ~6 U        machine.proctime:=5;
- G9 k% R; Y+ c5 X7 A) v        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
, e8 }7 B( I* ?: R8 }: e& ^' ^        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]);
" v6 n1 ?5 |1 u/ g9 E3 k( R. g        buf.name:=bufname;
        buf.capacity:=5000;
- l7 v" ^' B4 S; K3 B5 f6 p        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
+ n7 C2 [. Z! a. ~, m+ O        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 S4 y1 A: p- ^current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
9 [5 d5 l; z* X* o5 ^next;
) c! G0 g& _- a# y) Mend;