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

zooey

is
& h8 [6 d9 u! `# X7 n        mark:boolean;
: s3 X1 |& [7 j% ^0 n- Z! O0 l        dx,dy,ct:real;
% M! f/ [/ z! R- b7 @    i,j,rows,lines:integer;
3 |/ N! G0 l% m    machinename,bufname:string;
+ j- F# b) T2 j) |1 J/ o    machine,buf:object;
# H0 Z! D6 Q9 |8 ^3 ~9 @. ?do
6 h+ E+ p' I  M        current.eraselayer(1);
& v) k4 Z# t- v& H       
% L7 _& v8 Z- \        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
$ }6 K4 r" b$ b3 @5 p# I7 a                        print"yes";
* ~% {) U& M0 t* B" @( d. f! B  A                when 32 then
                        print"no";
, T; x+ l4 _5 p* x1 e6 z+ A                else
                        print"cancel";
3 b2 W1 |0 u1 h2 |& L( ?; W& n) x2 y                end;
                eventcontroller.stop;
" I! N0 V5 Y; U# L) r( i3 o        end;
6 P8 R' \+ W5 T3 ?" b5 M0 p: y       
, F4 F, A. h4 {* A' L        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
* f$ R/ \' L  ]3 p+ @        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
! c# [* R1 j. t        end;
! n) h0 @( ^. @  @        bufname:=sprint("BF",i);
' ~& I+ Y2 D  f1 P  o+ H        if existsobject(bufname) then
( {- E3 v1 r4 E+ `7 B1 ]                buf:=str_to_obj(bufname);
                buf.deleteobject;
) b7 I. s( O4 u  n& \        end;
        next;
       
        dx:=0;
        dy:=0;
" K0 |/ V4 p) ^0 [. O7 U        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
  x# l+ d- x( J6 d7 H) M9 s                --mark:=false;
) R$ j7 H  B# V( O7 S. ~/ _% v0 R                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
% l! i0 i) e7 ^5 j$ Y* B1 M& G/ r. e                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
4 u8 G( N1 Z* Y- x/ V                        and activityspace[1,rows]<(1.05*y_max) then
* g1 y' Y7 E' k- U! ]0 e" k                        print activityspace[1,rows],",",activityspace[2,rows];
; G* I$ z  ]7 t+ C                        ct:=activityspace[2,rows];
2 @9 z- b$ S, |$ V                        activityspace[2,rows]:=activityspace[1,rows];
. p* r2 h+ U$ Z' k7 I, d                        activityspace[1,rows]:=ct;
                        mark:=true;
9 B+ p3 ]) m. v+ R" S9 L                        else*/
6 B; O& `$ {/ b! c) B                        y_max:=y_max+dy;
! w! i2 F& ^0 ~; U                        dx:=0;
/ u( s6 F" ~9 p( _$ \. |                dy:=0;
& O4 B$ F& _9 O; g! m3 R7 b; a                        --end;
9 N8 t& O- N2 C4 Q! n" C5 a7 {" Z# @, J                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
7 D0 [6 }5 }$ q1 U+ R. K9 [' ^                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
9 V( J3 u, X7 N            if activityspace[2,rows]>dy then
! E7 u% \+ S+ p" e7 M+ R  c- D                        dy:=activityspace[2,rows];
% i" Y' [0 r4 r2 p" t  h                end;
; E  B& Y6 V# X                dx:=dx+activityspace[1,rows];
                /*if mark=true then
2 e; k( W: N% W! W6 N% \                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
! d6 O7 S! n8 W: K7 ~                        end;*/
        next;
7 e8 h3 C3 s. d: C        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);
, [; x$ f) q" Q' c3 W' _( k       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
4 g# s# R4 u. Z. z  l# l; O" F+ ^                        if j=i then
' o6 n0 Z$ t4 ^                                d_from_to_chart[j,i]:=0;
                        else
& y& B; j( `0 c% ]$ }) x                                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);
                        end;
                next;
& p" O( Z6 W3 r0 U% Y        next;
) Q. W. O- H  q" w9 L- }       
5 k  X3 n: f5 X        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. Z7 p. h( Q4 y% c# U6 E8 A                machinesequence[2,i]:=rows;
' i3 u$ d3 }. e                for j:=1 to number_of_machine loop
3 U# `6 m" j* L& V; W0 k                        if w_from_to_chart[j,rows]>0 then
1 Y! O1 {0 p& U: O3 F) ]6 c6 R                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
9 [! z* J$ m' o1 C- c                        partstable[2,lines]:=w_from_to_chart[j,rows];
2 z! e* i$ N- W3 F& i                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
4 ]- `* L. G' P6 O, [$ W, a! G                        partstable[6,lines]:=j;
4 O" R0 H2 k4 g5 J/ u& B# ?                end;
2 B5 ~1 F9 D- a' B- ^. J/ f        next;
        machinename:=sprint("M",rows);
! W, s& F$ h$ j. t" v1 C        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;标识符未知
6 _$ q! z- S$ c9 g        machine.proctime:=5;
% C! A$ e  X" w% w        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
8 s8 S- ]4 N# |1 `+ q3 ^, ]' f! @       
        bufname:=sprint("BF",rows);
/ I% W- A- f% }2 y. q+ z        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;
        .materialflow.connector.connect(buf,machine);
# f) P- j3 ?  l% \8 w5 Z4 e       
        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;
) c& L8 N8 j- G& d  Q: ^5 Hcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
( Y4 m! q4 ^* X' s) K  `end;