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

zooey

is
, a; v. H' W4 E        mark:boolean;
        dx,dy,ct:real;
# O8 ]* Z0 T/ t! ?& {1 L    i,j,rows,lines:integer;
    machinename,bufname:string;
3 E$ g6 T; b9 C1 q    machine,buf:object;
" I2 c4 G, v% k6 fdo
& B6 s* S9 [% N3 r4 U2 I4 B& j        current.eraselayer(1);
4 M0 d  {5 |* {+ l1 e1 \3 K0 i       
; [) b; [% Y: k" x; ^        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
' d8 P' t. G, Y7 G/ F. X' m                when 16 then
! O- h$ K' m! o! P/ O                        print"yes";
; j: z5 A: B- C% f                when 32 then
7 k  R& ]8 [0 L5 \' d: X" x                        print"no";
                else
3 A/ w6 T5 J3 i! {' J                        print"cancel";
                end;
: _( f' E: c( V8 u                eventcontroller.stop;
1 m+ N7 U  [  ?+ r+ }        end;
       
3 Z7 r0 P8 g5 ?* V" Y1 b        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
2 T, }8 M& k) f" d4 G. i8 A        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
6 ~) U& V& I- ^" t        end;
+ ~6 s* A2 z5 \' ?# c. d, K# T        bufname:=sprint("BF",i);
" W+ }& n  X' c/ g8 |2 ~% a        if existsobject(bufname) then
1 l$ Z1 W1 Q& w: T                buf:=str_to_obj(bufname);
                buf.deleteobject;
+ F& m/ f9 ?) t* g* P        end;
        next;
4 K. G3 P: w3 x7 N  U       
$ m4 d, X+ ?" ~        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 U9 X% y8 p: Q! i$ b                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
! D% C6 X/ F$ G! E0 Z                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
3 G& O$ \3 A! y% o$ m, H6 [                        and activityspace[1,rows]<(1.05*y_max) then
' x% ?* ~' g2 u1 Z; B                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
/ u0 G' b' a: u/ O, h                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
; A$ e& h# W/ i9 ?4 o2 J                dy:=0;
5 G- @4 h/ n) L* J& }                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
- Z: N. N3 s3 |  J4 L% n                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;
! c8 A5 _) O7 m* {2 Z                dx:=dx+activityspace[1,rows];
/ A: w# `, x$ G3 r" S' D1 v4 a5 e                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ W0 t9 l1 h. ?7 }6 w' z                        activityspace[1,rows]:=ct;
                        end;*/
        next;
# e0 a- X- j- Q. x. R- A        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);
+ r$ O3 V8 v* B% ?9 H       
$ B% F3 ], |  F        rows:=0;
        lines:=0;
- l  t# L) I. h1 @        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
+ u- d1 F  D3 G* F! z2 |# a3 x                        if j=i then
6 u) h' ]* m9 ~  K# O1 _5 i( h                                d_from_to_chart[j,i]:=0;
$ Z2 i2 b: c0 {                        else
% S7 f' o" C0 F, q" F2 b                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
5 r/ l" I8 J* ^# s+ \/ f                                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);
% P( W. t. U" F" P                        end;
8 C$ i: t4 q5 w; L: Q2 j                next;
        next;
       
8 v4 N9 W9 L& d0 b2 J" i  O        lines:=0;
; s4 z# E' o+ ~8 D        partstable.delete;
8 L, D7 G9 w0 i2 W9 N8 d# o       
        for i:=1 to number_of_machine loop
! |% M: e* }1 q. o; `7 J( a                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
6 w9 i- q! |; R& W. V) a/ a. g                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
1 }8 ]1 `( X/ a5 y# d% t* [                        partstable[2,lines]:=w_from_to_chart[j,rows];
! O/ e3 h: B! J* N  ^                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
: s+ i0 O$ Q0 n: }/ i! Z& x* p        next;
* p1 q& w. t$ i( G/ j        machinename:=sprint("M",rows);
# e1 p9 Y5 e; i4 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;标识符未知
" x' ~$ o& r' A% l& Q0 n: D6 V: j        machine.proctime:=5;
; o* Z0 N- u( ^  F. H        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
& x) S: J* H3 x/ S# L) B       
        bufname:=sprint("BF",rows);
! q, k& T4 q0 f. Y/ ?        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;
' r! r4 r" r! C- C2 R        buf.proctime:=0;
' `" |, V+ I! c( ]" ^* ~        .materialflow.connector.connect(buf,machine);
       
: B, Y6 c; x  z        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
2 B9 _: G2 F) ~' Ddy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
& a# k8 C( ?0 J+ f3 x2 x5 {current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
0 s* S; \1 Q" k& A0 Q; Snext;
+ a: W* F# A% iend;