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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
' o) U0 z# y$ _! x# V0 `    machinename,bufname:string;
    machine,buf:object;
  O& }5 x" {; {9 O& Rdo
5 h, o7 L. g; t0 Q3 c& c  K        current.eraselayer(1);
! ]8 n/ l  Z& q+ o  X/ ^* U       
: l4 z' z5 _$ z# q! k        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
* h8 B8 ]# p& `0 ~; [% ~                when 16 then
2 Y4 D+ m: C+ ?' ~                        print"yes";
, {  m; D% j. c                when 32 then
7 ?- U7 {( s9 o6 O# ]- H                        print"no";
                else
  ^$ Q, ]. @, q) M0 _& E                        print"cancel";
                end;
                eventcontroller.stop;
        end;
2 H. g  H9 W$ L5 D+ d6 }       
        for i:=1 to number_of_machine loop
+ Y9 w! y9 Q! p( a9 C5 l        machinename:=sprint("M",i);
* V3 B$ U, k9 c- |8 y; j9 W' Z        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
9 U" J9 [# V) u7 y' l* v5 f* u                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
* E- p+ P9 B. h4 R' I3 B; S% @/ A        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
2 s* P6 h0 H' X/ ^                buf.deleteobject;
) }/ `+ H0 P( d1 a        end;
5 x0 p2 O- [7 |" [& E" i        next;
       
) }& B% T) I9 Q7 Z& a8 @9 q        dx:=0;
$ J3 d% b; P8 `* x. E        dy:=0;
        for i:=1 to number_of_machine loop
" W3 _  M! M8 S! ?0 Y& s% ~                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
0 w& B9 \7 R, i% Q) l                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];
- i* m' q0 j: Z$ C+ b                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
4 O$ ~$ E; g# x! Y  T8 y                        activityspace[1,rows]:=ct;
9 @0 S/ [! r3 m- \2 W                        mark:=true;
                        else*/
0 p/ A9 V  r  U8 M# h: l                        y_max:=y_max+dy;
8 {7 A7 r* Z' X2 F( ?& g3 h                        dx:=0;
                dy:=0;
                        --end;
3 [& G! x* {$ }3 b2 S  m, u                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
5 |' [! W! o6 m+ l2 d; h3 s                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
, H3 t2 [+ S) \6 f                ct:=activityspace[2,rows];
. w3 s2 K# C' _4 _" `- ]- x                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
/ U5 d1 [7 {- R3 \4 W/ ~                        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);
        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;
        lines:=0;
7 N$ y1 @) m  J2 u9 t3 X        for i:=1 to number_of_machine loop
6 ?2 b; `8 l* h. J' t                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
; X" U0 @6 M3 H) c                        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];
5 r4 [7 h, B! W9 X4 D- j                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
, p, P# @% ]7 u* v3 X        next;
& d' O/ ]0 ]; g6 a* V/ L* o7 P$ Y9 h       
        lines:=0;
+ x* y3 U1 ~- a: E  T& P$ @        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
* x  c6 l0 L2 T7 d" p: K# M2 }4 m1 [7 B                for j:=1 to number_of_machine loop
. B6 Y& m7 H* {  i+ k5 u2 `                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
0 R6 g( N- l4 H9 Y+ @! O5 o                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
% G5 @7 @$ ~7 u, v/ Q' C                        partstable[6,lines]:=j;
! D- n2 g; L% [                end;
2 n- t% _, R$ D5 x4 _        next;
        machinename:=sprint("M",rows);
        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]);
9 ~, T- [* H4 \% x, m. r        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
, a/ ]. M4 x+ z& p: E! H( t        machine.exitctrl:=ref(leave);
7 h% e) c) U7 f       
        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]);
' [+ \. d; x8 K* C5 y9 v$ F        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
1 f: m+ e3 O2 s5 l1 @1 c       
$ P9 Q% c2 C& q2 L: u) I4 I% _        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
) Y" l' I3 K8 v8 [0 V' `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);
+ M3 k3 L6 O8 jnext;
end;