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

zooey

is
        mark:boolean;
3 _- L! q: ?( |! o* M        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
/ l. ]/ i) I" `: T    machine,buf:object;
do
        current.eraselayer(1);
- I4 d) D' V# P       
        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
' m& r0 v  e: N' R                        print"yes";
                when 32 then
, C6 n) a$ Z, x6 i9 ]+ w5 P                        print"no";
8 m) L" W) S& j" e                else
; S% R" c) j1 H                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
) C6 g+ S% N8 O        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
% `. s2 H; O& t! Z        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
, x2 {* o/ o4 R7 C7 i8 T2 N% |, K  i        end;
        bufname:=sprint("BF",i);
& q9 v$ g$ k* I! C- Y3 f7 g        if existsobject(bufname) then
/ e+ O+ q) `& N                buf:=str_to_obj(bufname);
0 |- e+ w* G& v! x                buf.deleteobject;
        end;
6 A( ^$ T% o* e' w5 F        next;
+ }4 Z+ H, s0 U, d* T0 ]       
        dx:=0;
& e% }( ^& j3 S" e4 \8 y7 X        dy:=0;
        for i:=1 to number_of_machine loop
# y+ j; q( o9 B1 ?7 O! D, H5 |! B                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
; w7 `2 Z' M# ~; A  a3 X                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
9 W6 u0 s# w4 c2 B                        activityspace[2,rows]:=activityspace[1,rows];
& Z! a* ~. C: O7 G! ]# F, }, b* _                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
" {6 N- E8 T' E5 R4 s/ @                        y_max:=y_max+dy;
+ c. K- H) V0 `6 R                        dx:=0;
                dy:=0;
                        --end;
5 }/ F% e) K/ [3 n/ M8 o1 x8 [                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
7 b: U! E5 \5 Y/ E" t' p) F* D& Q' E                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
% B7 x5 R/ `- k2 L9 F6 B                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
. Q6 `  [- |9 I                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
4 Y' E3 `( X4 k' k; T5 N0 ?. L        y_max:=y_max+dy;
' p0 W$ r: K; 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);
8 {% ^7 O: F% e- g4 O  g1 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);
       
- h: c4 `# p! b. m& h0 r        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
" s) e. u8 v6 j+ ~" W9 p                for j:=1 to number_of_machine loop
- k( l+ ~: T9 K$ h                        if j=i then
. G5 a+ }1 t& w" m4 e                                d_from_to_chart[j,i]:=0;
' |1 y" _& R2 J  u# o                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
' b3 I( _% L* _7 C  r( G: t' J                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
2 C) ?# e1 g8 F6 Z- B; m                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
! t: m- z7 o: I  y        lines:=0;
- r( A4 I: r2 G1 u" d- ~0 l        partstable.delete;
       
        for i:=1 to number_of_machine loop
9 T3 [' M# j' Y9 N' ~, F5 [                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
9 D* l* Z) Y, n0 L+ G                        lines:=lines+1;
6 W$ ~& k; ]# {: |' S+ [5 P" c6 j                        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;
( d) Q7 r& P/ z. }& k" M/ K                        partstable[6,lines]:=j;
                end;
" y$ L- T3 j& i9 ]: D* t        next;
. G9 ^. N% h" T/ u4 d1 L        machinename:=sprint("M",rows);
, T+ _6 l7 p& n        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;
! T' b, E. g" o  \$ t/ G% p        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
* S4 K0 f/ J, }& _0 q8 l       
        bufname:=sprint("BF",rows);
        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]);
3 s) V- K, C3 R! }' p        buf.name:=bufname;
        buf.capacity:=5000;
, e/ z- s8 Z' G) _0 d* _1 P$ k& d! j% D        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;
  a; {. Z4 J' f; _0 wcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
2 R* n$ g2 ?: s- h: c- Nend;