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

zooey

is
- D7 ?2 r* v: R6 c6 i# G; X! I        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
' A/ O) y. o8 V, ~6 S    machinename,bufname:string;
( p, x* f$ |7 u5 m, J+ p    machine,buf:object;
do
        current.eraselayer(1);
2 e0 m% Y( X/ X       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
6 V! V+ X9 l; j% L# ?                inspect messagebox("设施数目不对！请核查...,",50,13)
8 f& W. U( z( |; i( T$ a, z) B                when 16 then
9 G/ r$ Y+ D1 ~# O0 P& C                        print"yes";
                when 32 then
                        print"no";
                else
4 L: t1 F1 M$ w. [7 a                        print"cancel";
+ c  d# h. ^8 t& r. ?                end;
1 R) U$ q: p( [3 X6 C8 K5 {% A4 L                eventcontroller.stop;
        end;
/ f: d9 b' C# A" K       
3 Q& {$ l5 N5 {. j& {        for i:=1 to number_of_machine loop
" N& {: H3 u3 \9 p0 S" L9 G        machinename:=sprint("M",i);
        if existsobject(machinename) then
) L( k( d* }  b; e$ n* E( R) \0 s                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
. F+ X- J: z) {* ]7 s" _. h3 T        if existsobject(bufname) then
! ?7 t5 {# C3 ^% |1 L( a                buf:=str_to_obj(bufname);
4 n9 X1 K/ ^- \2 G# @                buf.deleteobject;
        end;
# o8 o! L6 H3 D! }2 I* T        next;
       
+ r. q4 n2 k! h/ w# j) v        dx:=0;
3 A0 I9 }6 n! b( G* m9 K- m        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
' K# w- X+ \0 ~2 E7 }1 |                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
8 x. I7 p/ w& `2 v; |3 f4 J                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
# i# }* C4 {1 j: Y5 I                        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;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
# d" h/ g& C/ f. I3 t7 S4 }            if activityspace[2,rows]>dy then
2 M* x7 G4 C7 a8 V                        dy:=activityspace[2,rows];
                end;
: f3 X& i7 [; T. B! A                dx:=dx+activityspace[1,rows];
                /*if mark=true then
8 S* [+ b; |0 j. h( a                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
  P' N5 |2 b6 V                        activityspace[1,rows]:=ct;
# a3 }; R! @5 u6 o1 `                        end;*/
        next;
        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);
" Z, j! A9 @! p  s/ r" s( ]        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);
7 j0 K' Y2 b* d' f       
/ \* F$ n3 ~/ q. g1 I        rows:=0;
$ O' y) A7 B( O        lines:=0;
9 G2 G1 p0 A0 v: H7 Q# A/ P        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
3 S1 w8 P. n7 G5 `7 h3 w                        if j=i then
/ }; O) K% ]: h8 v                                d_from_to_chart[j,i]:=0;
                        else
9 `, \) x( }1 e0 N; ?; p, O, n4 i                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
6 g5 d$ m% ]3 W7 W% S2 {                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
. N$ j4 {: u8 J9 ~* i7 a                                d_from_to_chart[j,i]:=abs(dx-dy);
* s8 I, q6 i+ u# i) }) X0 F                        end;
- O1 d# V; _; U5 r                next;
8 u2 ~4 L" G5 t! o4 \        next;
. K' _* I0 K" V; d7 S6 V       
        lines:=0;
7 u/ B3 S  b4 m4 d3 E) D( V+ t        partstable.delete;
       
5 u- p0 r2 F5 o% o  {        for i:=1 to number_of_machine loop
5 Q9 R' o  O5 z  s/ T+ u                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 N, G' `; s8 @9 |                machinesequence[2,i]:=rows;
3 F; s  \. U# \" g& i5 a/ Z                for j:=1 to number_of_machine loop
. [1 [6 E' N8 I                        if w_from_to_chart[j,rows]>0 then
9 N2 J  s% ^7 t) }                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
& H, r# m3 j0 [# r: p& {$ t/ q                        partstable[6,lines]:=j;
5 z7 p: ]7 o+ m! h                end;
        next;
        machinename:=sprint("M",rows);
. f% k. Y  w1 z! W8 \) `6 B        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;标识符未知
5 ]3 x. \5 S. B! T/ p3 P- @        machine.proctime:=5;
1 H: J% u! ~- e1 O1 @        machine.label:=activityspace[0,rows];
1 C% U* |9 v) m' t        machine.exitctrl:=ref(leave);
       
+ o# u  |2 Q. e- W2 Y        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]);
5 f* a, O( {* `* F5 S) h        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
. c( n+ K7 W, e# r% O: p6 q! T       
$ j; F/ I% p; n! j3 {3 P8 r        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
4 ^. W$ `! v3 b2 B1 Y$ e- \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;