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

zooey

is
' F. y& e1 L% l% Q+ `0 A        mark:boolean;
        dx,dy,ct:real;
" n3 `$ o/ f& L/ d    i,j,rows,lines:integer;
4 S7 U; B  n$ J/ y7 D) k  m9 V1 Q    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
8 p+ S- Y# {- D4 `3 N5 b5 G* c! q! w       
6 T6 I9 v7 Y5 T; @        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
                        print"yes";
  A. G, I6 L( S8 G" e3 N                when 32 then
+ h5 \$ M$ {2 L2 ~4 z5 B. G                        print"no";
                else
; m7 Q; R' _% K                        print"cancel";
                end;
" X" T& s  N! f                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
0 B( n  v$ y4 V3 a: Y6 b        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
9 d2 @. }7 m  P& p2 w: [: G        bufname:=sprint("BF",i);
& z9 V% r+ n. m- n' |5 d( b8 R        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
+ g# L8 g: x' ~) j0 m# B        end;
( I  E. n$ \% x        next;
       
* j! b( U9 s) g" D  w+ C% }. N        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 D) s" U" _4 N, }: E                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
% I( T% h% G7 j  }- w; g+ _                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
* T4 F0 K/ j3 n6 x- O# K# o5 F                        print activityspace[1,rows],",",activityspace[2,rows];
3 A2 W; L% _  }! n2 j                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
- `) F* ~0 R" t. I+ F1 O+ L5 ?                        mark:=true;
                        else*/
# v6 p* d9 ]( {7 d                        y_max:=y_max+dy;
7 l! w& G9 t( p                        dx:=0;
                dy:=0;
1 g, G- ~/ O9 Q- t0 Q                        --end;
6 s' D. ~$ n9 G3 N% X8 Q# r( Z& E                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
- Q( R: a. G( }7 l1 i                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];
                end;
3 g: D4 R: v5 t/ H! {- a                dx:=dx+activityspace[1,rows];
1 h/ k3 Y" s* Y5 \# S4 i, y2 F/ F                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
" e4 G% ~$ k( f  n: S1 l; V                        activityspace[1,rows]:=ct;
. S- c$ I) j3 z+ q                        end;*/
( |* G  ~6 L# S4 [" r9 }. \        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);
* o+ j$ F3 `6 s- u' F, r9 D7 a       
        rows:=0;
; w8 V- D& J  {5 \        lines:=0;
        for i:=1 to number_of_machine loop
                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];
1 U. `* s/ x9 w                                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);
2 g2 H1 y  u) o, T: p  {* Q  U                        end;
, ?1 s, P5 t1 H0 s: ?' ~  @                next;
        next;
       
0 j, V& i+ M; @% s) E2 O        lines:=0;
0 Q# Q& Q/ Z/ J        partstable.delete;
8 K  g2 N+ ^- U( R1 f       
        for i:=1 to number_of_machine loop
5 ]; V8 e0 U4 L; a) m                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ D5 y. \% G! H, O+ F1 _                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
5 E. D8 ^# J2 ~% r6 T8 n6 W6 [                        lines:=lines+1;
# a# T* a$ m. V                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
0 @/ Y2 W! ~: t0 E/ k. o" U                        partstable[3,lines]:=sprint("parts");
. C. y. Q; j# q' H& A) l; p) v# N                        partstable[5,lines]:=rows;
9 _7 ^; ~% ^- _3 i0 i                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
" K' a# u0 e& J: x        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]);
. r$ Q% Q1 n* C        machine.name:=machinename;标识符未知
1 u! r9 B& A; I5 S: y        machine.proctime:=5;
& W1 K# R- l7 |* {/ ]7 @        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
4 C$ N# V- {% x9 j7 k. y       
        bufname:=sprint("BF",rows);
. V4 i) S* [" }' ]+ Z  t! p. m        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;
( B! B" L- i# M  a        buf.capacity:=5000;
5 f& p! T- R$ }( d# c3 @# q/ \        buf.proctime:=0;
; U) R8 r1 @+ o- t9 \$ l$ v, w        .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;
1 |% H, _* T( I4 Gcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
: V* ]2 o1 \/ `' U/ Nnext;
end;
$ m. G5 w& O& e/ V