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

zooey

is
2 {0 P/ |+ O1 ]2 X/ A        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
( _  P7 {% m  X% ]% W1 a' P5 Z    machinename,bufname:string;
% o  G8 b, @1 M2 M, a5 y    machine,buf:object;
: w8 @) v% ]5 y  w2 x+ O3 j8 t/ Kdo
        current.eraselayer(1);
4 i4 h, X+ ^) ?& ^9 F8 O       
" \) T* L( z+ n/ F4 v+ {        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
$ ^. O2 X- y+ b; T/ v, y                when 16 then
2 M2 K" ?% i# N7 C8 E0 F. _                        print"yes";
                when 32 then
                        print"no";
                else
1 v, R4 I. D- A9 ]4 T! S                        print"cancel";
$ \# Y2 h( ]' k; H- S; n8 K1 g                end;
                eventcontroller.stop;
        end;
       
( x! J* x+ B9 f/ f% ?        for i:=1 to number_of_machine loop
6 r1 V4 [; f4 a$ x$ p7 g        machinename:=sprint("M",i);
8 H% c& X$ @$ ~        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
$ b1 P. t& g+ I! C3 B                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
" m2 X1 ^' s, F+ ^        if existsobject(bufname) then
3 A0 m. I* ^7 T/ w! s3 ]/ o9 F" j                buf:=str_to_obj(bufname);
) J" z- k! i% V0 U                buf.deleteobject;
; o8 K. B2 z1 V8 d        end;
* z" r5 j% H6 E/ p& R/ B. J+ J        next;
       
        dx:=0;
$ o) g7 N% O, f; V  l5 J        dy:=0;
: B* @, y1 f$ o: W& W0 j        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ a8 C$ q# v; m; Q# @                --mark:=false;
5 k8 D; ]2 P8 u) `7 p6 P4 r                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
. M8 D3 ?6 M: s. E" l                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
. V) {! c* d/ r9 |                        and activityspace[1,rows]<(1.05*y_max) then
3 ^# d/ s+ s% @+ S& ^/ [2 [                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
5 l. W+ s6 T4 L- @2 n                        activityspace[1,rows]:=ct;
, w" L  y- O1 E+ ^" h, ]) {                        mark:=true;
+ e& T" J& C; v% `& x' x5 S                        else*/
0 t0 N# }& l3 a" i                        y_max:=y_max+dy;
! ?' g$ y, M5 J: ?) o& Y* D                        dx:=0;
                dy:=0;
( T- I: ]6 n8 I                        --end;
' B) P5 O5 Y9 k& F5 [! U* x                end;
5 H( r/ k, H7 G                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];
; q' l/ H# n; u8 C) ]+ \% r                end;
                dx:=dx+activityspace[1,rows];
8 ?$ z2 [9 N* P9 z. Z$ U3 f                /*if mark=true then
; ^) Y) W4 ]( g6 H                ct:=activityspace[2,rows];
, @( B% f1 L3 N+ t8 m; e                        activityspace[2,rows]:=activityspace[1,rows];
, _& i  m7 [% q- o                        activityspace[1,rows]:=ct;
                        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);
% g# F5 @3 `/ v3 \        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);
       
+ C: @. z! L( x( B  \        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
, ]! W% r; p: G; ^2 Z1 }9 s                for j:=1 to number_of_machine loop
                        if j=i then
5 p, ~6 g) f* u9 y: w5 {' y% F; |                                d_from_to_chart[j,i]:=0;
6 {5 b2 C4 g6 P# J                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
1 j5 l  _% i& k4 d. k: K& ~; j( r                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
. @/ _" K+ K. R. o                                d_from_to_chart[j,i]:=abs(dx-dy);
' t4 ]7 S7 |0 C  B                        end;
% B) S* m2 b* R" o                next;
        next;
$ P: j0 d  k% j  v- }1 T" l       
# R8 Z, G9 S' @" |' q        lines:=0;
) V9 p8 {3 G0 x. g- j        partstable.delete;
3 Z! k6 m  ]: j( r4 B8 O6 |( O       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
- L+ T+ F6 y5 I, \7 f                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
% [+ Y  b$ J- ^$ n- U! u                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
* w# p8 A9 `, @) [2 o* I( g                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
, H$ y( e( _5 z7 n  T3 Y2 F9 Y                        partstable[6,lines]:=j;
7 J. R5 ~8 b- _# d: o% ^2 Q) ~9 j                end;
( @  L8 A6 a8 X9 E2 d        next;
# e% p$ J! r8 K        machinename:=sprint("M",rows);
- c! G1 ^' b- ^5 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]);
4 z" x+ k" d  F2 x& e        machine.name:=machinename;标识符未知
        machine.proctime:=5;
0 Q. C$ J8 {  U9 h& p' C+ W        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
& H+ i: s7 }9 N$ E3 j        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]);
& [+ `4 X7 d. T5 {        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
0 y, a0 C9 [$ ]1 Y3 r2 ^        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;
1 [0 o- n6 s3 h1 Y4 A9 m) r- Q# Tcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
: \$ \. ~3 D7 S0 K% D; ~