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

zooey

is
8 H+ Z% i* o  M        mark:boolean;
- i/ Z! `  d, p) b        dx,dy,ct:real;
    i,j,rows,lines:integer;
1 @8 L  j; ^3 _" E) ~    machinename,bufname:string;
3 T9 F; W* j1 \    machine,buf:object;
do
        current.eraselayer(1);
5 s6 B* r# U9 t0 }& _2 {) u# j       
' m  l7 }  k1 z; r' S' J        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
4 ~- i6 D/ U3 ^+ c# G. s# [                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
! ]+ i# f6 l0 ]4 S7 v( T                        print"yes";
( h- ?3 k# F. p9 v8 u' {; g                when 32 then
                        print"no";
                else
2 S- L$ o$ v: R/ g9 ^. Z+ C                        print"cancel";
, E9 a2 z( \* ~                end;
9 @% s4 C3 E& t6 p                eventcontroller.stop;
: x5 x5 p1 ~2 F) V        end;
       
        for i:=1 to number_of_machine loop
: w, V/ e7 ^; y; l; A" x        machinename:=sprint("M",i);
: k& n- X6 S. N        if existsobject(machinename) then
8 D* h. z0 r) f8 B7 T1 z                machine:=str_to_obj(machinename);
                machine.deleteobject;
3 h- H' X) `$ J( ]$ N6 P6 _        end;
$ @  n& v; x2 r2 s        bufname:=sprint("BF",i);
- T' K! D* w& o4 K" ~7 b# {        if existsobject(bufname) then
) @! d0 [  Z6 r' E) M1 d                buf:=str_to_obj(bufname);
                buf.deleteobject;
, E3 R$ u' {/ W1 ^        end;
        next;
% c/ K8 y3 I, G  J; _# ~  U: Y       
3 ~! w8 q8 Z. d, Y        dx:=0;
) O  i# K# [$ j  m1 j        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                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
  Q% r$ D9 _% H& ?/ E6 M. _                        print activityspace[1,rows],",",activityspace[2,rows];
2 h$ V2 e; F! h* g                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
0 m8 M1 Y  R; t4 ]9 K: Z                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
0 @1 P% [  T3 r  A                        y_max:=y_max+dy;
* ?; ~: u- B5 |+ b9 w% X9 n                        dx:=0;
0 p6 `7 e$ O2 h9 H/ E# R7 o! m& e                dy:=0;
                        --end;
" I8 G( O- [$ k) F                end;
3 W1 x% t7 N& U! O4 S: n                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
0 b6 A: J% a9 f& P0 ]+ ^                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
' b/ j7 ]! Y/ p+ p- V                        dy:=activityspace[2,rows];
) [# I1 M- Y! b2 E: l                end;
' O. j8 K/ V  Y& ~- L) U/ w3 ?                dx:=dx+activityspace[1,rows];
7 x( `' U% H; q- s* c; W/ }" O/ w                /*if mark=true then
                ct:=activityspace[2,rows];
1 H4 I7 G6 e3 o& C( k2 t                        activityspace[2,rows]:=activityspace[1,rows];
3 W- a+ ~4 t& z8 F9 t                        activityspace[1,rows]:=ct;
+ K8 P1 w; i* X" S/ ^( ]3 V                        end;*/
        next;
) m4 f2 z- _2 [. Z; p( j1 E6 e4 r        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);
8 [; I9 y3 e6 h9 V        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);
+ D' m! r* V2 w4 l( A; h       
5 M% b+ d( L. O3 P. [0 F# J        rows:=0;
        lines:=0;
6 n% m7 @/ L0 f; x        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
' ^. E6 C+ D' w4 ~7 B7 z- ~5 G  k                        if j=i then
- l, ?# {- X( x' w                                d_from_to_chart[j,i]:=0;
( j/ a5 S9 @" M+ V0 m: F! a1 f% ]* p                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
% q8 r& b2 q5 x! ?+ a; F                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
+ d* W; B- Q4 ~1 {  G6 E$ `                                d_from_to_chart[j,i]:=abs(dx-dy);
& s' l( A( |7 q) c' L: a                        end;
4 u) I' w6 B9 g: N6 Y1 S# `& j; ?8 O                next;
" }) N, z9 L3 H, b+ ^, b, x5 d        next;
       
; c# w% O5 t: J" D        lines:=0;
6 D' Z2 H' f2 k  y; O9 b- u        partstable.delete;
( h/ L. P2 U; ~) p       
# W! D! B1 Z( @. m; Z/ ~        for i:=1 to number_of_machine loop
- h' p! }1 k2 s) V& Q) 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;
$ j8 ]7 n5 k9 @% N- Q                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
# L' b) X5 C7 j( v' ^5 B                        partstable[2,lines]:=w_from_to_chart[j,rows];
/ G& A- a$ A9 `8 G9 o                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
- A- q4 Q7 q! g" ]; L$ x; F- ]3 E        next;
        machinename:=sprint("M",rows);
" D8 ?3 |9 x% X( ]: D! v/ e! I' J! N        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;
: h8 L5 X, S! q8 x3 K) g        machine.label:=activityspace[0,rows];
0 N) ~% X2 R3 G- Y3 O4 J        machine.exitctrl:=ref(leave);
  b8 M/ u6 l; R5 t       
        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]);
. H7 C. l/ V1 X- X9 i+ y0 T1 L0 M        buf.name:=bufname;
        buf.capacity:=5000;
% C/ I5 h" F; X        buf.proctime:=0;
  L* i& Z4 L/ X8 [( z        .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;
0 s* q2 q! w4 j7 |3 E+ Ucurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
! y, a! }  W- i+ h! V% A# {end;
8 x, u- l; H1 Q1 M8 ?