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

zooey

is
5 a- t: z3 ~1 B# t5 I$ ]) {        mark:boolean;
        dx,dy,ct:real;
1 }$ J6 q8 f( |6 v/ |; S: ^9 Q    i,j,rows,lines:integer;
    machinename,bufname:string;
3 ^! X6 s# F4 S% p5 b: d$ L! i. l    machine,buf:object;
! h& M/ ?6 y9 ~do
        current.eraselayer(1);
       
        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
                        print"yes";
                when 32 then
                        print"no";
* W+ z) M% m# I; E                else
                        print"cancel";
1 z; X9 W6 S7 J5 Q, O4 e3 t9 A; q# ?! ?: e                end;
( K5 F$ W1 |* e                eventcontroller.stop;
        end;
6 c5 \: @( j: K" R+ j* h& ^       
/ K6 c- ?8 s$ B9 |% ^, t1 ]        for i:=1 to number_of_machine loop
5 A; c; ~) M: Q* ]" M  d: H) v        machinename:=sprint("M",i);
; F6 j/ d0 y' Z2 |' F" }& m) {' x        if existsobject(machinename) then
: }/ e. T- H7 G- Y- H) \                machine:=str_to_obj(machinename);
& N9 n6 \' D+ G+ U5 \                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
# t' Q4 b6 D* g, E' S) h                buf.deleteobject;
        end;
8 e, A9 I$ x2 k" E) J        next;
. E+ P. |0 r: J" p/ ]/ C8 x, h       
        dx:=0;
9 b7 i" k7 ?  X        dy:=0;
        for i:=1 to number_of_machine loop
$ G& u; T! j6 w& W% H" U" D                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
+ B3 f% t$ Q# t                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*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];
4 ^1 G5 e( w5 K# Y1 F! b                        activityspace[2,rows]:=activityspace[1,rows];
+ e7 R4 R7 _) B1 ]# G$ P                        activityspace[1,rows]:=ct;
/ z6 s) l$ V9 o+ r* l                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
* {1 k  P0 N) j0 z                        --end;
( u1 i$ d) `/ H$ C5 S                end;
) Q; ^3 }- {- v3 A* c1 M5 |3 x4 M7 K+ Z                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;
% G# t4 A* i5 q4 C5 ~% p            if activityspace[2,rows]>dy then
- P' P8 y& }8 I6 e                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
0 s& V3 C: q, \- O$ [6 k3 k) q                ct:=activityspace[2,rows];
0 f9 J+ ?3 x5 t6 P3 U0 J* B                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
" }2 e9 C+ Q& x5 j. i                        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);
7 U$ i) K4 H1 A; z        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;
4 F, r" j- ~; f3 i5 C8 @        lines:=0;
        for i:=1 to number_of_machine loop
( i$ S3 Y7 V1 o                for j:=1 to number_of_machine loop
8 H/ s4 r. X+ Q7 Z) V' l                        if j=i then
+ |$ S; N* h3 ~8 Y: C                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
+ A) D/ T% ?- O                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
$ O. W1 _: G, Z                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
1 `6 n: U4 ?+ b& @2 x/ B        next;
       
        lines:=0;
8 R: x1 j% H: ?/ Q        partstable.delete;
       
! [& v. m1 A7 p8 z6 V: g* i        for i:=1 to number_of_machine loop
& d7 k( ~4 |' M  B* j; q                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) \) n8 Y8 t+ X* ]4 G' O1 j                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
& V. ^/ L; `' K2 S% z$ ~3 [                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
; I" Y0 v* X& l  U, {4 @5 }5 n2 M                        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+ t1 c8 }8 p) Q' w                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
% K) b* s  p/ u                end;
0 K8 y9 y3 B2 J# B8 F: w: x        next;
        machinename:=sprint("M",rows);
( e) n1 V: w& P6 _        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;标识符未知
        machine.proctime:=5;
4 |, [$ o" j" _9 @9 N: K        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
# J( t/ f6 I8 _9 u& l+ T       
        bufname:=sprint("BF",rows);
+ [/ r8 l6 Z* ^& r        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]);
, m% L" v  j  s. `: }" S5 X* w+ r        buf.name:=bufname;
        buf.capacity:=5000;
+ w- F2 c* k2 q& g. d" q$ l$ y        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
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);
" Z9 F9 V, ^( I. ?! v/ r6 Fnext;
end;
1 C) d5 p& ]0 B, t5 V5 e3 r7 G& |