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

zooey

is
% K* I* K8 d: H% |! y        mark:boolean;
; l; m8 [+ i% M0 M" V+ H! _, T! T        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
5 L3 Y/ B6 y  m' T# P; l' o( [do
        current.eraselayer(1);
4 P. N: |" z1 W, [9 V       
        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
% D  s1 W3 G/ w1 r) N: X                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
7 _. _+ f; W9 C; ~! {8 k                eventcontroller.stop;
3 C* R5 b+ u, u  H  B; e" S        end;
  H. E! e4 m7 J  H/ K       
        for i:=1 to number_of_machine loop
# E7 i+ o/ A, _, R        machinename:=sprint("M",i);
        if existsobject(machinename) then
5 m/ Y; D- d- X9 r4 x- V6 M                machine:=str_to_obj(machinename);
( R+ B9 M$ x/ k9 x) w7 n                machine.deleteobject;
        end;
7 v3 p3 U2 w  ]        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
# \  g% p4 y9 a  X                buf.deleteobject;
        end;
        next;
" w, a( u# W" d, n1 [% i7 G. ]       
        dx:=0;
* b, k" u% {  q" X+ a+ r2 S. [        dy:=0;
8 f, K. \- i+ ^7 W  s$ p8 L/ \% u        for i:=1 to number_of_machine loop
" V. L2 z/ @6 J) E% B& R. \+ d                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# F0 Q/ h9 ^7 F" i                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
- \) O3 G) u9 Z0 I- u0 l7 _  u4 P                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
" A( E3 a5 n  Q, E3 f  I                        and activityspace[1,rows]<(1.05*y_max) then
3 c" h6 i0 q+ ]8 q, T2 J3 }                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
( A4 {% U$ L. p1 T& z                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
& A4 O7 v: J$ `" A% b! q7 o& m& n: A1 O                        y_max:=y_max+dy;
0 O; ~- m/ ]7 D: {                        dx:=0;
/ F7 j* T& I5 {! x0 Y" C2 \' J4 |                dy:=0;
9 T4 T7 a9 S7 f0 ~! i                        --end;
: `' x, |$ @' e$ s& h                end;
+ S4 R4 T+ [5 e9 x5 ^                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
4 D- i4 j7 F- [" K! q% p$ {) G                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];
4 }& J2 h8 d& |0 j4 }$ f; K' y, F                end;
8 T  @% J7 n" j) O! Z4 X                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
5 m0 C" l3 }0 S; a8 K  a8 h5 ~& d                        activityspace[2,rows]:=activityspace[1,rows];
2 \# X% e+ i, v/ ^                        activityspace[1,rows]:=ct;
5 {, A' M* P% h" Q" e* g" U) @                        end;*/
4 J9 z: a* A9 K8 ]  b& [1 i  ]; z        next;
# T4 `: n! m1 X/ ^        y_max:=y_max+dy;
5 g, w8 }& |9 S9 D9 Y3 J% N1 r7 d5 d        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);
       
" z; z/ D2 Q- z( b5 b$ e( W        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
# k3 j0 R5 C: M: [$ C  a9 f: r% j$ V                                d_from_to_chart[j,i]:=0;
- [" ]% ^" @$ Y" s& j% f' E                        else
  v3 ]" m9 z9 U+ s2 R! s( N                                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);
5 l7 \* I& Y; ~4 f' @* k% k                        end;
                next;
6 s8 |1 P7 l0 Y! k# ?; \/ J        next;
       
; v! @) n" `8 A" S        lines:=0;
0 R! b; Y& |4 j8 J1 p7 s, l5 g" j        partstable.delete;
" t' S- m) v) o! z0 x. o       
9 ?7 Y7 j6 o5 Z2 }5 ^, G        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
% p8 h0 g8 F  ^/ L8 l                for j:=1 to number_of_machine loop
3 \( u1 `' I6 {3 S/ l. ], L' z                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
' u1 ~+ D1 G# V& d- V                        partstable[3,lines]:=sprint("parts");
( \. G% U. k- N% P; [                        partstable[5,lines]:=rows;
0 d  v. f% q2 Z) m7 N                        partstable[6,lines]:=j;
                end;
+ y# g  I& D5 c) x( v% T; G        next;
% x& b* Z+ K! ]; a4 W- h2 B        machinename:=sprint("M",rows);
* M/ v2 Y! i+ q- `% y        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]);
1 ?" |9 Q- O. \3 L/ w& X$ n        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
/ X9 O, U) s# @( O- n. ^% w        machine.exitctrl:=ref(leave);
  Q- a9 c% J+ |4 e" `       
4 q" L9 k$ \# [        bufname:=sprint("BF",rows);
( L8 J, c9 l3 x/ [6 Y2 X; `        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;
2 `" J! N# C2 ]0 N        buf.capacity:=5000;
' K, e+ Z1 j* j        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;
( R) Y% m* s- O6 e0 edy:=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;
end;