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

zooey

is
        mark:boolean;
: ?" e; G4 S$ v" Y7 J        dx,dy,ct:real;
3 o" K* I& \8 `8 h) @3 a- n- K5 O    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
* D  K8 w* ^( H; ddo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
' r; m" `; q0 i) F, g% l9 N                inspect messagebox("设施数目不对！请核查...,",50,13)
$ s; ]* Y$ W( S9 H2 P- d, O                when 16 then
% Q" Q4 k1 _) C7 S6 u7 i                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
  {' X7 @( Y3 P- P; _- ?       
        for i:=1 to number_of_machine loop
/ P7 y/ y: l+ q. g8 ?1 u/ p        machinename:=sprint("M",i);
, l0 E. f  p# M5 l) G) V# ?        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
' ?( b+ T8 j) }1 [        end;
        bufname:=sprint("BF",i);
; J& w! Q- y/ e1 }' C, o  @        if existsobject(bufname) then
% Q& l3 [2 V7 y. z8 _! T+ i3 ?                buf:=str_to_obj(bufname);
: J: Z2 c1 I; [& J6 }6 g( M                buf.deleteobject;
        end;
        next;
       
        dx:=0;
1 b- N  @, P" w) w  ~+ m+ C6 M) c        dy:=0;
4 M" [9 u$ ]- ?- u4 @1 b$ D' q        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
8 B8 ]- h& [3 T6 u' ?, N                --mark:=false;
- ~: ~! v# a0 n/ |, {                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
/ d) P7 c1 L! {+ a& i2 g3 Q9 f                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
3 N1 l2 w* M4 r% A1 S# \                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
0 k! h, _1 ^! I- X+ L, ]  w                        dx:=0;
; [* \! r6 `  N- ~7 R6 j0 q2 Z                dy:=0;
                        --end;
- A) d; n% s3 J0 ^7 e: M                end;
. C" p( H, P% @, O                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;
2 `9 D' G9 x1 w3 Q: ^            if activityspace[2,rows]>dy then
8 x" E/ ~) i, ?( q7 m) `$ x+ V                        dy:=activityspace[2,rows];
                end;
8 Y, A6 w  G6 Z7 d4 N- l                dx:=dx+activityspace[1,rows];
0 ?# _1 Z* R7 M; m4 ]+ [, T8 }$ G                /*if mark=true then
9 O: T  o, Q  ?% }; @9 Z- L7 w" [" t                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
9 G; U! Q5 R/ }5 D1 w0 f; U        next;
% D  }- y7 M" \" Z0 {+ W7 f  N        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);
       
        rows:=0;
        lines:=0;
, m6 k1 ^* W2 U. t% }        for i:=1 to number_of_machine loop
, y" L& |3 F4 ^+ _7 A1 v                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
5 A. \) M5 z- z6 O                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
' _. o) y. U3 L5 l6 t4 U                                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;
; _5 V# N  }# n2 e                next;
4 A/ Q0 q2 Q: X5 v7 k- A        next;
8 a9 X- N3 I9 j5 f) k       
        lines:=0;
& K1 Z, s  W. T2 Q4 e. D        partstable.delete;
) W+ F$ A& U; d1 J, s+ d       
        for i:=1 to number_of_machine loop
3 A# s2 t0 U3 ?. d/ x0 y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: y. b" w4 t3 s1 y# t4 a& Y+ H4 l& R                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
* U+ l5 s) u$ K) y                        if w_from_to_chart[j,rows]>0 then
8 m+ S' {! N/ \' c: @" E                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
7 \% w7 \5 M, O' J                        partstable[2,lines]:=w_from_to_chart[j,rows];
6 H" B! ~( J" W0 @: p                        partstable[3,lines]:=sprint("parts");
! D& `6 I" o8 A7 X                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
8 X8 I0 m  f. H- f. m        next;
- D9 ~& @. t* S! j        machinename:=sprint("M",rows);
6 N" g9 ]1 J- d        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;
        machine.label:=activityspace[0,rows];
2 ?0 ]0 `; M% |/ R        machine.exitctrl:=ref(leave);
& p8 p- [' S$ B" ^6 H       
        bufname:=sprint("BF",rows);
+ L& z" M. x, D. r        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]);
* _2 u0 r7 @2 G( w7 q        buf.name:=bufname;
% K' T" S0 a: Y6 D# w; w6 i        buf.capacity:=5000;
4 e% m: K) H1 y        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        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);
9 O9 o% A& k( ~/ ^- }/ Inext;
end;