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

zooey

is
$ t5 b: i" ?$ L! N5 R0 M8 n* d        mark:boolean;
        dx,dy,ct:real;
4 P2 [2 x8 P' i; z  T0 _3 a    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
5 X$ n2 U, O' e$ C' Ndo
/ @) s0 Y# V7 E: y; W, R        current.eraselayer(1);
3 W7 L% d$ E0 L       
4 O) t' \1 m! z        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
7 G/ ]3 _7 l% m# u8 J                        print"yes";
0 r4 l3 \& b, {/ d7 Z% p                when 32 then
                        print"no";
5 Y: \1 u/ i* M5 y4 N; C& b                else
                        print"cancel";
7 l, A% I3 Q% L( W8 e/ P                end;
% j) G7 g- V% @6 ?  ]( ^                eventcontroller.stop;
8 j$ h9 ~# u0 _. H% s2 v        end;
7 M- `. t3 ~2 [- X* g1 P' o       
( G& ^, z5 A: l0 a8 _        for i:=1 to number_of_machine loop
! o& U3 J' T" z! g3 A        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
5 d1 i3 }, A# z: ^        end;
        bufname:=sprint("BF",i);
+ b" P- N! C/ [6 F8 g. D, L        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
- v5 a/ @5 b; R7 a- g' j        next;
, ?2 s' C; q2 B9 F3 h" p6 V- ^. m4 @       
        dx:=0;
# M9 W; x8 |1 `0 ?: N' q        dy:=0;
, Q6 M+ b6 ^( ]2 p) S        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
1 J6 H1 e; [; e; Z                        /*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];
                        activityspace[2,rows]:=activityspace[1,rows];
$ C( Z# l$ O; h+ [' E                        activityspace[1,rows]:=ct;
$ e0 q9 N# Z2 n% x+ n0 M- k                        mark:=true;
# r9 s$ \; x) K% w: o, I/ ~  z                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
8 ]  l+ i( F  X2 V5 B" e' {1 ]                dy:=0;
% @: U# L/ \/ J& F& T1 h                        --end;
7 C! m- u: V! j  r/ l1 l                end;
                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
5 m& A" S+ D$ Q0 @" i2 M" ^                        dy:=activityspace[2,rows];
                end;
- c2 o5 W6 j$ Q6 R, E) K+ M9 T  K. ^( Y                dx:=dx+activityspace[1,rows];
                /*if mark=true then
9 X7 h# U+ C* Q) s' a7 {+ Y                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        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);
        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);
       
* Z  W9 x" H, \  E        rows:=0;
        lines:=0;
2 {0 K; ~( ~5 y        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
8 |+ X+ }/ X5 m  d4 v& b2 i+ ~1 ^$ B                        if j=i then
6 t! Y' }& k1 @% M. q, t                                d_from_to_chart[j,i]:=0;
9 V# b' P5 Z1 h0 n                        else
& U$ X5 m9 J) ~4 ]4 V                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
( a* `! D5 M+ g9 Y- n                                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);
* {: _$ M' p2 u7 O                        end;
4 S8 R$ K9 k* B  u                next;
# E- w( F( E1 W. v; O" v        next;
       
. L  a; P  E& W( d5 M        lines:=0;
: x: {# G; K  i  ^8 p        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
* a/ ~1 E7 e9 ]6 }. `                for j:=1 to number_of_machine loop
+ @- d8 c: [4 C                        if w_from_to_chart[j,rows]>0 then
" b% W( X7 g/ \7 _: J$ @                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
# M4 F( x3 r* e" z4 C                        partstable[3,lines]:=sprint("parts");
1 o  a4 l& V. l3 {+ l# B7 c7 z/ O                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
6 a6 O) C, b' X9 b        next;
# n2 s8 O+ w5 A        machinename:=sprint("M",rows);
' O7 @0 l8 R$ H2 l        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;标识符未知
7 d" d( z% O% ?+ e: j        machine.proctime:=5;
4 n! ?( G# I/ d. j! x- h        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
, H  W  O8 q& Z8 u$ e        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;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
0 w, x# }2 L% f$ N        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
( g" d3 b8 E  O3 g1 ^; ~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;
& c# p; c+ A- Y4 Cend;
9 `+ C/ d5 |) S  r) H) w