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

zooey

is
' v7 p7 V6 N4 U% J$ v$ A        mark:boolean;
0 O$ x5 F2 z8 d; K. `  w        dx,dy,ct:real;
7 }+ q- g) m  T2 q/ K$ q$ B, n    i,j,rows,lines:integer;
    machinename,bufname:string;
- M. b1 e9 b" D6 H! O, T    machine,buf:object;
+ ~0 ^( h: U7 c5 m& ldo
% c  ~& ~( S4 M- s, p6 \0 |        current.eraselayer(1);
: R/ h1 V5 l3 G  B, Y% q- ]       
: n" B, d9 X; ?        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
* d1 R- \4 v' E3 v                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
$ ^5 G% R3 d8 v, a$ w' q) z                when 32 then
                        print"no";
                else
                        print"cancel";
9 G9 u* ]7 j8 ^5 s: |                end;
5 `: R3 Z, s- M! t  `                eventcontroller.stop;
! B/ q* Q* G, s4 r. }; ^        end;
       
% j& b8 [9 E! T5 @        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
+ |0 C1 P, i! r5 K                machine:=str_to_obj(machinename);
, k, K; n6 m& w: y* |                machine.deleteobject;
# X9 m5 J7 a  q  v8 m% n        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
1 ~" T. l6 d9 w, Q4 t; }7 e+ m' p                buf:=str_to_obj(bufname);
                buf.deleteobject;
4 r8 w2 ?. C* M        end;
6 v* [4 T$ m, b0 O& c        next;
       
: l5 z+ _. `4 k        dx:=0;
" P8 G9 Y' |, |        dy:=0;
7 Y4 [8 W- b* o6 @3 z        for i:=1 to number_of_machine loop
3 Q" \- q6 t/ O+ E# P" O                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
* i! t. z7 W+ D" \# H3 V3 [. ^                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
7 G$ J- E5 W4 h8 b                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
/ X! V! a; u8 Z9 {                        and activityspace[1,rows]<(1.05*y_max) then
3 F: f/ o1 m* l3 U- S8 x                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
" c# j+ N, |" ?                        activityspace[2,rows]:=activityspace[1,rows];
6 }3 q6 e; y' B4 {" e1 e- ^                        activityspace[1,rows]:=ct;
/ W7 }9 e8 C2 X. H' x; w0 B$ y                        mark:=true;
' l8 l5 g3 ^( X# T6 u) V, S/ Y                        else*/
                        y_max:=y_max+dy;
' V5 Y1 n4 h5 a# h( ^- H) N+ K                        dx:=0;
                dy:=0;
' Y! y& n1 C/ D2 o                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
* y& g& ]: F2 o8 Q( l: g2 B3 [6 o                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
2 A# u; e3 _! C5 S# f8 H                        dy:=activityspace[2,rows];
                end;
7 n* \$ f4 Q/ P7 ^: G                dx:=dx+activityspace[1,rows];
: I7 `. P4 C( J: D1 @; L                /*if mark=true then
' P' @, g' V, p1 @                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
/ v" t* ]$ x) h* e$ I. s                        activityspace[1,rows]:=ct;
% s1 M) w- ?' ]( D/ L0 B                        end;*/
        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;
1 H# U6 ]$ z/ A2 Q! ]: B" E        lines:=0;
        for i:=1 to number_of_machine loop
$ M, N% v  V9 q. f1 Q2 D                for j:=1 to number_of_machine loop
                        if j=i then
& y; k; e) H7 b! A5 ]                                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];
1 p4 i+ c& r7 v# e                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
! C0 [8 i4 d1 U        next;
       
7 I! u5 o5 l: l7 B# h/ V        lines:=0;
1 ^: S( x0 W/ x2 R! A        partstable.delete;
+ {) V# D6 u2 A& r+ w; b. ~       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
) ^/ V: G4 t6 |. d8 @) I5 e/ p( e                        if w_from_to_chart[j,rows]>0 then
/ }/ T6 G2 }6 V( m6 G0 G' J                        lines:=lines+1;
4 |+ K2 @6 ~( [: v8 ?+ U0 t6 `( A                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
  e  L: F* C* e                        partstable[2,lines]:=w_from_to_chart[j,rows];
& l( ~; T& A5 F4 Y                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
# p) @: h4 E& J6 V( j+ N; A                        partstable[6,lines]:=j;
2 M* j/ i1 |* A( C                end;
$ H  s) q& {% y) a$ v        next;
        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
0 I. S2 Y, X- z7 R  \* g. \; k: }        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
4 H( n4 C& {5 I. q       
        bufname:=sprint("BF",rows);
  G, t& @2 y4 `3 }' z        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]);
2 W& |" v& [5 V2 ?0 a        buf.name:=bufname;
- J) N; j7 }; e$ B. U        buf.capacity:=5000;
        buf.proctime:=0;
9 O/ ^  L5 z- c% {' g6 t  V        .materialflow.connector.connect(buf,machine);
9 K, v3 Q' n- W+ u* n2 }       
& Q' _: A7 N, @- {- N+ j! ?: Y2 ]        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
9 F8 G4 M% m) sdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
7 k8 [$ f" g% Ecurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;