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

zooey

is
$ J) w5 y6 K5 C1 c        mark:boolean;
        dx,dy,ct:real;
+ \  |0 }  Z0 H& C    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
  o- d8 V9 ~+ C: T  Y+ O6 Bdo
" \, W2 S4 U- t" [        current.eraselayer(1);
# P" r$ m' R& s8 W- V1 l/ C. s5 ^       
        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
                        print"yes";
                when 32 then
) `3 o4 M, [3 s) N& W                        print"no";
                else
9 \2 Q% ~* I6 k. D/ I' s. {                        print"cancel";
                end;
1 I/ W# W" i! A( f( W- _                eventcontroller.stop;
        end;
& _( z6 T: k( U- P       
2 _# c( H. b6 r, U, f( u        for i:=1 to number_of_machine loop
: o5 E* e* o( P9 n9 z9 U' }        machinename:=sprint("M",i);
2 [3 S0 p; o% B6 f) {        if existsobject(machinename) then
& T) \) w& {8 X" a; p$ _8 m                machine:=str_to_obj(machinename);
1 h! O" y0 q& ~0 Z+ r  Z/ J                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
$ v" t- Y. I/ g; g, ]" J        if existsobject(bufname) then
6 T/ l- H. e9 B2 _1 n                buf:=str_to_obj(bufname);
0 V7 `( I- L" h" I" z" w                buf.deleteobject;
9 `8 y/ [3 m3 r1 y7 s, o# n/ K        end;
& P' S. }' [. x        next;
       
9 l  m( K& w8 e9 p; y        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
5 X+ U- N% P4 c6 H6 B9 T" a                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
- [$ [: l9 f4 |6 z, g6 I                        /*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];
                        ct:=activityspace[2,rows];
6 ?# p$ `. u- |, P% d+ s$ ~                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
+ F9 k% W. A0 C( k, r1 ^                        mark:=true;
. M3 |& q( n  H: |9 q$ W                        else*/
                        y_max:=y_max+dy;
9 q' i# W1 J( ~3 ^+ P                        dx:=0;
                dy:=0;
, ?# z2 X( H9 }8 P& ?: Y                        --end;
4 C" C+ {% P6 z) W' a+ U3 d                end;
; ^' F7 S; F* ~! h" ]. ?6 K. l                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
' M+ @6 u% Q% 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 H- m* s& B* J8 i                        dy:=activityspace[2,rows];
6 l& O7 S& |2 x( {7 @                end;
9 J! U0 y4 \  v. S% {% w1 S                dx:=dx+activityspace[1,rows];
                /*if mark=true then
1 f+ r" w$ a0 |; V9 S# a4 ^: q                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
) q0 N+ u- U$ X- m1 I                        end;*/
  R' _: V2 `7 D% v1 V        next;
3 R( v- i$ a# @2 C$ W- h+ W& l9 J6 m3 Z        y_max:=y_max+dy;
* s5 q( P, \* y- s( \        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);
6 K' c# d  P: U2 @6 y2 e3 c! }       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
, U9 k) R& e2 d5 R% j  ]; W0 @! I                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];
3 E  b- M0 [4 ~  b6 _! P                                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);
* `0 r2 N7 \( k! y# M- L) U  h+ l                        end;
                next;
        next;
       
  o/ Y* C5 S% P3 |( Q* [        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
$ `4 q: Q3 A; l' F  i) Z7 s                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ M# t8 [$ O- R5 l& i                machinesequence[2,i]:=rows;
$ s& w" U2 b2 j- Q! q                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
' m4 u' C: J( l. o0 m                        lines:=lines+1;
8 M5 ?- n. [+ }$ U                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
: ^9 t( m6 A: B& `/ m% a9 i                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
; B$ }7 i; y8 W                        partstable[6,lines]:=j;
4 @+ ^# U* g, P& ?: ?1 y! A5 _& g- X                end;
        next;
. _1 q: j9 \- E' g' z) A        machinename:=sprint("M",rows);
9 _7 Q, v2 j6 R        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;标识符未知
4 k' V0 R4 x5 l  s: [- ~        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        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]);
( }) q1 v; u* `        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
/ y+ R/ b4 f; g7 Q) ~2 z        .materialflow.connector.connect(buf,machine);
7 r! O* Z' b) n4 z       
, o2 s1 T2 p: ]: d( 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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
9 x8 r) ~2 Y( Q# V5 v+ @end;