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

zooey

is
        mark:boolean;
8 `' S3 \9 t& \; d7 ~- s+ `        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
' v1 |8 ]/ i! I: f5 W    machine,buf:object;
9 |0 t+ J) @7 ?9 ^1 g6 G: s& v; Fdo
        current.eraselayer(1);
. q6 B& y; ^# Q. q- a! D1 [       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
  V; `  M: J( c; n/ D& F( B) N                when 16 then
3 ]" ~9 c# }3 I  g3 B                        print"yes";
9 H/ X6 ~3 P3 |# R, l7 ?+ e                when 32 then
                        print"no";
) t& Y% w% f" E4 q0 D+ D/ ?0 z2 g                else
! k8 a  i7 Y& v, Q1 K6 ~. D                        print"cancel";
4 U2 i5 Y' b9 S% b                end;
                eventcontroller.stop;
        end;
3 A8 y3 F4 J' r/ G0 m6 r" X       
7 e5 O9 j8 c& x$ ?" Q  u, L% ?        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
9 i4 ]* G) A8 R. \* j% h, G, ~                machine:=str_to_obj(machinename);
7 p* J- M5 `* X: o7 g% o                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
( l: |2 U5 [9 S5 z' r1 {( G        end;
        next;
. p) e% K; U& ~& X; m. }8 B; Z3 [       
        dx:=0;
        dy:=0;
8 L! F3 t" K2 i0 @( R) M4 @        for i:=1 to number_of_machine loop
' y" c! C  x3 m: g' w                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
: S$ B9 A7 L1 W! ^                then
2 _7 `; h7 u$ k& S' g$ ]2 E* J                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
, [  D/ c1 b3 s" N  l. T                        and activityspace[1,rows]<(1.05*y_max) then
3 r& k: @3 L) T1 G7 p                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
( U" G3 t  d4 `                        y_max:=y_max+dy;
                        dx:=0;
- W2 k" ?# W/ ]) x6 h8 c3 [1 J                dy:=0;
                        --end;
                end;
0 I  G; b# B! H                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;
            if activityspace[2,rows]>dy then
) I' L: K' Z6 I- Y1 c                        dy:=activityspace[2,rows];
' e/ I, b4 S- t+ {! w3 S                end;
- Y1 ]9 C  ?0 j6 e                dx:=dx+activityspace[1,rows];
                /*if mark=true then
3 ]2 O& O- c2 f& _% D8 d( [                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
# l# T+ H9 ]# Y0 ^) A0 {1 j                        activityspace[1,rows]:=ct;
; T3 x) U1 C! K0 \  }$ O4 Q                        end;*/
  H+ ]- e0 n) c0 l& N+ H        next;
        y_max:=y_max+dy;
9 V  H1 G8 a4 l' v. i        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);
" ?! o1 U) @- v$ k2 g& D9 M       
2 p- Y9 o+ Y4 g  f2 D) ]        rows:=0;
. d* s! s8 X) _8 [3 l6 A& |# }( V        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
' P* U$ M! N9 m2 b# z                        if j=i then
                                d_from_to_chart[j,i]:=0;
8 h' V! u, T7 P" v2 Q8 R                        else
                                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];
( N& K: N3 A% B/ `                                d_from_to_chart[j,i]:=abs(dx-dy);
- E' U5 Z& S2 n- J$ ~) J. f                        end;
                next;
        next;
       
        lines:=0;
+ W0 K- b0 x6 L- P1 {2 x        partstable.delete;
) j7 R, w6 a# M0 D6 \       
: U0 W4 i$ Z2 p* o% \        for i:=1 to number_of_machine loop
: p9 ]5 m1 }: ]" v% q                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
# r! t1 Z/ ]) p7 X                        if w_from_to_chart[j,rows]>0 then
$ b* T1 ^( ?- U8 A9 e+ l$ n                        lines:=lines+1;
+ I0 W- a& s# F- v& x' s# w7 K1 ^                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
0 F! E8 s: k2 b                        partstable[2,lines]:=w_from_to_chart[j,rows];
3 f5 B9 G2 h  H" [) J2 n                        partstable[3,lines]:=sprint("parts");
+ O$ o# z& u$ d7 w' S4 h$ p( J                        partstable[5,lines]:=rows;
; R5 Q2 O% G. @# v                        partstable[6,lines]:=j;
                end;
; d. t# \) f. A5 ?, b; ~8 z1 V        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]);
2 n) O2 |, r; f- C8 ]! d        machine.name:=machinename;标识符未知
        machine.proctime:=5;
2 O8 Y4 h' {0 j5 g        machine.label:=activityspace[0,rows];
# f% q$ t! P2 m; Z8 }        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
) Y# G( H) I5 j; L8 [2 `        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]);
% k6 ?" q- h8 Z3 L        buf.name:=bufname;
        buf.capacity:=5000;
2 P) h8 _& A0 b5 D& W! `2 u- p' u        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
; T  \* t1 d/ ^7 y4 V' g       
1 X! n+ r1 s7 a* v& H7 Q8 a' _1 v, T        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
2 |9 F( K- ^' Sdy:=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);
2 ~( J8 X7 ~& g' w* i6 Unext;
% X+ ^% j$ j. i6 R4 x: Yend;
) F; @) `2 x' f5 y% ^* O  }