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

zooey

is
/ ]5 t5 E; d. e2 m        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
- F& M* p6 l. s# m- T& G1 ]  K5 bdo
5 s- P/ \  z8 B- r* X        current.eraselayer(1);
8 J" g) t- f; N) e3 D8 v+ w8 L, j* U9 q       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
& O6 N2 n+ k$ |5 J                when 16 then
3 K$ \" c7 `! s1 h                        print"yes";
5 Q- F' `3 Z3 v6 [6 x                when 32 then
                        print"no";
, @" ]7 T/ R# {; l2 Q- c9 X# ]9 ?                else
. g( P8 a. V2 ?+ M4 I                        print"cancel";
% O2 F% m5 `' J/ G/ o. Y                end;
# }; p$ P) l! P( d                eventcontroller.stop;
) ?* m$ ^2 d4 |2 H, p" a; X        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
8 c6 |+ l3 }/ Z/ ?8 y3 h                machine:=str_to_obj(machinename);
0 `- o% ]# _) S+ Z& L* a- U                machine.deleteobject;
        end;
5 M" s  e5 j* O' O3 [9 B        bufname:=sprint("BF",i);
& n% G/ F0 [! P* Q4 p& @+ i" H        if existsobject(bufname) then
) q* Q% @4 Q' K  c$ Z# z. \                buf:=str_to_obj(bufname);
                buf.deleteobject;
+ M. ?1 W+ w$ K# T( x8 z0 O        end;
' D7 w, _% ]+ K* {        next;
6 p' \- D+ F' M% o' n. M. D       
        dx:=0;
- J3 A( Q6 ~+ C8 X$ u        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
0 z* }3 w, }6 ~$ Y- r6 c+ X                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
% J' W, Z2 X! W+ C                then
3 S9 i% M, B7 E4 ~& n: ]* o- U) \                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
* u3 t/ L1 z  i: v- k                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
' D% ^, Z9 ^/ j                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
9 X2 Z- A1 |% Y7 A1 `                        --end;
& W& l$ {$ }3 o                end;
+ C5 _, p7 X/ I                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;
) ^% k2 |. L5 G5 `( o# ^* o            if activityspace[2,rows]>dy then
% A3 V! K, @  j( S. ]                        dy:=activityspace[2,rows];
( a" ?& W$ l2 U8 L& m                end;
+ A$ V8 Q  h6 i" V/ l4 H: @0 Z                dx:=dx+activityspace[1,rows];
                /*if mark=true then
- w3 z, }( r% |: k' Y3 N9 r5 \                ct:=activityspace[2,rows];
# x! K7 z9 @5 A                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
! i: B/ L/ \/ P1 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);
# O, b, G% ~: T% _' l        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;
        lines:=0;
7 x( z+ U: u, e9 Z& e* P8 x  k& O        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;
7 {. {7 T& L- i+ z& e                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
# L1 a$ [, E0 Z& @! \0 p( o& r8 s: u                                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);
/ z: g! e5 }! R9 G  z6 `7 A5 C  s: t                        end;
9 p, l  h% h2 m, A4 R! G                next;
        next;
; D7 k, D) {2 K       
7 a/ X+ ^$ V. ?! B8 M$ u        lines:=0;
/ R% u& z$ X9 B: k        partstable.delete;
       
8 }6 V3 n8 |3 I5 W5 i. n        for i:=1 to number_of_machine loop
6 o& m# W. Z# Q6 T                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 L- u. |( B% f: P                machinesequence[2,i]:=rows;
$ d( g, k  `4 P  @# d" k! C                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
! [- o- J  y( T- A/ `                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
% W0 E) B. |7 u8 U3 f3 P& q5 C$ A* b                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
! C( Z+ D: {+ }* C) L% z; {                end;
        next;
        machinename:=sprint("M",rows);
, a/ N6 Q, n0 Q* Q/ g4 y! u8 N! 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]);
6 P$ f/ V6 [( l        machine.name:=machinename;标识符未知
        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
- q$ e* i2 g$ n6 n/ P! x9 W5 W3 R4 N7 w        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
/ @5 a" }9 G! l5 N+ y+ X7 h) K8 w        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);
- \3 P/ P  Z3 i7 Gnext;
end;