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

zooey

is
        mark:boolean;
1 f: R# H' e" n% x        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
& ?4 G6 `" g. a    machine,buf:object;
8 L' I! y- V7 P7 {8 wdo
        current.eraselayer(1);
       
1 [( k1 r: Y! i. ?( P        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
: Z3 f- O  E. a0 f+ W; [2 j                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
! B5 c- d1 c: R% p, M# y, P                        print"yes";
                when 32 then
                        print"no";
3 t9 B- j0 `' R- e+ Y                else
2 |$ C) z/ a( i' [# U                        print"cancel";
( I) |/ a/ b6 d/ c/ D$ B! [                end;
                eventcontroller.stop;
        end;
" t3 y% M# x7 p/ N  I+ [' D       
; @( o$ \. H1 l. y) d9 v1 O        for i:=1 to number_of_machine loop
- p+ l5 S, b* @9 J6 {1 p: g        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
+ P# ^! S& B& t9 F4 s: r        bufname:=sprint("BF",i);
' K& U3 n$ X" E6 t9 g7 [) P; U- z        if existsobject(bufname) then
; }, L4 o9 K/ m% c% }$ o3 v8 b                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
" {" {# Z  X1 o4 Y4 r4 m        next;
       
        dx:=0;
; V! A& k2 `2 i: o2 V! w& @3 P        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. V( ^" c9 O# ~( h) e                --mark:=false;
6 d: ?$ W0 o: j                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
. O9 q, J0 `# Q9 a: ]                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
# N% U9 t: i, ~  h# y# S1 ?                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
% D! D! z; m( b& O7 S: {                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
! U3 N1 s+ w! Z9 R) D4 H: v" P                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
5 G8 _9 D  K. b' B/ p. I            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
/ j2 h8 q8 W* T( Z5 p                /*if mark=true then
/ I0 l* b  M# s( r; y                ct:=activityspace[2,rows];
5 X  |0 I- c# F0 K, Q                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
, Z. \# @/ G/ f* g$ y% [, [$ ^        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);
- c$ M# V: b! B3 |       
        rows:=0;
        lines:=0;
1 B) V6 `7 k8 b5 M9 g( e) Q        for i:=1 to number_of_machine loop
& ]' \1 x: Q; p! R( T8 `1 X, Z                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
* ]8 X$ n9 C5 i" ^! q                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
7 U2 h: [3 C- B: _                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
' ?% d) D  U# n3 S9 Z                                d_from_to_chart[j,i]:=abs(dx-dy);
( v7 p2 o9 B6 J. b* l7 U                        end;
: z- W4 c( G+ t! [: y                next;
  |- J+ u2 ?4 x0 w+ s1 k' V        next;
       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                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
# h8 J# Y" F! m3 D2 ?6 o                        lines:=lines+1;
3 F8 d+ X; z8 C$ e* V+ h& ]                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
: ]& O3 N1 p. n; h; A                        partstable[2,lines]:=w_from_to_chart[j,rows];
9 g  s0 m" i; a1 c' F5 j, L                        partstable[3,lines]:=sprint("parts");
9 j. e2 J9 F8 G5 y; d2 g% Y                        partstable[5,lines]:=rows;
/ T; ~* c* d+ O; k; j                        partstable[6,lines]:=j;
                end;
- [, G/ s0 D% D+ u0 g. @. y% n* H& X        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;标识符未知
) A" ~' Y1 W" l" W) W' n* |; r# n8 Q        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
; {& B  o# P' l# b, Z+ ~' W        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
3 X( I# l- c3 h. t0 `9 z, Z. g        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]);
, ^1 P. l! n" m7 h  x6 |        buf.name:=bufname;
) H: y! J/ d8 K2 S+ n: {        buf.capacity:=5000;
        buf.proctime:=0;
9 N+ ~/ M1 s1 R) u& y        .materialflow.connector.connect(buf,machine);
+ o+ @" E9 E3 C$ I  j" z4 Q       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
- S" k) [& c* |( g$ B6 M" K' _1 Xdy:=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);
next;
end;