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

zooey

is
2 L' H: W" P* V+ A4 P        mark:boolean;
5 a- P' e7 o; v6 u/ z        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
& S: |/ x' N, N7 I' V+ D        current.eraselayer(1);
       
$ l+ B/ l7 B; }2 O; F/ E0 h  j9 {% s        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
/ B9 B* f1 {8 R9 U                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
; T9 \7 o% I9 W$ B                        print"yes";
. I- r  ^; s  {9 x6 x                when 32 then
                        print"no";
) E( }* k* M' h2 k+ `                else
8 @/ D" ]. H3 J9 X( i5 ?: m. L                        print"cancel";
                end;
- p4 E& B1 k' j% f2 J                eventcontroller.stop;
" j6 N  \6 C4 w9 @; X        end;
) @; k) K; N, r/ v* ~0 z/ p: @       
: T4 F" ^( p$ X        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
0 ?' e0 p, L5 t1 l$ g$ D! u( \$ N        if existsobject(machinename) then
  A- j/ w  R. q                machine:=str_to_obj(machinename);
3 A) z" B: y* D8 R# C                machine.deleteobject;
$ \$ R* D$ J0 d% h+ C9 B        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
( |- f9 B$ k5 V5 c0 Z4 q                buf.deleteobject;
! A+ q( o4 U3 \' ^! ?$ m        end;
; |2 `, ~; V" ?  [8 [: B3 B        next;
+ j, D$ w! ^0 u+ J; s; b" Z, J       
        dx:=0;
2 w, @! l0 C  t, M7 x2 \        dy:=0;
* R; j- C7 b2 e2 V/ F/ n) Y        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 a$ H" H( }1 [7 k) V0 H' e5 h/ O" G/ ^                --mark:=false;
& T1 a' k) c) I2 Q3 Z# R" _1 o                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
: w* W# q5 H- o+ X4 _+ H                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
' N2 N' t2 j  b6 F+ p( _( o( H; d* E                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
' s# Q9 q0 {2 x( q                        activityspace[2,rows]:=activityspace[1,rows];
1 A* x( W1 K' _& n3 R0 d; D                        activityspace[1,rows]:=ct;
! G- Q; ^( `; {                        mark:=true;
                        else*/
6 M4 b  H/ O% G* P                        y_max:=y_max+dy;
9 }4 A$ P7 _& s6 S* b# u) k/ Q                        dx:=0;
                dy:=0;
. u; r, k3 B" t" E. _                        --end;
8 w5 K& n  ~( r- D. h- M) b                end;
2 }$ \+ f2 H2 ]# _& c; E, a                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
4 Y1 f5 `' Z" U& }% j1 x                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
9 P# B! z+ S" q+ r' \                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
1 H  x1 E* E( g& I; |. K: I! V( D, S        next;
5 ?" b' C3 p1 \- h" Z4 u        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;
+ L$ m* l7 _& t) }        for i:=1 to number_of_machine loop
, D8 J. h8 Q# H, i/ k- Z3 ]                for j:=1 to number_of_machine loop
% C0 B8 y3 Y( z2 }, M                        if j=i then
3 ^; I" Z# d1 \- s                                d_from_to_chart[j,i]:=0;
3 P) J$ ^3 H7 [+ @                        else
; U1 }* C) ^/ l3 h  C                                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];
2 i; U: z+ y; O' ~                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
% O# i3 ~( b: _. \; a% D& X8 f       
$ C, A2 B6 k  E3 @        lines:=0;
        partstable.delete;
) _. t6 K$ i) s, }/ P3 i. g       
        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;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
5 j+ Z; ?3 f5 K% I  P2 U; N                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
5 G1 N9 N2 X4 q0 g                        partstable[6,lines]:=j;
                end;
" x. {) v& }# i6 i9 F$ f8 T1 Y9 Z: J        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]);
$ z/ h$ i! T' U2 t        machine.name:=machinename;标识符未知
! G$ w  q1 A$ T- j3 j        machine.proctime:=5;
. U5 r- o/ F9 B: u9 v0 `        machine.label:=activityspace[0,rows];
% ?7 N& v) {2 p+ ?+ I, @        machine.exitctrl:=ref(leave);
       
4 |& F- M- M1 w8 r# V. o, N( Y        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]);
8 l4 k) s( k4 c& K7 Q, {        buf.name:=bufname;
0 g7 {9 o* Q* E# f0 u+ K        buf.capacity:=5000;
        buf.proctime:=0;
" `. D8 l9 T9 X% I9 I& T        .materialflow.connector.connect(buf,machine);
" R+ V' e: m3 h! `* x) T# J4 [6 W# G$ S       
        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;
& Z! z3 U3 }1 }% H" Z* Z0 bcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
/ }1 F6 X: E8 Q" b$ t/ Unext;
- D# E/ B7 Q7 c* q; \end;
0 d3 X/ P3 A' A+ m/ r0 L