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

zooey

is
: {2 d, Y: `+ v2 L; v        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
/ o* X0 j8 R/ L5 K) H& e) k    machinename,bufname:string;
    machine,buf:object;
do
$ s4 r% m! \* d6 x" a/ h        current.eraselayer(1);
0 ?, ]# Q4 o) R5 }0 H: p8 l       
; r' P6 E! B6 d        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
1 M" l8 J2 v5 t# j* W4 v) u! a                when 16 then
                        print"yes";
9 N3 W& i, _2 V6 [                when 32 then
                        print"no";
& t* I4 v  Y4 v: _                else
5 x; v0 `8 f' `$ x; u* }6 d& }, [                        print"cancel";
                end;
6 e1 P9 Z& d- Y6 s2 I4 C. g                eventcontroller.stop;
$ C; O; w: Z7 r+ U        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
8 W# i* c# c7 a3 m! f# s  i8 x8 m        if existsobject(machinename) then
! F6 H; t' Y& X0 I0 M3 T$ x  X                machine:=str_to_obj(machinename);
                machine.deleteobject;
% |* m" w2 S8 k% K* S4 B$ E        end;
+ d2 ]% a. t6 Y- `1 P        bufname:=sprint("BF",i);
- K* E: M% @, Q6 C, [/ m" z1 z        if existsobject(bufname) then
$ B) g! s8 W: ^/ v& @5 Z% l% T                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
4 h' ~# T) n) E2 F/ E        next;
6 u# x1 A, T/ c       
        dx:=0;
0 y% p! ~1 s* h" W% P" {        dy:=0;
        for i:=1 to number_of_machine loop
0 C/ a# \$ q, r' D) p  y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
( H. m6 o8 j6 [9 p. v. {                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
9 r/ E, l7 H+ ~" ]4 T                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
9 i; @7 g9 z4 W0 _                        and activityspace[1,rows]<(1.05*y_max) then
  z9 s1 y6 e& Z# O* z1 [                        print activityspace[1,rows],",",activityspace[2,rows];
. N' y) f  {/ z                        ct:=activityspace[2,rows];
& c  {. e) I5 q2 G4 A7 W, v                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
) W% w! b* e! j+ k                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
5 N* N+ |& e- B! L1 d: {4 V                        dx:=0;
                dy:=0;
                        --end;
3 ^! l8 d" i' ]/ d8 f' T                end;
0 _; t4 ~% i: g  v: e                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;
- t3 \8 p( p! q! x9 P# m            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
$ |! a- i  u( a# A                end;
6 d, E! p1 O: `8 D, E                dx:=dx+activityspace[1,rows];
                /*if mark=true then
# E0 C4 ]9 T6 X5 ?9 T0 Q                ct:=activityspace[2,rows];
+ ~, g5 l  z! |3 G                        activityspace[2,rows]:=activityspace[1,rows];
$ ]3 D8 y8 d# S% y: D4 l( R                        activityspace[1,rows]:=ct;
                        end;*/
        next;
, P; u" ]+ S. ^+ w1 E        y_max:=y_max+dy;
* w. m* `1 d; C+ |4 ?        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);
& `: E+ p* c8 q        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);
) C" b# g. }7 Z  N9 v+ T# t       
0 k, i; h; R6 Z8 @6 y7 j. r3 G        rows:=0;
* K/ _# m" R" O2 a        lines:=0;
" t# L6 T1 ?2 z        for i:=1 to number_of_machine loop
" x, w9 U& L" a; c2 f4 F                for j:=1 to number_of_machine loop
+ t! H1 C; {3 }1 W  ~$ n  [                        if j=i then
                                d_from_to_chart[j,i]:=0;
) I& F) p# `( @& W; p( E# V                        else
0 g. U% g; X% \, k                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
+ M4 t$ R7 ^/ @0 z                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
# i5 _) |) h8 ~                                d_from_to_chart[j,i]:=abs(dx-dy);
( X! V/ ~3 e+ ?. Q* u% Y                        end;
                next;
" a1 E, L1 g" P        next;
       
$ k' ^8 C4 V8 q- m. o# m8 n) w        lines:=0;
        partstable.delete;
       
6 a; h- }+ H/ B9 ~. `# _/ L8 y        for i:=1 to number_of_machine loop
7 f3 k- e; l$ H8 X+ n                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 c" Q( Q8 _7 f0 t  t$ j                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
/ G9 |' Q, t% K                        lines:=lines+1;
+ z& |4 M5 w. b                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
$ K& _8 G; c! p% L- T, t2 ^                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
: k, j  Y- c/ |) Z& _, \6 e                        partstable[6,lines]:=j;
                end;
  P: M* L6 A4 |. \7 w        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]);
+ I- _3 ^, W3 ^& J7 ~% W        machine.name:=machinename;标识符未知
3 _( D* X4 X# ~1 T  b  e% @, b  S        machine.proctime:=5;
- j, _# {- R1 c        machine.label:=activityspace[0,rows];
0 ]. H" H- W1 a$ `        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
( K, r. J# A1 T: L2 b        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;
; Q' z1 L. u$ |# v8 w        buf.capacity:=5000;
        buf.proctime:=0;
# z( h$ F6 S1 y; P$ s        .materialflow.connector.connect(buf,machine);
5 F" i* `1 x5 M) ^- c! k       
0 n# S! y! q% E8 s9 n  w, t        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;
- f* i  J* m4 f" w' L! m3 [current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
% Z: c7 Q' N. P. Mnext;
end;