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

zooey

is
! s! \  t9 \1 \        mark:boolean;
6 k) J* J% E  p! @+ N8 j6 ~        dx,dy,ct:real;
    i,j,rows,lines:integer;
" {3 n/ T3 q& I3 W    machinename,bufname:string;
    machine,buf:object;
do
( d. @  K# O: V6 d        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
3 u5 C- `3 H, w% K% O                inspect messagebox("设施数目不对！请核查...,",50,13)
, S! [( g+ }$ t* |) A2 _1 ^4 D1 H: Y                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
) d' G: D* S! t: K, g                        print"cancel";
                end;
( O2 x4 f/ `3 \                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
! p$ B$ t8 K: K! q        if existsobject(machinename) then
1 f& A1 J. S2 ^" ?# s. J/ J                machine:=str_to_obj(machinename);
                machine.deleteobject;
3 X1 K+ P  Q+ V2 V- @5 K3 {7 N- G        end;
        bufname:=sprint("BF",i);
5 n; l! `. c+ c6 ~: b$ C- E        if existsobject(bufname) then
; T- z- D; ?( R                buf:=str_to_obj(bufname);
                buf.deleteobject;
! E6 ~9 p7 V& Q7 |* b$ ]& \2 y        end;
        next;
       
- [4 `# h- a( V9 s; c        dx:=0;
4 E- p3 N) V) r  R7 }% u% F/ X        dy:=0;
; C; g/ @, @$ H0 i        for i:=1 to number_of_machine loop
8 r3 }: D7 U/ G: w. Q7 E8 i8 q                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) I: _5 L% o, D5 @3 P7 Z  |                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
- B1 l6 u7 I. P) |/ ]" T1 ~5 O                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
8 T$ C8 g* j8 E4 D  x5 w                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
' s, m! V* |5 c! B- ~3 F$ D, R                        mark:=true;
                        else*/
" H: B6 s" `% ^' _- S2 o                        y_max:=y_max+dy;
9 e+ U: i4 Z9 P) {1 Y                        dx:=0;
                dy:=0;
                        --end;
/ L( d% N. D5 d/ x5 W' _: O0 p                end;
8 a; ?; h3 w, c1 `. }+ w: m- h                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;
0 B4 P; a& z# T+ S            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
! G5 y- w: X* `; C. F$ X                dx:=dx+activityspace[1,rows];
: y, u$ v( t/ Z8 d: |* M                /*if mark=true then
) T7 r9 j: c: ^                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
) b* K+ ^) G) u! _" M3 u7 m. w9 \                        end;*/
% O% J7 e- z2 f3 u        next;
3 `/ A8 N) z7 }+ d        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);
        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);
       
9 w( `- p; w% g        rows:=0;
1 r2 b1 r, V) h" e        lines:=0;
* d. m$ {* W. E8 w+ }: \8 j        for i:=1 to number_of_machine loop
9 c& `4 T: S( o0 C! _                for j:=1 to number_of_machine loop
                        if j=i then
+ F, l( x9 b6 `                                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];
                                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);
- z) u; H  b9 i: D" `) Z. z4 p2 {                        end;
/ R1 Y" G) T( z# c7 d3 Y                next;
0 o: T/ S7 _1 p        next;
7 R" `. J6 c+ r  A" \& A/ @       
        lines:=0;
        partstable.delete;
       
  R7 v" m$ t+ P3 j1 ~- G5 ~( O0 v        for i:=1 to number_of_machine loop
" H! i: P8 F! x                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
0 l  _7 @1 W8 R2 q2 S9 Z! B                        partstable[3,lines]:=sprint("parts");
2 K3 z" Z. M  k5 d# v* R7 q3 M5 g                        partstable[5,lines]:=rows;
1 I  \$ z" d; K" _; x8 P                        partstable[6,lines]:=j;
                end;
" E: ~8 b7 T# M- B- A8 ~/ Y        next;
        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;标识符未知
% M2 i- ~3 u. k3 [6 v/ _; a        machine.proctime:=5;
  |9 |3 f/ j: j8 ^8 R2 ^        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
9 O) z9 `- C) ?7 N" r' v* T" Z       
        bufname:=sprint("BF",rows);
3 s6 e$ M- H5 L; g7 V  h. \5 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;
; C3 a, L+ f  O+ F. b        buf.capacity:=5000;
0 M# N; J; X5 Z        buf.proctime:=0;
2 x$ o- y( R" n* P, O( a        .materialflow.connector.connect(buf,machine);
       
% q& u, K( J+ J( r7 r4 I7 D& d        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;
& E0 u4 w- `$ }4 F8 }% p/ l& ecurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
. [3 x: I4 A; O% j  t+ z8 snext;
end;