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

zooey

is
7 G: J( t8 x6 {) Y3 s) p        mark:boolean;
        dx,dy,ct:real;
  `# Z) Q- J; g/ q* I" ?5 l: c    i,j,rows,lines:integer;
    machinename,bufname:string;
& p# p: W9 e7 ^0 J    machine,buf:object;
4 p8 J3 z% @/ q6 C! ?do
, L$ ~; _! s% g$ m( [& p6 [        current.eraselayer(1);
  G) K! z( D- S2 w: b       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
8 h( }  M% U* B$ H2 p0 h                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
2 `6 Q0 Q& h0 o! w/ j                        print"yes";
9 ~+ v. r5 S4 t2 i. s                when 32 then
                        print"no";
1 X3 q6 d0 }; L7 J) @                else
                        print"cancel";
) `: V' B8 n: w                end;
0 i% f$ |, F. n  `, t                eventcontroller.stop;
        end;
  y! }' v. z1 L* a- G# Q- l       
$ t- z+ M( l. a: `( H2 S8 E( @, u& d5 d        for i:=1 to number_of_machine loop
) s, A1 \) |( `; Y0 Y$ d        machinename:=sprint("M",i);
- p7 S1 {3 _. T3 s0 S  m  W        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
( ^7 w+ U3 E. R  o8 u; P        end;
        bufname:=sprint("BF",i);
4 N; T% P. Y  p" ~  ^8 d5 T        if existsobject(bufname) then
0 ?3 x  d. K- S7 y1 t                buf:=str_to_obj(bufname);
, A  o+ @, U- |+ o9 \3 v0 m& W! z                buf.deleteobject;
! q$ ^9 Z+ v4 O) z        end;
1 i! J0 |+ r0 y) ]7 K2 V8 i        next;
6 j; k$ c6 v3 M. C       
, K9 L, Y5 @, T/ B6 t        dx:=0;
8 V# X8 A) r) o) U3 n' I1 f        dy:=0;
' K. {7 M+ j: |' V; ?% Y  ]4 d3 k        for i:=1 to number_of_machine loop
8 ?: P4 a/ Y2 B- C5 u  f: K                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
: u1 ?  P$ L% ~7 F                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
- U. L+ J# L' }- G. t: e                        and activityspace[1,rows]<(1.05*y_max) then
$ N& q* e2 G- O2 h4 ~3 S                        print activityspace[1,rows],",",activityspace[2,rows];
8 m7 i( x* W. I/ K* x                        ct:=activityspace[2,rows];
- d3 x5 ?- Z( L& R                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
$ ?3 H; K2 k1 u4 n4 ~                        mark:=true;
* j2 O+ v6 J3 Y) h% m" B3 v                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
5 _3 \, c3 c% i  U                dy:=0;
                        --end;
& a, X$ k  Q) x4 X, u                end;
5 X1 D) T& o/ X+ ^                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
$ w& @- M3 F  Q) O9 X                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
) v# Q6 U5 u# e( e; e* t% o            if activityspace[2,rows]>dy then
- w) F7 E7 m, z7 R6 K$ M                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
  f. s3 S- P& q& \1 m& t                /*if mark=true then
                ct:=activityspace[2,rows];
0 v5 m9 R1 K3 E( e9 O5 J                        activityspace[2,rows]:=activityspace[1,rows];
' Q; V+ n% i5 b/ Z0 M                        activityspace[1,rows]:=ct;
                        end;*/
        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);
, F/ @3 Z8 @. W. R1 d        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);
       
        rows:=0;
3 t! s+ o) R: u% o. g$ G        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
4 S: k7 D4 c# f* z                        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];
8 s1 `/ `8 k% 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);
" t8 c5 d  T0 _5 P  P. w                        end;
6 B1 i+ R  }+ h' I0 f                next;
- F8 g8 |8 n8 ~        next;
3 f, _  u+ P/ i       
: M3 O6 v* C1 P# Y& L, x" V; Y        lines:=0;
  t2 P* ^$ J$ y: H5 Z8 F2 o        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 m' `0 s. P0 `/ }' K: `                machinesequence[2,i]:=rows;
6 a* n. x/ a6 l. ?; h                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
5 ^( S* u" e- N0 K# C% d* ]$ t' k                        lines:=lines+1;
* }  w! ]+ f/ {/ o4 W: _" }2 R                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
  S: v( N% u0 y7 r1 K- T* n8 z                        partstable[3,lines]:=sprint("parts");
, x: Q$ M+ y, n                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
4 o3 ?, }$ g# V0 Y6 T3 |) V                end;
1 w9 E, A; l" @/ W0 ?$ U2 R: [7 r( V1 q        next;
- S5 c. q4 B2 ]3 k* C        machinename:=sprint("M",rows);
+ e) A. k# _3 @3 U, z        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;标识符未知
- _3 R% x4 {( l- u0 v- f        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        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]);
5 P1 |6 L5 F4 ]! a, u  X; L0 `        buf.name:=bufname;
        buf.capacity:=5000;
$ I6 s0 \+ w* P5 H! u        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
9 R+ y% _, B& e; A( k, n        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
9 r2 n4 H" L4 L1 h% V: R3 Vdy:=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;
# s6 Y: c( {/ X& l5 ]0 {) O2 `end;
; a# Q' x# X& U/ T7 @. U+ c) Z