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

zooey

is
4 F# K* W, h: _- ^        mark:boolean;
        dx,dy,ct:real;
3 H" e, E( k* ]0 _: F) C: ^    i,j,rows,lines:integer;
    machinename,bufname:string;
, O; l& s- q0 W. H( p    machine,buf:object;
do
/ H' a/ h1 q0 S  d* t. l. T) [        current.eraselayer(1);
7 I9 ~8 C) j' F7 ?: R. _       
5 n0 Q% }7 Z$ [) Z        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
+ f/ }8 f% M- e                inspect messagebox("设施数目不对！请核查...,",50,13)
" J# F, A0 G3 R- ]( o/ @( N                when 16 then
                        print"yes";
                when 32 then
                        print"no";
0 v) V1 E+ V; Q" M: }- W                else
, x( q% ~  y' x& l2 `% v6 v                        print"cancel";
) @8 ?/ _2 M* H                end;
7 b. V/ O0 K! E1 Z! j1 T6 \( n) ?                eventcontroller.stop;
        end;
       
1 w9 Y% f9 ^" g& o* q  C5 ~+ `        for i:=1 to number_of_machine loop
2 J% a9 L% J* @        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
: T8 `9 K( T, x+ c5 B        end;
+ r" P' Z6 O; T# ~1 }/ r, |        bufname:=sprint("BF",i);
) x; {! o8 \. u8 z        if existsobject(bufname) then
/ [) f2 h- R) v" W; P1 B0 B; o                buf:=str_to_obj(bufname);
6 i# I. e) ^* k; F                buf.deleteobject;
        end;
/ o" P1 U) ~* s        next;
! l; N9 }( \1 `5 `) k       
" u# g3 ?, v% k        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
3 F) G/ T- Q3 N3 x# B                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
$ N2 K; L9 E7 K) i  ~                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
! d; z- h) }1 h4 r2 ^                then
: {+ k/ f1 t& \4 {                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
& T2 F+ C; e8 g2 ~) @9 w: I                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
+ u" f4 y5 d1 Z5 ^% C                        activityspace[2,rows]:=activityspace[1,rows];
" |6 Z- ~+ R  Q8 l8 Y, W                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
) q4 C1 D9 e+ u  ~$ C$ N                        y_max:=y_max+dy;
% `/ G3 P6 M4 p                        dx:=0;
                dy:=0;
6 r- f2 g# I9 A. D) i  V! G( Y                        --end;
                end;
% m- c( o- n7 A  K2 a( R, T                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
8 ?: Y' R' e- O  m% s0 Y9 E5 `                end;
4 z" E. c2 B4 F4 }                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
0 B, _- k; E  t                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
& R! n' i4 _# t* g3 y+ W/ D        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);
8 p) u. t9 ^; ], w- ]6 a! e) q/ D        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);
       
1 Q; s% E! c, H8 R) ]' s        rows:=0;
! @' t  B  z% K: ~, w        lines:=0;
4 K& H; W( i8 y! C% W2 o        for i:=1 to number_of_machine loop
/ _1 W" _$ D: I. p                for j:=1 to number_of_machine loop
                        if j=i then
7 [( c+ j# M. o7 O- h( R0 |                                d_from_to_chart[j,i]:=0;
5 W4 N) X- h$ s- \                        else
+ E/ z9 B8 ]+ D% H                                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);
! V7 [8 z+ _, }9 ]+ Y: v                        end;
3 c  h7 {+ `1 q, K9 A                next;
1 q4 o7 ^% G/ f; o        next;
1 @3 l- S1 u% W7 `+ X- }       
: K) f+ {4 V4 H$ q, D! p8 H, L        lines:=0;
        partstable.delete;
/ F0 _& o$ j# g3 k$ L- r% q       
        for i:=1 to number_of_machine loop
+ L* L3 a0 H4 I1 ^0 p                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
2 {9 J9 h3 a2 U8 R5 {9 C! }* T2 Q1 Q                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
4 }! G: `* k- H8 e, ~7 I                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
/ R8 u8 X, q( ^  g                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
" C1 J0 b2 `0 e* e" F- g- q0 T        next;
, J4 C) g9 ~1 m        machinename:=sprint("M",rows);
6 h& e4 e' D2 p1 d        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;
$ S. ~; y, T0 C) M& V3 m        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
; i) X- U* j6 d" J9 c        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;
# j% H, d/ p; J1 Q        buf.capacity:=5000;
+ `9 P7 R/ I( t: _        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
* \4 D9 i% Q: r7 `2 l0 a3 x       
        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;
+ Q0 m5 i. W& Y1 J7 ~' ~current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
9 ]  Y& C; L7 w# b8 X6 g" {# J1 znext;
0 {+ j5 W0 r) [  M' Cend;