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

zooey

is
& y$ O$ r0 ]" F& ^) d" }$ b        mark:boolean;
        dx,dy,ct:real;
) \+ V8 F# k8 O, u    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
. |: t  ?9 U- _+ g* I        current.eraselayer(1);
7 j5 Y7 z$ O7 d2 h0 Y4 _  l( w1 f       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
# K5 T0 i2 Z! |$ T# q3 P0 }" f                inspect messagebox("设施数目不对！请核查...,",50,13)
' L1 s, |3 A7 b) r" |+ c                when 16 then
# R" q6 o$ E  M; G6 R                        print"yes";
6 k, ^, G5 l# p! I                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
! I. g) m: G1 ?) b* v. ~* m2 [                eventcontroller.stop;
# ?: H9 t8 X" S        end;
9 I  K. T  _4 e! ?3 z+ x       
: M, h7 F" @: J7 U$ \( _        for i:=1 to number_of_machine loop
: R2 m# O- N8 r8 I' [        machinename:=sprint("M",i);
        if existsobject(machinename) then
& x  u/ ]- Z# V! c3 J                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
% G) c0 W4 l( m$ j        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
. s: v. L; q9 o4 m                buf.deleteobject;
        end;
5 a$ s6 Q, A( c* {, S" S+ \        next;
       
        dx:=0;
        dy:=0;
9 K# S0 R/ g0 z/ }3 \) A: y# B' N        for i:=1 to number_of_machine loop
1 X3 k( M! D! E/ m, L6 R9 _2 C! }                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
8 W" b/ [) |2 p                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
4 I7 l" j- s( g  F/ p& C# U# H; L3 ]                then
$ a7 B  V1 X4 l                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
( @  P* \( q# Y% f" w& T  E3 F4 ?                        print activityspace[1,rows],",",activityspace[2,rows];
; |% }3 N& D( D. `                        ct:=activityspace[2,rows];
) D! k. n) _2 v" E& E                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
2 }9 P' G/ P) @6 g                        mark:=true;
                        else*/
' M6 }3 E" @% C) I  ~5 `                        y_max:=y_max+dy;
. o5 m8 h5 a6 Z' k, @/ t: G                        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;
( M$ Y0 ~* W5 r" I6 k( C* x            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
) p! M5 D! f9 @- \. z4 S                ct:=activityspace[2,rows];
+ ?7 ~; K& d/ }3 w$ m                        activityspace[2,rows]:=activityspace[1,rows];
0 n; u/ |+ ]. O. r: q8 M1 P                        activityspace[1,rows]:=ct;
9 [# [( o: ?+ |6 G; }                        end;*/
        next;
3 g6 A+ e8 P3 U+ `3 S        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);
# w# `+ o! N) y( \- B       
' C1 F. p- e  g/ b        rows:=0;
. y; f+ \1 W8 Y& T        lines:=0;
        for i:=1 to number_of_machine loop
$ l* u- L+ n- t- L                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
/ M9 s$ v0 V: u5 F; i                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
5 v% N6 W' F5 g* C% [$ _; t                                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);
: E3 O+ t, r$ q                        end;
/ O$ p0 \! |$ `, v8 r! h                next;
, |) [1 \4 l1 a" B: A' z        next;
       
: c6 }* h# Z7 ?& {        lines:=0;
8 Q7 d* v. n6 j" Z5 e! ?        partstable.delete;
       
6 g: G, P+ S# O& [" h9 M  r5 c        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! y( C2 q* H# I' I2 S  \4 t                machinesequence[2,i]:=rows;
, f* T- b3 w9 o/ p5 |                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
4 M0 O+ B6 D! p6 c# v- ^                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
" H# W9 b2 O: h- R0 ]" O        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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
4 E) l2 [6 A% r% W9 H        machine.exitctrl:=ref(leave);
       
0 H8 F* Y7 L5 m! ~+ N. {! U        bufname:=sprint("BF",rows);
4 p/ S4 ^$ C/ B        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]);
0 ^: C8 A( R. ~0 q+ ?8 g. z        buf.name:=bufname;
        buf.capacity:=5000;
: e9 F8 W$ I# z: I  q" b, F0 l        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;
dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
4 `$ Y- i' H* Z" t8 @8 z3 ~current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;