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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
0 t6 K. ]3 u# K' e) h" a# S+ e$ j    i,j,rows,lines:integer;
. g2 o+ h) w* i    machinename,bufname:string;
/ z" r, i! F' A4 a$ F: q9 e/ s0 ?  i    machine,buf:object;
, ?- h) h9 I9 Edo
        current.eraselayer(1);
9 H" g9 s2 p  i7 E1 c7 R$ p       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
9 W& v# x  X8 `5 q! G. D* P& F; B                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
0 X  G5 h) o$ d0 i                        print"yes";
2 z; g) J6 l7 V, f1 u" `/ S                when 32 then
- I3 ~& ~4 }& @1 V9 a% l                        print"no";
                else
4 U/ g+ H1 L% Y5 S! x2 ~; A                        print"cancel";
2 H+ J- d  x: C: G$ K3 X                end;
% M- e5 `" c" `0 E, e/ R& u% o                eventcontroller.stop;
8 y) l( y% g' F# K/ P3 a  X9 k, y        end;
- n( b/ z9 U& Z; E% B. ~2 C; i' E- m       
$ P! G3 k" \" m: s        for i:=1 to number_of_machine loop
3 M2 B# s/ I1 L+ Q2 |9 S        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
8 L4 U) Q' M9 ~# t- N6 u                machine.deleteobject;
        end;
; T! T/ s" w% y  V  D" G        bufname:=sprint("BF",i);
6 H/ [, D% w( L* |        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
' k  c! \  Q; s% X5 ?3 T        next;
       
3 }! j7 t9 d$ [5 Q8 C        dx:=0;
        dy:=0;
( d6 ^4 X' D9 m        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]类型不匹配
# p: E9 O) r9 B. ~% x8 y                then
6 T! |4 b# Y' }- f                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
4 W6 X3 U0 Z% U- t. j& X. j/ n                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
: U2 W: c1 h+ o5 R5 s/ w4 }                        mark:=true;
) a0 T$ d7 w/ t  D& h" |) ^; Q                        else*/
                        y_max:=y_max+dy;
9 Q, v  Y) W6 X% m  ], E* f0 O4 }& Z                        dx:=0;
                dy:=0;
. X6 X7 X' S, Q3 o  \                        --end;
# f( A* D0 B/ _+ E, O                end;
4 D- |. T- U/ e  j6 I                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
8 w. B0 V8 y) f* a' U                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
, G$ Z) Y5 A+ a$ y                        activityspace[2,rows]:=activityspace[1,rows];
% T7 y% P3 F  K6 e2 O                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
; T; J# G- a% j9 H# Q7 J9 J        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);
9 Q( R; a! R2 Y0 }/ b       
        rows:=0;
        lines:=0;
" m* X" q( B4 a        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
1 n& w% @( O* \- U0 a                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
, v: R3 \2 c( j; G$ M( E' T* f* U                                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;
* }( V7 U9 _6 ^. ]# R' f1 j/ y        partstable.delete;
2 Y1 O; W9 p5 c  O6 u' K% H  f       
        for i:=1 to number_of_machine loop
" q5 R/ n' x, ^# z) x" P) G                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) c: t/ i$ j2 ^3 V                machinesequence[2,i]:=rows;
, [$ C: d3 H, f+ H. e. x) T+ S( O                for j:=1 to number_of_machine loop
4 y- d" k9 J8 N                        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];
                        partstable[3,lines]:=sprint("parts");
. B0 d; X( _6 Y# N0 `+ d' q                        partstable[5,lines]:=rows;
5 E1 ^/ }$ x) k& t                        partstable[6,lines]:=j;
) J. y. u% N/ s. w# k; b/ ~                end;
        next;
4 p- T& Y9 q! o6 b2 K" {        machinename:=sprint("M",rows);
% R/ s) K5 x% a9 `- _: U0 H        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;标识符未知
9 |- {* X4 {8 j% b' L! o+ l* X8 @        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
& J; ]+ F7 v$ D3 a' e        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
( x! |, E/ a1 b. ]9 n        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]);
9 u8 n6 a% G& F- Q1 T) d8 }        buf.name:=bufname;
        buf.capacity:=5000;
        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;
# q- H$ \' x, T  b/ m8 C, Gdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
' s  E1 ]0 v2 A8 zcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;