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

zooey

is
6 I5 {+ z6 _" S' i/ C- i        mark:boolean;
        dx,dy,ct:real;
% i3 b+ Y9 _! z    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
4 W" Y7 V* l4 G8 Z  d2 E, U, Hdo
        current.eraselayer(1);
       
  |6 {  |$ S3 Y( X" x+ h; l3 \7 Q        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
; G! z  w0 G/ l                when 16 then
                        print"yes";
6 p- S0 G& a+ y- `2 }# Q7 f+ d                when 32 then
                        print"no";
                else
( m* U6 ]) t% V                        print"cancel";
                end;
8 T" _  {4 Z$ K5 m                eventcontroller.stop;
& S$ K! u7 B2 _4 m4 _        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
. N7 k5 g  y* ^2 B# A# m9 @1 U5 ~8 f        if existsobject(machinename) then
" a* t. s- o% R3 }& T! v7 v                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
$ X' U" M2 V3 a        bufname:=sprint("BF",i);
        if existsobject(bufname) then
0 ]; G) u6 O! g& U, h. m& S                buf:=str_to_obj(bufname);
  g* A# l" ?2 u& I) H( {& O                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
; |, R: T# t' o6 K+ g. }$ [' p; n                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
6 Z( X* v2 q, q" g9 }                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
3 p8 y" d4 i9 T1 s7 q- o8 a% @                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
0 f: Y/ K' D) U) G# Y                        ct:=activityspace[2,rows];
- Y: Z) q9 n" y+ S" L                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
) K/ z. F' ]6 s# f$ p8 X# c" y                        else*/
                        y_max:=y_max+dy;
0 m& L7 H; G6 A/ E                        dx:=0;
/ M( k( h& W0 A; f( c) o: Z+ O7 n                dy:=0;
9 ~# v# L0 e) V$ Z" x                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
( Z0 R$ B+ A$ T% I- d! ]; U5 \                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;
  F* y; Y9 S, H" p5 }  Q$ i                dx:=dx+activityspace[1,rows];
. @, a3 [. s8 }                /*if mark=true then
                ct:=activityspace[2,rows];
+ y5 }' R  r( i3 u                        activityspace[2,rows]:=activityspace[1,rows];
: \1 y% M' k* @; i' r# @7 {* l7 _                        activityspace[1,rows]:=ct;
                        end;*/
% Q5 n9 g2 l- u% c        next;
        y_max:=y_max+dy;
$ n& m( S: H% \  o5 P        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);
5 K8 {2 M6 R5 p, ]       
        rows:=0;
2 \; D: ~0 l. l7 q        lines:=0;
" {; \, i( u4 }0 e! d, B" j9 j. P        for i:=1 to number_of_machine loop
* z2 @# b; E( P2 M- ~                for j:=1 to number_of_machine loop
                        if j=i then
' u  Z( B% k+ S& A8 u+ q; G                                d_from_to_chart[j,i]:=0;
                        else
1 V* {* k; d6 ^7 g. y$ x8 E                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
1 W+ ~5 V9 [! `                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
6 H! S  o% ]7 u( D                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
9 f: O6 B$ G, l- Z0 L6 d6 k        next;
       
8 E* B0 l4 o2 j/ x/ q1 v' s        lines:=0;
. X) T* }( k9 o8 _( R$ M5 n6 r        partstable.delete;
       
2 a, V! c  b( l7 L$ K        for i:=1 to number_of_machine loop
6 O; K* m. X: A# s                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; f# N# w3 C# y8 P                machinesequence[2,i]:=rows;
' a  W' U+ q) c" r7 |0 J" J                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"));
& d  c  i9 v2 c  N* H                        partstable[2,lines]:=w_from_to_chart[j,rows];
" a/ d5 n/ H1 [) }                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
  J" v% y/ U3 J$ F; |0 c9 ?                        partstable[6,lines]:=j;
3 ~& K4 k( {$ N+ F" v                end;
        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]);
4 _1 `! z9 W4 T0 C        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
) D, a/ @) J: I, f       
  k! i* N3 z* C/ }        bufname:=sprint("BF",rows);
6 M" {5 M- a9 x5 l6 i        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;
8 ]/ j( w$ h3 k( C9 u        buf.capacity:=5000;
        buf.proctime:=0;
+ k( o4 S9 P- O" ~" F5 [        .materialflow.connector.connect(buf,machine);
3 ?' J4 k2 c% [' ]$ |       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
& `( a0 o" W/ j' Pdy:=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);
: @. ?4 m" j0 v  j9 G9 V7 Cnext;
end;