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

zooey

is
1 E) S* O5 Q; c, G  m& c! H, n        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
4 h  f1 ?+ J0 t; `0 U. r    machinename,bufname:string;
    machine,buf:object;
: D" e' l0 v* L6 n9 ^do
        current.eraselayer(1);
1 I$ ~4 \1 J0 h5 q* N/ Y3 s8 f       
2 k) `+ `0 N2 [) O        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
) P/ X3 Y4 I3 ^. U* U2 h7 O                when 16 then
5 x- M& ?, y7 [; b: n                        print"yes";
                when 32 then
8 x8 ]* r( ~  f. b: R; i4 d# {                        print"no";
6 W4 ~4 f, r$ O0 S) ^$ B                else
4 b6 J/ j1 B: f% b3 D                        print"cancel";
0 D4 d  i" r2 n" a) y: ~8 H                end;
                eventcontroller.stop;
$ C% K+ K" m9 T& R) a2 U5 b        end;
       
4 A6 {* ]& y, S( j5 [7 Q3 U        for i:=1 to number_of_machine loop
3 H9 W- |' N) |4 i        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
3 B# D1 z, Q9 ]- {) }* Q                machine.deleteobject;
        end;
) t+ `! p) ?7 k+ e/ W- E" M        bufname:=sprint("BF",i);
) y) q& b6 ]* Y" p: y" n        if existsobject(bufname) then
  s. y1 S' W6 R" g4 n: X% Q                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
1 i, ~& Y7 t2 @' h        next;
" g$ p+ f, W7 i9 E, n       
, o$ _, ]' Q% v. T  a0 z* _7 ?9 L        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
; D+ _/ U# y' _+ v  }2 w                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 p5 }8 t2 o5 i9 K3 w0 m                --mark:=false;
2 Z; a+ y/ r. }( ^, ]. n1 |3 R                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
  ^; O# C6 W/ L/ V0 F1 ^8 @  v0 U7 K# Z( A                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
& O' c) U0 G  N                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
, {4 W) q, O2 R8 t% b! L( d: T                        activityspace[1,rows]:=ct;
9 s, u5 K. E& |5 |' j' w3 g                        mark:=true;
; R, ?* Z, L' r, D) Q- L* p                        else*/
/ |, g: H6 o3 w9 j8 _: A                        y_max:=y_max+dy;
5 ]# N$ \5 w" N8 f$ I5 _; s9 @; p                        dx:=0;
2 @) }  P" w' ?$ I" W                dy:=0;
                        --end;
2 s0 c9 O, C0 S! `$ @                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
( Y( c9 \8 x$ J& S, @2 g            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
/ d& q* M: M$ Y" ~% X! B                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
# Z( F6 `6 M8 A9 m% @% V, p1 g                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
$ O5 T4 |4 `9 ~- T% c3 b        next;
* u0 g- Q( z( e# p6 t+ m7 O        y_max:=y_max+dy;
+ U. |+ Q+ ~8 V        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);
       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
; W4 F- @0 H$ X" K) n                                d_from_to_chart[j,i]:=0;
                        else
3 U) ~& ]% o: Z" m. z                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
) p5 V3 @4 ~, {+ K                                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;
$ b8 T# p* {; l5 T4 u& p                next;
        next;
       
+ v' F4 R% m& I- U! f5 b' q        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
! u+ [+ R6 U+ d# \! H- S) Z0 n8 M                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
. l/ l6 t. S! Z1 E+ N, e# y. k                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
8 C. l+ f6 B- l1 s                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
# S2 b" M9 c  d- e! L. l4 G                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
2 R1 \6 k7 ~9 a7 ]- C3 f        next;
! ^: l, m# Q  [& Z  U3 n& ]; o3 v        machinename:=sprint("M",rows);
9 m8 n9 S9 @9 @8 x. @        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;
# v5 W/ Q# R& N. {        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
6 j) f+ v5 h7 S7 N% N7 ^       
3 I* ^$ e0 e- c8 |        bufname:=sprint("BF",rows);
9 t# t1 K: G2 n0 W' y        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;
2 P" v* s# ?* @4 V        buf.proctime:=0;
        .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;
( L* y3 x0 {7 R8 x  p7 Ocurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
8 V" F3 x8 Y; b& V7 h% Jend;
+ M& w! V# |+ m* V