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

zooey

is
/ V2 f0 e( T& `+ w  [% `' Y        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
0 B3 V5 G( ~* g1 t# y$ l0 ^    machinename,bufname:string;
. |! `- e1 ?+ i% M  M    machine,buf:object;
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
/ I' e2 s' }0 ~5 D5 C! j; b! i                        print"yes";
( B& p1 [' U2 k8 h  f9 ?! p5 F                when 32 then
                        print"no";
5 A+ A9 [" g+ n& y$ e; F                else
                        print"cancel";
                end;
3 b  ?; x. Y1 W8 P* m                eventcontroller.stop;
' s( F/ D. q4 s' h        end;
6 |5 f/ T3 j! @1 r* S/ M7 S       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
6 C$ C2 V- {" w& P3 w        bufname:=sprint("BF",i);
# n& J' W: r% W0 W: n3 B        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
. J4 N0 L+ l( o/ K! z        end;
( C' l& p4 r* o. M! n6 J        next;
       
        dx:=0;
        dy:=0;
4 o9 O) ~8 `- `! f! ~        for i:=1 to number_of_machine loop
$ F. R/ d4 W" W- [' i4 b4 w                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; Y- o9 c. S6 W+ @( K                --mark:=false;
6 n1 G2 Y% \( g# p, ?4 G, C1 h% @                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
* \- Q4 O* R6 j( V4 D: g                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
3 p4 X3 l- y1 R# _' B6 U                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
8 l% Q  ]3 w- [5 @" G  x                        mark:=true;
$ \, A, n& Y% s1 n                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --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;
4 B! c6 e3 S" V& l; \' v1 p            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
2 t" K$ Y: ^* x7 d                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
; T7 K+ ~2 U" \+ N" z& A                        activityspace[2,rows]:=activityspace[1,rows];
; h. `, W/ \2 }                        activityspace[1,rows]:=ct;
$ {# I  ]0 t) ?) k" S                        end;*/
        next;
        y_max:=y_max+dy;
3 b: V& @/ m2 `: N1 w        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);
' ^" V. a$ e$ u! }5 R/ `' @' z       
) u4 |; n, c# _4 ~9 s3 |+ K        rows:=0;
        lines:=0;
- d9 A; i& G4 l* D7 O" X5 `; x' z        for i:=1 to number_of_machine loop
) s! N- t) \  G% ^3 l8 B. k/ P                for j:=1 to number_of_machine loop
                        if j=i then
                                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];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
: k( q0 o; J( v* G                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
" k6 T  c9 S* W2 v) u, b4 L0 A                next;
2 w9 U9 [3 J3 s, ]. w        next;
       
        lines:=0;
. v2 m# u/ D) V. V) I        partstable.delete;
       
. H4 ^! n1 e# T/ y# e4 W) ~        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
& E2 R8 d; H- w9 G- N- Q& S                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
# L! Z2 A. R( t0 n, u+ I6 k                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
* P, l6 p) u$ ~5 H- b                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
; [6 O. U% H# B$ d8 {% Q* P                end;
        next;
- m" I. g' u( B        machinename:=sprint("M",rows);
5 A$ s4 t8 {7 S" {- [9 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]);
4 |6 R# B4 N1 H$ Z+ T- B        machine.name:=machinename;标识符未知
7 R: u: D) u: l        machine.proctime:=5;
" G( k( B- u) {0 f2 k# M        machine.label:=activityspace[0,rows];
0 ^/ A2 Y; m2 V  K        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
0 r7 n- v' M# c6 u        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]);
2 ]. Q  L+ j$ j5 T        buf.name:=bufname;
2 e0 w' o! H8 r        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
0 x7 s& t- B; w- L6 K, J' ]; \       
$ X3 w/ t2 p( S0 t& L        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
) A  K% y! f6 n, B" }' kdy:=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);
* V% D  v- ?- ^( Q! |0 _! vnext;
end;