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

zooey

is
' S! q1 [) u: L        mark:boolean;
: c* t4 J2 l9 f4 z5 s) Z        dx,dy,ct:real;
5 m) |* J# ]& X( j' z  ^    i,j,rows,lines:integer;
    machinename,bufname:string;
3 _$ [0 M! \9 W* X2 z    machine,buf:object;
do
        current.eraselayer(1);
& F2 a. z3 s9 D1 r9 h7 b8 P% {- h       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
' ]9 t9 }9 k% M' i& H% B9 m5 I                inspect messagebox("设施数目不对！请核查...,",50,13)
0 c! R; v" m9 [9 }; S+ j+ U                when 16 then
; i$ c( K4 k8 P5 @$ e; `                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
( _( M  J  _4 O7 d; K        end;
       
% B3 Y  R' \1 g4 m) T1 k) E) |; b- c        for i:=1 to number_of_machine loop
5 D1 ~9 W- y" i6 J. ^& x6 ]1 b$ z/ |        machinename:=sprint("M",i);
% I6 J) Q( m9 K! W/ R        if existsobject(machinename) then
; }& I7 F4 w3 ]: O2 F9 Q                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
) m; j0 _# J3 X# W0 Q                buf.deleteobject;
        end;
* c* f  `' r" z- _, k& C        next;
( J3 }, a& {9 `0 t( P; `       
- I: e5 @1 T5 G7 v( f: E        dx:=0;
1 l( M3 `4 W* Q0 L, g9 a7 O        dy:=0;
' A4 B% {# w+ R2 Y! H) K        for i:=1 to number_of_machine loop
" H3 ?# d7 q) c0 Q3 }                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
# R- m) J9 _+ p6 d3 R  C4 ?                then
( l. {5 k( R% C. g4 L/ ?- J& v% z" B7 z                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
% A3 |4 p) |  x' }6 Q2 p+ w                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
! ~% w  |) H$ X                        activityspace[2,rows]:=activityspace[1,rows];
. h* m5 R  F% w- \0 m7 k                        activityspace[1,rows]:=ct;
: i& N' v+ c. [2 r% Z                        mark:=true;
% F6 x  p; x8 o; w! Q                        else*/
# Q( a. d7 k$ L! j! ~. C+ i                        y_max:=y_max+dy;
" h3 X5 |3 }9 _" F- z; e9 q                        dx:=0;
* Q, g$ Y+ g( F! X                dy:=0;
2 u8 y4 {3 U* }& X* [, u( U% L4 a2 b3 D                        --end;
                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
                        dy:=activityspace[2,rows];
                end;
, q, E7 I% u' B7 z2 |9 w4 I% t                dx:=dx+activityspace[1,rows];
* V5 \3 A! i  v8 I                /*if mark=true then
, T' U. `, T) V$ y4 W& C0 c% f' C                ct:=activityspace[2,rows];
( r" E) x7 n* J( a% W0 {                        activityspace[2,rows]:=activityspace[1,rows];
( u& O/ F3 m& n2 g/ z                        activityspace[1,rows]:=ct;
$ x& o: m; Y2 ^- f- R1 h& @: D' y                        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);
       
        rows:=0;
, u) f2 G* l  k5 z6 _8 f: p        lines:=0;
# L* o8 E0 {- N8 {3 {        for i:=1 to number_of_machine loop
! |! |, G+ ^6 a5 I                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
: B: z/ A) g; L) }2 w                        else
3 A/ y$ }( o/ |% V" N6 g                                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);
                        end;
                next;
, J# R& ?. ]+ O( v: w3 a- p        next;
- v! I; q; L8 V+ i0 Z5 E' ?       
        lines:=0;
1 {2 N9 S3 p1 a        partstable.delete;
5 H) l0 i( |. f) F! X/ Q. S: d, i       
        for i:=1 to number_of_machine loop
- p) r6 T) W; H' l& b1 _! b( f                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' a+ e! E9 b2 w                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
% e# p! s* _5 O7 Q% V, N                        lines:=lines+1;
! h7 q4 v* d" N" n- z+ U. o                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
+ Z4 ]! q. D4 a, ^                        partstable[5,lines]:=rows;
. ?0 L9 X% P7 z4 ]2 I/ l- W( q                        partstable[6,lines]:=j;
                end;
        next;
7 q* O; a* `% p1 x        machinename:=sprint("M",rows);
6 t+ E* J0 c& A4 I# F: a        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]);
0 y! [* {. J" U$ @6 f7 v2 ?        machine.name:=machinename;标识符未知
9 e4 R* n6 h1 J6 |' l, S4 m3 M4 A        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]);
6 D7 T. _2 P5 S; F* r+ e+ {        buf.name:=bufname;
# f5 H& \6 H+ Q+ ~3 W/ ~3 g        buf.capacity:=5000;
6 D& U( M3 j  D: t7 i4 S1 M" ?1 B1 {& a+ u        buf.proctime:=0;
, M5 {8 W7 {% y/ }+ M        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
* }& S% k) n& v; ^0 m( Q, L. Mdy:=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);
, T8 Y3 t( Q4 m0 a) a, o/ E/ I8 _% ?next;
end;