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

zooey

is
- `. O# d7 E2 z        mark:boolean;
# a9 R3 M$ ]3 K3 i        dx,dy,ct:real;
6 Z5 W) T7 f$ p: s8 @' [9 b0 g    i,j,rows,lines:integer;
    machinename,bufname:string;
9 ?; g0 q3 w, n: Z1 @7 e1 z3 K    machine,buf:object;
. I8 A3 G5 Z' S7 tdo
8 M" W1 Y. g+ A" j        current.eraselayer(1);
6 h; a4 U; s$ b' Q7 |7 G2 }+ }' z       
/ R8 X  W$ v8 ~& e. t* n. `        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
  d9 p: E* g9 Y) o! g( ?* I- w* t3 k                inspect messagebox("设施数目不对！请核查...,",50,13)
- L( [. X1 j% e( Q                when 16 then
                        print"yes";
                when 32 then
8 N/ l  P; r6 @7 Y3 w# Z7 m; G                        print"no";
                else
                        print"cancel";
* Z, _2 X* z8 b7 v                end;
                eventcontroller.stop;
        end;
9 c( A1 j" `* a       
' W' @# T- i; a3 C1 Z3 [) D        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
2 a* F4 I1 m) r3 U  |+ V4 l) C: }        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
4 R: N" b6 H2 I3 D* [8 U! b                buf.deleteobject;
/ T  J0 W, @/ e9 ~        end;
        next;
       
        dx:=0;
/ ~. h, g& ~1 I, \0 ~, X& K        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! o2 Q4 B8 C/ [/ l8 N                --mark:=false;
0 |( J8 T4 [. s" {1 i; h                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
, |" Q# W! n$ F; G! x                        /*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];
( E' v' B" ^$ g8 n, C, O; c4 v; s                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
; t9 ]' }2 u* k0 X$ }0 i: j                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
9 A; k! B+ ]4 w. u& z% R0 x                        --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;
3 I& H8 D  `1 b. J            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
$ o2 ^2 k' f* G" J  ?                end;
& d# v2 Z; T: k! V, L) `  V# f+ U                dx:=dx+activityspace[1,rows];
  ?! X" F7 M! v8 B9 \                /*if mark=true then
' F0 b7 y$ k8 u2 Z( Y/ G2 `                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
- k& {, o: L9 g        next;
! P+ S) S  \2 z, f& t        y_max:=y_max+dy;
# @9 P6 x! T) q2 f6 f/ e" U        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);
& i! R& G! h& B/ i        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);
" W, M5 P5 K& g. E* N' {6 R       
+ A+ a& E4 C, }: w/ {' D+ ?        rows:=0;
        lines:=0;
% @6 A- M1 V  U' O) W( n0 v        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
7 C6 ?4 Y9 e, J                        if j=i then
2 S1 E/ F" j" t& N* X                                d_from_to_chart[j,i]:=0;
/ a7 L) t( |) @0 ]# n                        else
                                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);
: g7 W# V1 ^) S. ?; ]                        end;
                next;
        next;
       
        lines:=0;
        partstable.delete;
       
5 p' T2 h4 T! V        for i:=1 to number_of_machine loop
9 k/ B* _% H7 z: `  u' Q- W                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
0 n8 Y+ ?: s8 S. i3 H, }* h  @                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
) S9 f1 J. z5 j# I                        lines:=lines+1;
% S/ _+ m8 A0 o8 u* }3 n                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
& d( e& a; U  V) _9 S                        partstable[3,lines]:=sprint("parts");
8 z/ C4 p- D* B9 \' v# B3 F) S                        partstable[5,lines]:=rows;
! ]3 k% G: T- o; l$ J                        partstable[6,lines]:=j;
                end;
        next;
8 g# e' j7 L* L! Q6 b. n5 b% W8 I        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]);
4 o; E. F4 r% D4 m& J        machine.name:=machinename;标识符未知
        machine.proctime:=5;
/ W' D- s# V8 N% B& `        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
9 j5 v) q$ X6 {: C, Y6 a        bufname:=sprint("BF",rows);
* B5 @3 W* y4 e( C3 H6 I1 m4 k        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]);
+ c( P( X7 U" V0 j% Y        buf.name:=bufname;
) [, f! j" Q9 i" q# t        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
3 S. V+ K0 B0 X        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
1 Q+ P8 @3 p1 n. pdy:=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;
7 @  Z3 K9 K" ~+ f. w3 w+ C/ ]2 kend;