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

zooey

is
- G4 Z+ U3 _! m5 t2 ~' A        mark:boolean;
8 G3 {% Z5 y- Y1 \! J" a        dx,dy,ct:real;
    i,j,rows,lines:integer;
( Q! U% ]2 ^$ O    machinename,bufname:string;
+ U! H3 ?, F7 H& t; }% D; k: A    machine,buf:object;
3 @( D6 l9 J" y( c' ~0 Udo
3 j4 E* k! C& G% _* c& F        current.eraselayer(1);
       
# E. N& e8 @0 D        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
5 A+ m/ ?: [  ]; Z" j/ ~                inspect messagebox("设施数目不对！请核查...,",50,13)
- \, P8 |: X5 t2 V5 r1 h) _                when 16 then
                        print"yes";
  o# |; E" f  N5 s, H0 n                when 32 then
                        print"no";
                else
                        print"cancel";
5 O0 f  G! D& v                end;
, \, V+ _3 G  I5 C- d2 A7 L                eventcontroller.stop;
        end;
* S' v! v" b; \: m! A3 i+ f# L       
, x+ X/ ?% \4 h! I  v% W1 r        for i:=1 to number_of_machine loop
* H* F" o1 P0 Q) _7 ^        machinename:=sprint("M",i);
- h9 H5 \  H9 Z, Y        if existsobject(machinename) then
9 A% v' O+ i2 e5 G+ N# J                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
# K0 P: @+ e; t  p5 c0 }- Y  \        bufname:=sprint("BF",i);
        if existsobject(bufname) then
3 u' C3 K) d- s: t4 _                buf:=str_to_obj(bufname);
                buf.deleteobject;
1 L, l8 H  P6 z1 e        end;
$ r7 |; C1 e$ Z5 C        next;
       
        dx:=0;
        dy:=0;
: |6 \' H! e: e; [5 n        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
3 S2 I8 Y. U  n$ k                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
# G) W- J7 R& t# c2 ?+ @* J2 m3 l                        /*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];
& b( O' k% O% d9 @& s                        activityspace[2,rows]:=activityspace[1,rows];
: h4 E& H# x: {! i3 O8 Q3 f( g                        activityspace[1,rows]:=ct;
                        mark:=true;
: X: v1 B* D+ v3 S                        else*/
& U0 b+ m$ h5 L- {                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 i. J- U" z: ~                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
# N# _+ b0 w, T8 E! }9 @2 r            if activityspace[2,rows]>dy then
: k; j" K( n) T& r5 e0 A+ w1 ^                        dy:=activityspace[2,rows];
: W7 [/ x* l% u+ q) n2 Q                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
& z7 k* X0 z5 R9 J5 x        y_max:=y_max+dy;
0 L0 Q! r  j) |        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);
       
* t/ h5 @0 n/ O1 }% S* L$ Y4 Q        rows:=0;
! Z9 c4 h( V) M0 h% z' G        lines:=0;
        for i:=1 to number_of_machine loop
. d6 E* n) ]4 C1 b* a- v/ e& H                for j:=1 to number_of_machine loop
                        if j=i then
, C9 Y+ t' v+ v- H6 {( X0 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];
) S& E  v' X- z) l- ]                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
  U6 o$ _! a6 D" Q. V" _                                d_from_to_chart[j,i]:=abs(dx-dy);
% X" `+ T" g& |/ E! `4 |6 ?                        end;
                next;
# v( Z$ V0 s. L/ P        next;
3 f# C5 H' i5 p+ B; w3 W       
        lines:=0;
- X. O- H5 ]3 P+ h5 \' g" b        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
2 G5 H  ?' U: {                for j:=1 to number_of_machine loop
0 i% U- z  f2 D( q- ]- s+ @* O                        if w_from_to_chart[j,rows]>0 then
6 s/ w) r# N! Z0 P$ y                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
" d- g& M1 \5 W                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
  R* @  R& @; s" Q" L9 N                        partstable[6,lines]:=j;
' }2 G: Q6 ]  J8 c! Q                end;
4 A7 X" b3 A$ w& v7 _' p        next;
. C$ @# Z4 h& `5 Q* Z        machinename:=sprint("M",rows);
; O; Z4 q. N: m2 y. ~( F- a' Y        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]);
+ S+ c  }1 n3 R# C* Z% C        machine.name:=machinename;标识符未知
- a  m1 t8 [% {" o        machine.proctime:=5;
- R! i/ s3 J) F        machine.label:=activityspace[0,rows];
, D: f0 y9 m# q- B: u$ b: l% z        machine.exitctrl:=ref(leave);
8 ?8 B6 o4 F: }! R       
        bufname:=sprint("BF",rows);
/ Q. R# Q* i0 a+ ?; `        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]);
* {* P: O0 t7 [* Q. z) c& ^        buf.name:=bufname;
" O9 ^/ m, Q7 b        buf.capacity:=5000;
4 e: F( _9 V% Y7 h6 S        buf.proctime:=0;
  Z. b3 E% b/ H  s4 L        .materialflow.connector.connect(buf,machine);
       
  r) i% n- P$ K3 c        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
$ j8 p0 Y+ @+ }" s: 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);
7 z/ U6 o  H" L, \( w/ nnext;
1 `2 ^: J& }, X7 Xend;