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

zooey

is
( P& y0 Y' ^6 g8 O6 v        mark:boolean;
" q) n) y' x0 U5 |$ h" _        dx,dy,ct:real;
    i,j,rows,lines:integer;
- {- \- O$ o, h! ?' k; o' p, U    machinename,bufname:string;
    machine,buf:object;
  p9 I# J/ ?  udo
" d- `- b9 H! V0 h, |        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
+ m: R$ d3 t9 L" D7 S6 I" l8 B7 E                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
0 g+ l% w! T- y1 Z$ q: b" d                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
" S* h# L/ G* o4 R% p       
        for i:=1 to number_of_machine loop
. Z8 W$ n2 |5 \2 w; y, Z        machinename:=sprint("M",i);
        if existsobject(machinename) then
, [9 Z; M, P6 ^6 Z; B+ P                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
/ [4 b2 N4 I" ]# o2 H' {        if existsobject(bufname) then
4 ~; ], y, a* T  W0 z7 K' \                buf:=str_to_obj(bufname);
/ a) [. V* r! a" `, T7 M                buf.deleteobject;
( p& W0 t6 n. V+ a        end;
        next;
0 c, d2 ^1 P' E2 ], R" W+ \; w       
  F0 z( z( M; q! [8 D* l8 f        dx:=0;
3 _  k$ v* k3 }$ R1 u        dy:=0;
        for i:=1 to number_of_machine loop
( }. M& F" `. g* Z* x/ Q                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( U2 ]; M: V: f6 [) u                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
0 Z1 |5 S+ I9 |  v                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
* O$ H+ ~0 U9 K/ W                        and activityspace[1,rows]<(1.05*y_max) then
& B" A$ o+ D6 X) W  F                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
( P8 t# ]4 }" R# k+ f4 [$ E                        activityspace[2,rows]:=activityspace[1,rows];
3 Y4 ]. a0 ^) @9 j6 _" g                        activityspace[1,rows]:=ct;
/ F# z5 z+ f) I' i& G  Q                        mark:=true;
- P9 {9 H! }" }8 d1 [                        else*/
, e0 k" @6 @( W! M, M$ z                        y_max:=y_max+dy;
: N0 p& e: j% `* p7 B7 d' L+ ?' q  e                        dx:=0;
1 M% l: m& w2 ]  W$ ~# C                dy:=0;
! U, t7 b6 \  l) Z. a9 b: `. L) ]& W                        --end;
* E, k6 f9 a, G2 ~9 @                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 K" o# z, n) R3 R                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
; r3 y8 i) h( p5 h  w0 j                        dy:=activityspace[2,rows];
' h" K6 b* T; z1 M                end;
' B; `7 n5 j' e4 z, X. @/ z                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
5 J) u: T5 S0 Q* ~                        activityspace[1,rows]:=ct;
( o6 x) t% x+ M: d# x$ t+ `, L                        end;*/
        next;
/ L$ D) b' b# R4 B" ^1 ?        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);
  \" U0 e3 z* ~" F6 }5 Y0 D        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;
0 {- ^4 E9 r& n& ^! I: L        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
6 j' k% U# L8 V9 r, P, d: o5 a; l9 A                                d_from_to_chart[j,i]:=0;
                        else
$ d8 l; D  I5 s5 j: ~9 ?0 j% `                                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);
7 V, v0 X* e. `0 y3 a  a5 @# J6 `                        end;
( }  s9 C: C' x5 Y# G. }" @  Q                next;
8 n6 M2 I7 G* @3 N' \( l        next;
       
        lines:=0;
        partstable.delete;
, a% w8 {7 U$ \: J       
        for i:=1 to number_of_machine loop
9 ^9 N3 T: ?7 F, {! z6 z! B                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
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
. C$ r% ?7 x" w5 h2 _! N+ q4 p+ c                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
3 ~6 z( V/ N# x6 Z2 A  }                end;
        next;
7 L, |* B# `! O/ e6 X        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;
        machine.label:=activityspace[0,rows];
) ?; U2 I7 l/ o' ~  Q" \7 D        machine.exitctrl:=ref(leave);
0 G, F9 W) U9 Y9 O9 T       
        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
2 E" Q  @1 T; v$ H7 S1 P        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);
6 B7 F- a, S8 X/ R: Bnext;
end;