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

zooey

is
2 r' E3 X" b* n1 P( t: {$ ^" t        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
' P# s" j; z" a  D# O% N9 `0 X/ udo
        current.eraselayer(1);
# \8 t- _' l* ^" q9 o' l       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
4 F: Q/ b% p8 d* r                inspect messagebox("设施数目不对！请核查...,",50,13)
( T& [" q% k8 |1 Z                when 16 then
                        print"yes";
                when 32 then
* ?; A5 a2 x% g3 w- D                        print"no";
                else
( N9 Q0 j: ?$ b; `8 @                        print"cancel";
1 u& G6 W3 X$ C2 c                end;
                eventcontroller.stop;
& {/ ?1 K, T# t2 t- R( r0 D9 C        end;
       
        for i:=1 to number_of_machine loop
6 M6 D* J& z: m  Q+ J        machinename:=sprint("M",i);
# M" ]3 `& b4 U3 h        if existsobject(machinename) then
- z7 @* \9 o4 m5 r                machine:=str_to_obj(machinename);
' V9 D& T. [2 R) G( N5 I' m  i                machine.deleteobject;
* M9 Z4 N) U3 Q2 u        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
& q& v* b: A$ {. q) u7 A( F3 R6 ]        next;
       
8 A6 J1 j- t5 L: x' b1 P% [: I        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
: I; k+ P' R- o$ B+ N) }) @) J% S; ?                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
3 U% j/ _0 r* U4 `- c+ x# N" j                        and activityspace[1,rows]<(1.05*y_max) then
9 {; `8 v4 c8 k" o                        print activityspace[1,rows],",",activityspace[2,rows];
/ R, J; t) ^: g2 X2 N2 K9 a  o; ?9 y$ M                        ct:=activityspace[2,rows];
- n9 A# j' _$ J1 V$ C                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
8 S5 E3 C' r. d! z7 i3 P0 V" C4 d                        mark:=true;
% c$ B( @$ J& [3 k1 a9 h$ {                        else*/
                        y_max:=y_max+dy;
' N* f; j- I5 a, A! D7 P                        dx:=0;
                dy:=0;
1 z: e8 p5 v( k: P- ?                        --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];
" A) K8 H( y/ O1 l/ h                end;
8 u& A+ b0 a) [7 S! E6 W                dx:=dx+activityspace[1,rows];
2 ]' W/ I5 e" k2 w                /*if mark=true then
- C: F3 k; k' l" H+ d                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
9 \7 n" Q- ?; I6 W; P: E                        activityspace[1,rows]:=ct;
8 x8 J! Z# F6 H' Z0 l0 h4 }                        end;*/
        next;
        y_max:=y_max+dy;
8 L. w& Z1 y6 [2 ]: z; Z  F        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;
& s3 a) U5 m9 a9 h        lines:=0;
$ u9 c7 q6 v4 a5 x1 O        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
/ w" Y6 y% d; |) ]                                d_from_to_chart[j,i]:=0;
                        else
* r! I4 g- E5 L$ A7 n6 Y2 P                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
- c& `+ }3 V, u! h                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
1 \) t$ L3 e9 E" g1 M0 s. ^, q                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
0 h- k9 l" ?" S                next;
. |3 p7 t# p3 I1 d) h7 |) @/ S2 q        next;
5 P7 |# H- M/ }/ o       
        lines:=0;
; G& P# r( u& f2 ~- {        partstable.delete;
5 A7 p- u! L1 ]# ~1 {) |       
0 d! H+ m  \, D( _        for i:=1 to number_of_machine loop
                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;
9 q$ X# c; E5 c) t" K' q( |* C4 b                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
6 @" M; ]  W; l) T! X# C                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
9 t5 V4 O" F  Z- M, Q5 G                        partstable[5,lines]:=rows;
4 t4 Y  t5 r% z0 ?2 E# u: d                        partstable[6,lines]:=j;
' Z4 c# {# ], o- s- ]                end;
        next;
        machinename:=sprint("M",rows);
* n& M  o! n& b1 H- 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]);
        machine.name:=machinename;标识符未知
- {5 r& ^# `8 v9 y# t, y# S# F        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
6 C4 m# g- M, A        machine.exitctrl:=ref(leave);
; c$ Y7 N7 b- I       
" |  m4 X6 h* w* K/ T9 V3 ?        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;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
7 I% b/ ^/ R9 A7 r       
2 Y  p7 x- u6 I        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
& V$ i% Y2 E7 h* @8 j5 @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);
next;
& ?* u2 E. t( K) G$ iend;