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

zooey

is
        mark:boolean;
8 {+ K: l2 B6 b. w        dx,dy,ct:real;
. f5 W  K, `% w# _    i,j,rows,lines:integer;
3 u) R  B8 S1 H, g; w    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
/ ?$ r( ~, H: m4 q/ a* a- Y       
1 M* A7 A8 i% D6 T  X; |        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
& R+ `; Z, S$ A( b                when 16 then
                        print"yes";
                when 32 then
                        print"no";
9 c6 r# W9 m6 O' ]9 w                else
2 C( `3 U! t6 l  d1 N5 B0 s                        print"cancel";
: I7 s, e1 f+ _# o; C' y: }: j- D6 D0 Q                end;
# B; V  L8 c8 ~; E, s                eventcontroller.stop;
        end;
       
6 ]: h; }/ C( j0 n5 S# n2 o# Z" C        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
6 E+ t$ ~# Y2 C$ D' E                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
! Z$ }7 y1 a; G                buf:=str_to_obj(bufname);
                buf.deleteobject;
9 r+ f: Y/ I  B        end;
        next;
9 L9 s1 |; r$ r% U- v       
+ ^( }' |7 O' T4 x  I        dx:=0;
9 q6 Y8 l+ l+ C: k        dy:=0;
        for i:=1 to number_of_machine loop
! W8 R& E- o# t: C$ ?" f4 T                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
, \, S2 B* e" D                then
, _: c$ J+ A, h$ \7 }0 n4 r                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
4 J, q+ A. X; ]( z" J                        and activityspace[1,rows]<(1.05*y_max) then
9 a% N$ V, {+ ^$ F" d& w, y                        print activityspace[1,rows],",",activityspace[2,rows];
+ o' N' }' w3 w3 V                        ct:=activityspace[2,rows];
; a% T" h; r5 z% h; P; ]; j& W: F                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
- e/ |) E, K3 }3 U                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
% {) W3 P5 Z" Q0 [* A) R' A6 R                        --end;
                end;
                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;
; x) ?* d  H/ i! ~9 m. @            if activityspace[2,rows]>dy then
. L* Z4 x1 X: q9 _3 }                        dy:=activityspace[2,rows];
                end;
! P7 [+ f# P% u5 I( p                dx:=dx+activityspace[1,rows];
                /*if mark=true then
. f1 ~5 T) i; ^& K1 ?2 ]                ct:=activityspace[2,rows];
# @' W  L/ \( }9 d                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
! o7 }9 z: u, ]6 F; J                        end;*/
# p( S5 d* S( Z7 }/ Z+ t% B9 ?! @        next;
& l- y% G' k) p" g& y        y_max:=y_max+dy;
. A. R4 M7 @1 }3 M* K% ^        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);
2 f/ Q/ J5 Q& N, X$ ?        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);
       
0 x2 Z' U$ c% p/ X* Y: l        rows:=0;
6 H7 B$ ^3 x) H, S. E$ V3 y9 W        lines:=0;
        for i:=1 to number_of_machine loop
0 V( `" s- ?  c( X1 l                for j:=1 to number_of_machine loop
                        if j=i then
  z: J5 N: i+ l                                d_from_to_chart[j,i]:=0;
1 Q6 N% @9 Y3 u4 G& c  P4 ~                        else
' l3 u4 S7 r$ {4 R" g& ?+ y                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
, Y8 T: T( J- z. ~8 w                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
+ M- l) t+ U' M- S8 A                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
6 C8 h: W7 M7 |+ z  O        next;
       
2 P$ V) B* ]. r5 U, c8 k        lines:=0;
" Y1 }+ F: J1 b: R0 o        partstable.delete;
' ^7 o% z7 H, o: Z' q0 [       
        for i:=1 to number_of_machine loop
7 p+ U. x! V. Z2 D8 q) O                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
: h4 n2 K: Q; Y& a4 w3 Z* i0 ?, I                for j:=1 to number_of_machine loop
" x5 d: }  q$ s2 J" Z/ K' Q                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
7 o; ~9 D/ n( v/ i9 Q: X, _  s                        partstable[2,lines]:=w_from_to_chart[j,rows];
( |/ V6 y, E* X$ [, W! w. v                        partstable[3,lines]:=sprint("parts");
6 g. }% N! ?9 h. Z                        partstable[5,lines]:=rows;
( w  ?( j2 p3 g% J2 y4 w- K$ {                        partstable[6,lines]:=j;
2 H7 ^+ b% @8 o+ G. L                end;
1 U& w) N# ~2 [1 k# m% v" n: l        next;
        machinename:=sprint("M",rows);
9 m; F" A: g6 O+ `        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]);
. A/ H: U: Y+ }4 \3 M# q: B  d        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
5 E- m% v6 _( B/ u9 y! m        machine.exitctrl:=ref(leave);
$ m. ]( N, `4 m% F; y       
# |# ]5 L& G* r* V8 Q        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;
1 c9 z! ]+ H" O        buf.capacity:=5000;
' _( J9 [: Q6 i        buf.proctime:=0;
0 R6 }1 s1 h& I  w) _! F7 R        .materialflow.connector.connect(buf,machine);
, F9 o0 D5 W. U' P9 e( Q. p  p       
" ^4 f; F6 k! A; p4 k! x3 C2 V        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+ u1 c6 e/ t# o3 ?- ]# C7 n" Icurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
) R" h; v# `: v$ i% }