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

zooey

is
0 q1 @# b: Y- ]5 e3 d$ @        mark:boolean;
        dx,dy,ct:real;
3 M3 _  y6 `, P- Z) m0 Q    i,j,rows,lines:integer;
% w4 P* z! A: E1 X+ Q# u    machinename,bufname:string;
    machine,buf:object;
do
" N5 K# K! [  t        current.eraselayer(1);
3 I' x. d) W8 ?+ J; W; E( X8 J       
8 \: |! s3 K. C/ K$ u; S4 r        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
+ _9 _/ A7 i5 i$ C1 {6 A3 q6 q                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
0 ^; [6 O3 k- V) R2 a                eventcontroller.stop;
) k: o  h" t7 d! m, }. _: @        end;
3 ~% H7 Z1 \6 X5 O       
        for i:=1 to number_of_machine loop
! N' I& Z! ?# C* s& |. N        machinename:=sprint("M",i);
# W; ?; V0 t  O1 _: @        if existsobject(machinename) then
# j) V# |, o3 l" C( s- X( c% ^1 p                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
! x) o+ g+ ]3 F( w2 Z& j        if existsobject(bufname) then
# R  Y5 }  z  C/ m/ a  @                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
0 J) x: K9 T% z# P4 o; B9 A        next;
       
8 H. [* ~" c% j" D% X        dx:=0;
        dy:=0;
1 u, h$ F0 Z# u# G; s  I! [        for i:=1 to number_of_machine loop
) b' q9 Z7 a3 P* x" ^  e                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
+ |4 G: M7 ]( D- m5 j+ L                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
& t- B2 t  j' j5 X                        and activityspace[1,rows]<(1.05*y_max) then
7 O) k4 V, f" `1 U3 {1 h# T$ M4 P                        print activityspace[1,rows],",",activityspace[2,rows];
; N. F$ |3 W: ~* ]+ n; V' ?                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
) }0 Y+ S$ Q5 H% D$ \4 j; e: G                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
9 H9 v8 Z& `/ o$ ^                        --end;
3 i$ E6 K8 n3 J& C3 _7 I1 m; G! S$ G                end;
0 a. `; p9 ?$ S8 O                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;
/ X* t. ~- U  s6 J8 m6 x7 W            if activityspace[2,rows]>dy then
1 s" G( c) z3 V' E' \- a8 V. r( l                        dy:=activityspace[2,rows];
1 m8 J/ @, K8 ^  ]; j                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
$ v" Y  h% w2 _# G! V                ct:=activityspace[2,rows];
$ }. G; V5 H4 ^8 u8 c, a3 I                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
6 I( a" ]( x* D% j! g1 T        next;
- N2 U; }  ?6 a        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);
       
0 K5 g6 ~" t9 l) _        rows:=0;
  _, H" c/ d$ [" n        lines:=0;
( T' e2 C' \: z: t: N        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
! x/ v9 t% v0 W8 a/ |9 e/ V' n                                d_from_to_chart[j,i]:=0;
  y! a  ^: z! h                        else
7 N& C% z# {+ W; {- ^  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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
- w8 l* N8 b% |( ~                next;
        next;
       
        lines:=0;
. C5 i7 A* X0 H# D        partstable.delete;
       
        for i:=1 to number_of_machine loop
1 p  c1 J: h& f( T7 b" l/ T; w& L                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;
3 g9 a6 k0 g2 z" B1 F# `" ?                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
9 k$ _8 ]; |* ]. Z0 H                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
& X# ?! [. \2 a( G% }                end;
+ Z8 e- |7 N" d        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]);
- ^; k7 {$ M4 Z( Z# t        machine.name:=machinename;标识符未知
9 N8 F: v1 U( B) b5 K        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
2 Q' f" x5 c+ p        machine.exitctrl:=ref(leave);
       
% X$ h) Q" g1 S4 t        bufname:=sprint("BF",rows);
4 m4 T' Y$ J  c+ s: ?9 T        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;
7 _. \* j2 E2 C8 i9 @* Z  r. J        buf.capacity:=5000;
        buf.proctime:=0;
0 D. z9 D2 E5 b) L6 v        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
, y! ~) r1 f& ~6 c( Y; L1 hdy:=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;
6 p+ Y: \/ M6 X5 _end;