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

zooey

is
1 _  l0 y/ J/ Q% J/ a        mark:boolean;
% I9 ]3 l4 y$ x# k) F        dx,dy,ct:real;
' U& L- U) L$ X8 T5 T5 G+ G% p; x    i,j,rows,lines:integer;
. v. S, q7 n5 q8 b7 s$ ]    machinename,bufname:string;
4 ~: y" Q+ h& `. ^& a    machine,buf:object;
3 Z! C& Y, _, r/ T2 Tdo
3 m5 R2 s3 o- c3 g( ?& Z7 Q3 X        current.eraselayer(1);
9 L# Q0 D: k" K& T9 o       
* O  o5 L3 V1 l) f        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
; S8 e  F7 X/ T5 @( Z                        print"yes";
2 J% W$ n' U# ?* S6 V. u                when 32 then
                        print"no";
: L3 v1 F  Y0 j: H/ E0 o; \  Y                else
, f( x( b" T3 W4 G) z                        print"cancel";
0 s2 b# A  e& X                end;
                eventcontroller.stop;
% K5 |: g# c4 v        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
2 o0 Y9 Z$ X- Z2 M: F+ I6 T                machine:=str_to_obj(machinename);
                machine.deleteobject;
& k4 n4 }; A0 b" S$ W4 V1 I        end;
* m. ]' f# U" ]/ h        bufname:=sprint("BF",i);
        if existsobject(bufname) then
, V1 P& w/ X7 k2 s; J8 p                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
. r: e& E. u- H, b) s  y       
6 x* G+ z* p& d7 A* a        dx:=0;
3 s* `" h. @8 J' a+ a) A        dy:=0;
        for i:=1 to number_of_machine loop
; F8 |' z, @* B9 ?                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
- y3 z5 W8 i, L* N                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
* w  ~/ X- `+ ~5 L5 l$ o                        activityspace[2,rows]:=activityspace[1,rows];
8 G1 R/ w6 n/ |3 r! O                        activityspace[1,rows]:=ct;
) [$ y6 ~9 ?: m0 x$ l0 k; D: J& s, L" V+ O                        mark:=true;
) m+ T% ^* V# B) ?                        else*/
* r6 @9 U- @8 s$ \$ P9 v5 X, R                        y_max:=y_max+dy;
3 ]1 ?! \6 `+ U# U0 @! [                        dx:=0;
$ L( i" `1 e( x- Z, j2 a/ A9 H; {                dy:=0;
  h; Y# q  i* o; e" [                        --end;
8 {" l: M; E- K  c                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;
, ]( L% x/ K& L5 n            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
; ]/ O2 ?6 Y% U& q                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
" I% O9 t7 u, `, |( b) s6 X                        activityspace[2,rows]:=activityspace[1,rows];
% y/ u% g4 b2 V$ f                        activityspace[1,rows]:=ct;
( P. T" r. }: @/ Y% L                        end;*/
+ C  y$ B# K5 @1 F* ?        next;
        y_max:=y_max+dy;
: W4 i8 b! b. v        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);
) }; _! Q+ G* ^3 Q7 C. U        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);
6 w% t+ d- k; M( r; }( l       
3 w# C. p3 Y! F4 L, i4 |' w        rows:=0;
        lines:=0;
* T+ o: e' X7 X# M/ z2 D        for i:=1 to number_of_machine loop
- o5 K2 W) I% {: w: \                for j:=1 to number_of_machine loop
                        if j=i then
% j' R$ t* X1 R* p8 r2 i$ o                                d_from_to_chart[j,i]:=0;
5 |) U  Y. z3 a& g* O& e/ u                        else
% D* y% `4 y& i                                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];
! W  h/ g, N3 Z$ p. Z1 t: N                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
! C6 l- V- o1 {* W        next;
       
$ ^5 K1 R+ z, Y! j- E) Y& W        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
9 J3 e8 l  k) r# y3 V5 [% O1 z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 _& S+ z/ C& v! |! A$ z9 v4 K0 s                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
- q2 y3 f. v  s; O                        lines:=lines+1;
) m2 j, q! Z3 e9 D                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
" K, }2 k9 C1 J6 N. F$ |& H: L% `9 P                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
        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]);
3 Y! a0 d. n4 Q4 f$ j( c( M        machine.name:=machinename;标识符未知
& D. D+ E' u. `/ p- P: r. G        machine.proctime:=5;
3 T2 }  l. _) I& X% h* J        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
% j( S3 |$ y% M+ _  e       
, G/ w* ]: A7 r: e9 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]);
        buf.name:=bufname;
3 U0 }! Y  p* \1 \4 F& u+ T; m        buf.capacity:=5000;
& Z# A: m1 T) i0 h' r! Z# e3 O        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
1 x* o/ S. g% B1 B5 _1 V        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
$ l. y  U2 {  [$ F2 C0 o5 d, g# ldy:=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);
& P5 s* Q1 a6 L) L$ Q- S. ^- Cnext;
& l1 C7 w% i, |5 R  {7 Lend;
3 d) E* T5 K8 z7 T