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

zooey

is
; f9 M, v* Z! Q8 z2 Z        mark:boolean;
        dx,dy,ct:real;
8 ^8 k# d+ G' E) |& T5 P    i,j,rows,lines:integer;
& `$ o4 v5 t$ @) M    machinename,bufname:string;
3 N. B9 z4 d% d/ O/ N5 `    machine,buf:object;
9 c( F  ?7 G6 Y6 S  n# o9 mdo
        current.eraselayer(1);
       
  b6 Q" o2 n( Q) m& [% e        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
1 q! e+ W* g2 y/ N- T  j: T, R$ M                        print"yes";
- S% ]6 N8 ?) P7 z* n                when 32 then
7 o: x, w2 J( a% X% t. a7 n                        print"no";
                else
: p2 N$ w5 D" O2 c! F                        print"cancel";
                end;
                eventcontroller.stop;
        end;
; Q4 m& r! Y. H6 L, M       
* f2 }( L) q+ C$ [  R9 I        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
$ @- `& [9 g5 M                machine.deleteobject;
  f" I; C$ `# q( A8 y3 G        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
  i' [, u- e' a) p- d6 z3 i9 R                buf:=str_to_obj(bufname);
5 Q( O" Z: I% C" \4 S                buf.deleteobject;
2 B  s( V" U; a9 B" q6 @        end;
        next;
- h3 G  U- r2 `: Y       
3 s) b7 T$ ^( P        dx:=0;
        dy:=0;
" A- ]/ \& R; H: s! y$ Y: i" a        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
! t/ A0 S4 L- f) x6 Z9 A                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
2 v9 _9 v- n2 ?3 ~                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
6 f0 ?+ d9 t" ^/ }$ n5 r+ E                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
/ }: @/ s% M# h                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
4 d9 j7 G3 o  }% P* l                        dx:=0;
+ `" D3 t+ S+ [' j; b, Y* Q                dy:=0;
; p  O. x( V3 X: K$ [+ V                        --end;
                end;
7 _" G: c! D" W  F1 k                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
! y) Z+ V7 [9 Q) Q  h. }/ [/ n                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
# t7 V; L) f, d: f' t            if activityspace[2,rows]>dy then
5 [2 {& }" k" |& u0 i                        dy:=activityspace[2,rows];
5 m" O4 Q( T: b- A1 z                end;
0 e# Y3 ~( @- ^( ?# a1 a' Y                dx:=dx+activityspace[1,rows];
# G$ `+ X5 t6 _+ j, v2 w                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
0 \- t+ G" O2 o& c        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);
; z1 b5 V$ [% X5 e5 y0 L        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);
       
& u# k2 D5 G6 S        rows:=0;
( X" d) J- b9 c        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
; y4 V% U& o# K$ F1 s                        if j=i then
! `, L& G0 M2 d- @0 ^, \( S# D2 p                                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];
6 S1 ]  V. E5 w, `" z                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
2 q; M7 D% F3 j, l- S9 z                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
9 j/ z- M1 z* a7 i' J# C8 _                next;
0 h  C; j& z, l) C7 z$ F0 F        next;
       
        lines:=0;
* \8 W- |$ V( \        partstable.delete;
9 n2 u+ ~; G4 k5 D* [& D       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 F% e( J5 v& v5 ]" k                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 W. s: ]4 U8 n% m! ^, [& f7 W. Z                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
" e" W* X: Y1 T* y                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
2 T8 q9 W/ L: o! v+ }9 S- t3 B                        partstable[5,lines]:=rows;
2 ]& |6 E% u$ \5 ~) |/ q! @- X6 C% m                        partstable[6,lines]:=j;
                end;
. V+ q) ]# O4 @6 e  U4 F  s6 p        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
9 h& }" ]/ L( E7 p/ T2 e        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
/ c( s) a/ K) o2 T  c, }. q        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]);
        buf.name:=bufname;
$ A, t. h: N" g2 Q. [        buf.capacity:=5000;
" D3 w3 F' }" d0 r        buf.proctime:=0;
3 h. F3 }2 f3 @3 z# ~- c$ R4 X        .materialflow.connector.connect(buf,machine);
       
& ^, y* Q- F' E1 M( k- X- u        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
2 @0 }% Q- d. [, ^dy:=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);
/ V: J; x5 f  @' K3 j  Mnext;
end;
$ h- x% ^# N6 A! l4 F