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

zooey

is
        mark:boolean;
5 C! s# r4 e/ b5 E        dx,dy,ct:real;
    i,j,rows,lines:integer;
0 z4 y9 c* A( K% T4 |( ^    machinename,bufname:string;
    machine,buf:object;
4 p3 U6 g6 H- n+ w, A: c% ldo
% b% G/ b8 ?# ^9 J, w! N        current.eraselayer(1);
; a; c7 I5 b* k' Z& G9 v       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
. [$ M( \) z7 w/ U2 U& j1 f                when 16 then
                        print"yes";
# S: h$ n! w% a5 e6 m' T9 w                when 32 then
+ A/ m9 ~7 K+ p; q" r' a                        print"no";
- b+ [- @3 o7 {                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
7 n; s, J7 l+ k        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
$ P$ j! g9 H$ J- Q. m# U* @2 q4 H8 X                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
7 y9 f2 @5 v, S1 g        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
6 [* K2 Y5 z, G& U5 C) Y9 \                buf.deleteobject;
        end;
: p% Z$ M6 u/ n. g* G; M6 X        next;
( |4 z9 r0 f0 t       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
! t3 K8 [$ J- M* m0 O) k  x, Y. d                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# X1 U5 h  w2 z& r  k, N                --mark:=false;
: u6 G" O+ a3 r) n" V9 Z                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
! a7 ?* O9 h; v                        and activityspace[1,rows]<(1.05*y_max) then
9 q' ~5 V! ~% P; }3 r  ^9 ~( I                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
/ `% p- I+ r* f+ n9 s                        activityspace[2,rows]:=activityspace[1,rows];
3 ~2 S* O1 A" X6 \  I) Y5 J* Q                        activityspace[1,rows]:=ct;
                        mark:=true;
3 g2 D$ |5 B( s1 B                        else*/
4 s6 K; p! R. \0 u. Q6 M                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
/ \0 }4 m8 q- K                        --end;
( c: n2 }1 O; x" T' G                end;
$ s# I0 e/ ?9 L# z- }" Z                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
! Y4 d  f  D/ |. k0 r                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];
                end;
                dx:=dx+activityspace[1,rows];
( t4 p% H8 h! W% f                /*if mark=true then
+ \- c0 {+ z2 K7 R( |% [2 i0 J                ct:=activityspace[2,rows];
# q* c. W5 s0 s4 D! A8 \                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
; P, t. t* m& m+ i+ v% L        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);
- b/ O# I3 F8 j: _       
( [8 ~4 ]% y- y" M2 n8 c$ X' \3 Q: A        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
% v' T, t+ e6 h( ]; X8 E9 a                for j:=1 to number_of_machine loop
                        if j=i then
- e5 [/ h; X* g+ a* d                                d_from_to_chart[j,i]:=0;
! C% f4 @! Y+ H0 F' u                        else
2 ~, y8 {9 h1 U% I! b                                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);
+ k1 H* `4 X, C2 L5 ?% ]* J                        end;
( ]1 c4 ~, a9 l9 A1 F# U8 |7 z- |                next;
; k- `. M. ?% a! l" z6 C9 I        next;
( |" I7 ~4 k% B       
# ?. F- r+ o" G  `) K3 _- x% ~        lines:=0;
( V- \% _/ x3 |. f7 i8 U        partstable.delete;
       
9 a5 t& `8 `9 B# Y& J" }        for i:=1 to number_of_machine loop
; R) t2 v, c. s5 ~& E1 o* V9 ?                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
8 V" I3 l% B: a) m4 k                for j:=1 to number_of_machine loop
  Y; S* ~3 n& o; b! k, h& {                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
. I% m1 X2 F! e" t                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
6 ?/ I3 W0 u) M                end;
' y& M  v- w0 T        next;
" I) E! `" E0 m        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]);
/ ?: G, j+ q  n* V        machine.name:=machinename;标识符未知
! ]" J/ P5 r  e$ j7 S        machine.proctime:=5;
( Z+ N# c) O1 {        machine.label:=activityspace[0,rows];
; p0 l1 w0 E0 {; B, V) X        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
* s8 V/ o, B; j        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;
$ f+ U: b, h7 }2 W8 Y4 B% L% ~' T        buf.proctime:=0;
0 J9 a. t3 T1 ~7 x/ ~1 o+ R3 Q        .materialflow.connector.connect(buf,machine);
. A7 {& T- ~, e. j$ ^' T$ x: @       
        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;
end;