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

zooey

is
        mark:boolean;
. c8 h  U" |& m* P0 t. d9 h        dx,dy,ct:real;
- u. n0 y- C" J9 E; h( C    i,j,rows,lines:integer;
$ G' M7 S3 l# p3 v, ]- p+ {) `    machinename,bufname:string;
  C# Y+ u$ W5 [- a6 ]' p. Z    machine,buf:object;
do
        current.eraselayer(1);
: ^% Y4 Z+ m: v1 C5 X5 A       
: X& [# Q6 p6 c        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
2 X4 O; c) y" l% U8 J                when 32 then
                        print"no";
) p3 ?' ^7 l) ]' y* W                else
7 T/ I+ `; m- W* g3 c                        print"cancel";
                end;
2 z5 ~& x  R- ?5 m* P1 k" U: r  }! ]" n                eventcontroller.stop;
- `1 _2 I6 e3 `2 Z( G        end;
       
        for i:=1 to number_of_machine loop
% o/ e: L  Z  Y& h% _* z- H        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
  `$ E5 U, F: E: |! o5 O                machine.deleteobject;
+ t6 D9 k# T0 [  t( [1 l        end;
        bufname:=sprint("BF",i);
2 w1 u% J& }" u9 }) K$ x( I        if existsobject(bufname) then
; V; l& X. O& F                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
4 C0 _9 `# i' d# `) J- i0 o        next;
3 E3 ^# b6 [, J" p% \8 k       
: X" [2 I' g, ]4 R3 Y% {        dx:=0;
- Y/ V' y# {# X; m. ~- c        dy:=0;
        for i:=1 to number_of_machine loop
9 v% M" B; S, g$ R! t                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* P# h5 G; ~9 f2 }                --mark:=false;
0 P* K" T# P1 d1 {4 F                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
8 S0 y6 M! Y' Q                then
) [. x. `8 {& o2 U5 @2 y8 s% |                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
6 L+ x" a* M- n                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
& t. F& W! o# t1 P4 a, t$ {6 d2 B* _                        activityspace[2,rows]:=activityspace[1,rows];
7 k: A& K3 P; |4 j$ o3 m$ _  E                        activityspace[1,rows]:=ct;
* i, x8 V" F- t% H) D                        mark:=true;
+ u9 Z3 w- ?1 X; I% |! d                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
# B, D3 p$ S0 M& }( X7 M                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
- K0 t+ n" b! S                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
# ]) h, R! {. L9 H            if activityspace[2,rows]>dy then
# C# X, w# {, H0 r& G) T) g1 e) M                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        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);
' c3 }7 L" z: }: D6 J        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);
       
0 J* ?- H  c1 r% ?2 a/ N8 Z* ^        rows:=0;
" T* ?4 I. h+ T        lines:=0;
! C- b5 o7 J0 J0 {        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
# N" L+ g0 x7 W3 ^  y0 z                                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);
- v, k& y; `3 N. D' s4 _8 [                        end;
: P2 D9 L$ |8 P8 D$ `! ]$ ^$ \                next;
( J. i2 f# m4 T8 r        next;
       
7 {( K, g( O1 Q  H9 O/ i        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
+ J. x2 R' y3 E7 V                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# }% z0 h; E+ \  S% l5 ~: T) y                machinesequence[2,i]:=rows;
  n" ~+ |" P# d: e# R* ]4 K                for j:=1 to number_of_machine loop
; e7 Y0 ^+ L( ~1 y                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
2 {$ v$ b. g& D# A                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
- o  O1 O2 B* I3 r- @, v, B& @& g        machine.label:=activityspace[0,rows];
- \$ i0 u; J6 w* y+ w5 u        machine.exitctrl:=ref(leave);
       
# Z8 T$ Y; Z- I! x5 F! V( I        bufname:=sprint("BF",rows);
5 f1 b! |- O$ V$ L        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;
        buf.proctime:=0;
" Y) T! p: l8 G) T$ [. P        .materialflow.connector.connect(buf,machine);
- _. b3 N% a  P$ z* L9 X# \( ^' M       
; v0 R  U$ i3 i" y! c        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
. {: d  d% W2 q) c0 idy:=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 j, J2 A& a) r9 u- inext;
end;
; D* g6 C/ R3 x) p1 N+ x