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

zooey

is
  S- s6 n# @7 R2 Q# i        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
# ]' o. S/ r3 x3 e6 w: ~- Y7 ]  T        current.eraselayer(1);
       
9 Q8 N! T9 M" ]* B9 S. i5 R) M        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
                        print"no";
% L9 r2 l; x' V4 Z                else
                        print"cancel";
                end;
8 s6 r. W* F" _2 n$ y" j( J                eventcontroller.stop;
* W9 I. ?7 r  S- D3 U        end;
       
& ]& x0 z$ @, {* {  I: n8 p        for i:=1 to number_of_machine loop
5 P, i* ^5 s& X' m1 D        machinename:=sprint("M",i);
7 x! N& I  z2 H" m) N7 G        if existsobject(machinename) then
6 g) ~. M$ B$ `/ Y5 @5 m- g- G, k$ z                machine:=str_to_obj(machinename);
% u4 [& K" F. }- z                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
: @! f9 a# R7 K; N3 W% @                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
1 f+ V/ S5 s* M6 b7 {& f       
0 d  Z" P4 j3 T+ n, y' u! A9 E! G        dx:=0;
# S- \1 Z( R0 P# R, P        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
2 x- o4 k( D  q0 q                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
' y7 ^& Y) W6 T' }( C+ G$ _                        and activityspace[1,rows]<(1.05*y_max) then
$ m* K6 H3 ~8 g$ E! C                        print activityspace[1,rows],",",activityspace[2,rows];
( N/ N; j1 [: K1 L                        ct:=activityspace[2,rows];
# K0 M, Y1 u( Z& ]( E2 q                        activityspace[2,rows]:=activityspace[1,rows];
7 y% Q& \& I1 Z; \, p7 G                        activityspace[1,rows]:=ct;
- ]- u' S9 E- p2 k) r                        mark:=true;
' V: `3 o  T" _5 l+ i1 y                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
% }- d! ?. A( r6 M9 r                dy:=0;
                        --end;
* K8 U) `" O# i$ ~6 s- c                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
0 \  K' r% s8 C  y0 A                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
6 v, f2 u1 ^( F* x            if activityspace[2,rows]>dy then
+ C! z* o6 _" w7 b. [: A                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
: p$ F9 b9 n1 p7 `! k3 v, Z" |0 ~                        activityspace[2,rows]:=activityspace[1,rows];
8 S  N& {  Y1 K% g( T" P                        activityspace[1,rows]:=ct;
' Z& T3 ^6 N; o' [  T                        end;*/
        next;
- v( U6 F, A8 a  X        y_max:=y_max+dy;
6 d* L3 g, k5 \$ Z$ \1 Q! K        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);
" Y9 J+ Y& [* e9 e: L* ~3 r1 z6 `       
        rows:=0;
  T1 S3 p: u* d$ g$ ^% ^        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
6 G- q" o5 k) p# j0 ?$ }- O6 q; f                        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];
0 }, q: j* m& D# @2 E# S8 g                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
. x' G7 p' I/ e9 X8 V1 N) ^0 R- l                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
0 e& n" ]* V' r& j5 C( }. W6 W        next;
       
        lines:=0;
        partstable.delete;
       
* u1 r& ^4 N; }! J/ D% P        for i:=1 to number_of_machine loop
" n6 Z/ d+ Z6 K- T7 y; A- D! q: m  x                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, C- z" m* F* m! V, e: v5 `4 r                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
$ _& r5 Y( ], u* H5 F. M( _, q                        lines:=lines+1;
8 S0 z7 \. G- Q  z. _( t' M+ m. @                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
& O3 g. Z5 g0 C: W5 ~8 m                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
) Z  M) o* c7 W, S                end;
        next;
        machinename:=sprint("M",rows);
- Z8 Q, W5 m9 d+ {' Q        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;
        machine.label:=activityspace[0,rows];
1 \* a; f. w) x4 n1 `' A; P        machine.exitctrl:=ref(leave);
8 ]- J6 _1 h; z5 h. u2 R       
) B) N# G: d, U8 L& G        bufname:=sprint("BF",rows);
5 d7 M4 q9 ?/ Q# ^% e' P        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]);
! g) B- y/ F* R) p7 C        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
/ |+ g6 e2 J# f6 P9 C       
        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;
2 x8 d' T  i8 g4 y% lcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
3 G+ S4 Q1 s7 w- _next;
end;