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

zooey

is
- J* v6 x0 [) P& g+ [        mark:boolean;
% B! J$ r, v; d' g        dx,dy,ct:real;
    i,j,rows,lines:integer;
- e* c& Q9 T2 r) w' p( ^6 Z7 P6 O1 ^% \    machinename,bufname:string;
/ y! u$ A, z* C  @6 p; M7 K& D    machine,buf:object;
do
        current.eraselayer(1);
       
5 W+ m  h3 p- U        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
4 C7 q$ ^/ S) j9 e0 q( A                        print"yes";
/ ]* N) K" E& l2 f7 y3 D% H* A                when 32 then
+ Y9 @# @# [  F% h* K1 K! i                        print"no";
1 ^6 G- U( t3 Q                else
  p; V/ |% }5 N; }3 m                        print"cancel";
) ]6 K, @( |# Q% i                end;
                eventcontroller.stop;
5 t7 c/ W: p5 l" S, f0 X        end;
       
) c1 c* r# Q$ T* m" N        for i:=1 to number_of_machine loop
2 B( M# ]6 |! @3 B2 S2 W        machinename:=sprint("M",i);
+ B$ W( G. m* l$ ?' F8 m5 D1 c        if existsobject(machinename) then
& L$ @" r& z: T& V  D  I                machine:=str_to_obj(machinename);
& y  o; a7 G7 Z7 y; Q; ^                machine.deleteobject;
        end;
$ b8 ~7 t* L* [- z        bufname:=sprint("BF",i);
        if existsobject(bufname) then
6 z: }- S2 B, f/ G) S2 k+ F                buf:=str_to_obj(bufname);
                buf.deleteobject;
9 R! c6 m( L+ {        end;
2 t! z" A) V7 k" h2 _        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
/ H6 c* Q, k( d5 Y, c( A8 V) [9 J  w                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
9 A1 W* w/ h. i% I                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
7 `4 d: g" w6 H2 w1 W                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
, y$ g- F- r4 m! J; ?                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
  C/ W) Q/ ]6 B9 v                        y_max:=y_max+dy;
# a2 K/ p3 h! M5 Y# G' ]                        dx:=0;
                dy:=0;
0 v- v. |" x9 @  S# w                        --end;
5 \, p: q6 z5 t% o2 k' B4 k0 k                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
7 w2 T1 j1 P3 h% H                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
9 u5 g! x4 i: R! a; u6 w5 o- V                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
) p& [/ R; G3 @+ ~$ P* J9 T                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
& n( P1 r1 p5 S4 [9 X                        activityspace[1,rows]:=ct;
$ K' @6 p8 L0 R1 n8 m                        end;*/
9 w: f2 l& H! d5 P' a: P1 ]        next;
! m; O' }' f$ K. d+ H3 Y        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);
/ L& c8 U& n" ?3 m! O        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);
       
& n& g& M1 K2 K1 q        rows:=0;
        lines:=0;
( C6 u* f. w1 o  |) _# h        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
& r( d5 R7 @4 a& ~                        if j=i then
; ]- B& I) n& ?7 c, a                                d_from_to_chart[j,i]:=0;
' E2 ?4 Y4 \  `# W                        else
                                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;
) F5 g+ Y3 d6 n  y                next;
- M$ ?( q  P( n; i* H/ ]        next;
       
# v) h+ N! ~$ y  L; F  X        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
8 N: X" o: U9 |% t' n                for j:=1 to number_of_machine loop
; b, m. l( ^! A                        if w_from_to_chart[j,rows]>0 then
4 i! X, S: R, u2 B: p4 |' c4 E                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
$ }. C2 l- j5 `# G! i  S8 E                        partstable[2,lines]:=w_from_to_chart[j,rows];
+ @$ G, m: j8 V7 l                        partstable[3,lines]:=sprint("parts");
8 I3 C* E3 M: f* m+ V) Y  O3 m                        partstable[5,lines]:=rows;
4 j# R, g( W0 `7 Z                        partstable[6,lines]:=j;
                end;
7 H4 }; N3 r1 K& A3 S" ~* t: e' h/ _        next;
        machinename:=sprint("M",rows);
3 `4 Z$ D6 g3 s% 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]);
        machine.name:=machinename;标识符未知
# Z( I( b$ t* ~        machine.proctime:=5;
, G# B( J, @( V4 T; v- S" r        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
' B* z0 R- v5 c6 `& j" b0 X        bufname:=sprint("BF",rows);
) }) q  f$ h* I( P: z        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;
        buf.capacity:=5000;
        buf.proctime:=0;
8 {, f2 z1 L/ L8 N* u        .materialflow.connector.connect(buf,machine);
3 e) Z: Y6 ~) S7 @1 Y       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
( u6 s) z9 J8 b- e$ N. h$ Tdy:=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;
end;
! J5 w) T4 I. I2 ^: d