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

zooey

is
$ `( N$ v& Z2 f        mark:boolean;
        dx,dy,ct:real;
% l% I7 M4 ^/ F" G    i,j,rows,lines:integer;
    machinename,bufname:string;
$ ]) ~/ z* n: C  [- R    machine,buf:object;
do
; B: S  @4 t  t5 Z6 X7 ?% w        current.eraselayer(1);
       
  m' h# y% a4 c& a8 E7 i        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
9 z3 w5 C. n& P8 A                inspect messagebox("设施数目不对！请核查...,",50,13)
2 N# e- o. h0 ~& T$ k+ Q                when 16 then
                        print"yes";
5 a4 [$ E+ l1 \$ x4 p                when 32 then
                        print"no";
: _" c0 x4 M+ u: l& a                else
                        print"cancel";
1 D. y) W3 j1 s3 [& n1 r2 G                end;
                eventcontroller.stop;
8 z1 F7 ], A  \        end;
       
  \9 i( g  q3 _; ?" J6 F2 y        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
6 v& B1 X- k# `! M: G/ p        if existsobject(machinename) then
$ c; L4 N3 Z: a7 j                machine:=str_to_obj(machinename);
+ F1 |2 q4 \* a. i! K* Y* k                machine.deleteobject;
        end;
0 d4 o: r& V# c0 H  f        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
8 k4 [8 v" e4 j9 }                buf.deleteobject;
        end;
' g+ s& \6 {- ]: b& k5 \        next;
; ]- \  y- e' Q/ o+ s  W. B/ \       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
" c* ^$ l6 z# n                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) O- \0 ^7 I  _; n7 p                --mark:=false;
& P  H0 t" c8 \& `' R                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
2 O  E0 g6 x7 A4 }; @7 G                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
# C$ j! v& c9 n0 q, e( P                        print activityspace[1,rows],",",activityspace[2,rows];
3 c9 n0 W; r6 c: m. Z; |5 t                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
( S# O1 f6 n' P                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
* |" {5 k2 Q; M1 R* z                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;
/ k; ~; z# E! P: u$ H. D7 G            if activityspace[2,rows]>dy then
6 m: z& b+ _& }3 W" q9 x4 F5 }                        dy:=activityspace[2,rows];
# a' v  N! g  y4 I5 f                end;
4 t* V! U: `6 L! k3 x, T                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
' c8 @9 k2 Z5 G                        activityspace[1,rows]:=ct;
) l/ F% I. _) x2 y% }! ]                        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);
6 e8 J( i! L4 _, X3 e        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;
. Z6 d! d  J$ O        lines:=0;
        for i:=1 to number_of_machine loop
; e8 Z, O) s; L2 Y' S" V9 k                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
- O) B- f/ Q' R/ n                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
+ z) e0 m* s3 S( w. A8 X  G( z) p7 F                                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;
6 e4 E. y4 F& g9 W" q9 l                next;
        next;
* f. A8 H" D- z       
7 p, [! ?( \2 h% p        lines:=0;
        partstable.delete;
       
% s; B4 l9 y; s  N1 ]# l        for i:=1 to number_of_machine loop
9 Z/ j( ~' R5 `, w, k                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& E1 {; S+ w; g3 R) }3 G  l2 m+ F                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
% r' ^9 x& h7 S  B5 v6 y                        lines:=lines+1;
1 f5 }% }: W, z- I' y9 q4 p; W                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
3 z8 \7 S2 W" c: V# w) J                        partstable[2,lines]:=w_from_to_chart[j,rows];
) U) _: X( Y8 S0 B                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
- I* F* T6 o/ Y; o. `) ?$ x                        partstable[6,lines]:=j;
                end;
# Y* E6 U3 |; o0 _2 V& d        next;
7 r" \0 L$ @) s& c( {: N        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;
& ~+ B' q. D" h4 [4 F        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]);
) q9 F. }) Q2 j: x- q6 J        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
9 Y3 n% l- N$ ?8 V        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
0 C9 }4 \5 j5 K# [- J3 uend;
# p8 X. Z' ~, \8 P3 a/ `( Z" a2 j