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

zooey

is
. Q3 n& V  x* v; U4 U        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
( S. B- X% s. d. U3 H9 u    machine,buf:object;
5 R: d  Y5 U/ t0 m; E. Q# jdo
6 F( K2 \* C; D6 P. b6 Q. l        current.eraselayer(1);
       
        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
) Z6 k* G( \4 ^% f0 W5 E                        print"yes";
                when 32 then
8 U; }5 R# _* I+ ~" J                        print"no";
                else
                        print"cancel";
5 T! j6 V, D% s* {* M                end;
                eventcontroller.stop;
        end;
! U2 a" f+ P6 L       
        for i:=1 to number_of_machine loop
  L! F: Y! y' n' _5 x. n        machinename:=sprint("M",i);
& {, _) U/ g8 G  k9 }7 C        if existsobject(machinename) then
1 s( O( G; d( Y# e8 X" n                machine:=str_to_obj(machinename);
                machine.deleteobject;
! d5 `6 n. f4 E% c& Q. f        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
0 Z& B) J5 {+ T  Z/ {4 C        end;
+ H1 ^) q0 \3 n, v" ~- S+ m        next;
       
& N' {/ K/ T' G6 G        dx:=0;
, g; K, {& q8 l0 `7 d) p        dy:=0;
        for i:=1 to number_of_machine loop
& U/ n' L! }) v- M! a! p! t                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 Z  R. ?0 t- r% k/ b; ^                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
0 w5 l# e- y6 D0 Y7 a0 U% B                then
& U1 G# G7 t, E                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
  k" E! i8 m8 B/ I+ [) Z( D                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
' i9 _" S: \. g* I* [$ ~                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
( X9 `$ @' ]* r5 b# X                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
& H8 _% Q8 F$ C                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
& w) E* _+ ~3 W+ ]            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
4 f9 A7 ?& e7 x! B4 b; W2 v% V8 ], T                end;
! k# w2 v+ C) a                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
1 V' G4 v9 n/ z+ ]0 t+ M* j                        activityspace[1,rows]:=ct;
                        end;*/
        next;
/ u9 R) r8 X( }' X# |        y_max:=y_max+dy;
- I6 F' ~4 P5 ~1 k+ g        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);
# j. V. ]* n- u- [5 B       
7 [0 N9 r, t/ {9 J$ H        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
$ H8 C/ {9 G+ O, Z. ?0 b3 M                        if j=i then
                                d_from_to_chart[j,i]:=0;
9 d2 f$ T: V5 D% J. T                        else
: w; m: V! O& B; [  w- 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);
                        end;
                next;
        next;
       
        lines:=0;
        partstable.delete;
$ z) r4 n% U6 T/ |6 _       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% Y, y) Y! ]# }- l6 x/ y3 i4 ?                machinesequence[2,i]:=rows;
5 m# \! g5 E1 l. k/ E                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
) `5 X3 u" |+ Z* d7 m4 _  W                        lines:=lines+1;
5 r: l$ T  B5 ~# M. T6 p/ w                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
$ b6 p0 |. t# i/ q# Z                        partstable[3,lines]:=sprint("parts");
% Z" A/ w3 j) ?4 n* k/ D                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
# k1 z3 ?8 u! f) o$ e& o                end;
        next;
2 i% }1 I8 W0 L& `        machinename:=sprint("M",rows);
2 ?) O7 U+ R5 h3 M        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;
: C& a3 z9 p: m) b- C        machine.label:=activityspace[0,rows];
1 e7 C: L$ K: y0 X2 \, M" ^        machine.exitctrl:=ref(leave);
* X7 _3 W+ u$ J! _( d       
$ U- e+ i0 x3 w3 {3 J/ N        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;
) h' V! L) P/ f" X) e" Z        buf.capacity:=5000;
' |9 ]" u, ~6 S5 j( Q6 F. ]+ y        buf.proctime:=0;
4 \* m4 C9 W, M$ K" R7 p! y( P        .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);
next;
end;