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

zooey

is
        mark:boolean;
; ~) J  T# L9 C6 D9 ]) ^) V        dx,dy,ct:real;
    i,j,rows,lines:integer;
* F* w0 [, l8 g0 U# H' B    machinename,bufname:string;
( `' D- z1 I  U, j    machine,buf:object;
8 `4 |. {1 b# q1 s8 T& Vdo
# C" l: [* G" f7 k        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)
! y* c& W, u, M                when 16 then
                        print"yes";
- ]- i# G+ i4 o                when 32 then
/ L6 |9 o! B* x4 L" f                        print"no";
3 C9 |  n( s* n2 t7 D                else
6 L1 d* P# F# j$ r                        print"cancel";
                end;
                eventcontroller.stop;
( h4 }! U2 w7 ^; m        end;
       
        for i:=1 to number_of_machine loop
  L6 ^  q4 S; f3 J: ^( O' H# f        machinename:=sprint("M",i);
. m! k; `+ h" [) \1 G; Z7 j        if existsobject(machinename) then
, D" i- e& N- k' [& r, `                machine:=str_to_obj(machinename);
" y( |& H- ^: \2 u& ?2 a                machine.deleteobject;
* S8 z& m* u2 s6 {6 c* b; r5 [        end;
        bufname:=sprint("BF",i);
  ~: O  x6 U% @4 _3 r' q        if existsobject(bufname) then
& I5 Y. W+ L" x( }+ t# M8 U                buf:=str_to_obj(bufname);
$ R( ~) Q& |' d" m" J/ i                buf.deleteobject;
# r! y; Y2 W/ |) f        end;
        next;
/ D  ?# N) u* A) b# Y7 g0 `) Q5 {8 n2 [       
        dx:=0;
/ w9 K; q! I0 k        dy:=0;
        for i:=1 to number_of_machine loop
) \" [- D3 l' v# E5 h# o                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
+ x  b4 t* ^6 f& f3 z                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
. e/ S% w9 V; p  O                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
* C1 x- X! z+ R4 x. U# U                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
  P+ o" \% b, B+ A                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
1 e9 _3 a0 A- [5 c& F' P: Z. Z                        mark:=true;
. N8 e/ M2 I/ e                        else*/
( a4 N+ e, |7 u% B                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
' v" K% _1 e) `7 l7 m. f                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
0 H- t! ^4 w) t# e                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];
                end;
                dx:=dx+activityspace[1,rows];
0 \+ s' e9 A( w0 _4 Z* E                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
. ^% g0 W; z: ], q        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);
( l0 d! W7 `; ]( j  {1 w' T       
- i) E; Z/ f" K" ]7 E5 T6 B        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
" q2 F5 L9 T4 _6 r                                d_from_to_chart[j,i]:=0;
                        else
+ ~8 Q" t' b3 P/ F0 z: \' v                                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;
5 n" ?2 K1 O* B5 k  {                next;
        next;
       
5 |- ~4 n: N0 S) P8 f8 _' z. x        lines:=0;
- S) d% |) y: B* r3 }* b        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, h* x$ i+ g8 m& @7 D# B                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
- k! {4 f3 b/ L9 n                        if w_from_to_chart[j,rows]>0 then
8 r$ D# V/ u8 y+ H% J+ D$ ?) A* J+ Q                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
, I) s. s5 N$ i( ^, U( t7 w  m5 g                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
5 F: @/ T5 Z7 p1 a1 E                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
( i2 J. I3 C' Y9 p% X0 i                end;
        next;
' a0 p& m, y; G6 U3 M        machinename:=sprint("M",rows);
        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;标识符未知
. c4 h! _+ [, i, ?1 i% P        machine.proctime:=5;
+ g  F% R1 X# \0 w        machine.label:=activityspace[0,rows];
$ P+ y8 W; S  F1 U        machine.exitctrl:=ref(leave);
" n6 s2 e: i2 {8 Z4 T( \9 b+ S       
5 P7 j1 e5 ~# R% l, o) T        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;
' b" Z5 q& u# J/ i7 r        buf.capacity:=5000;
0 t! {) u7 s# w        buf.proctime:=0;
4 T$ d+ ?: r$ J8 r        .materialflow.connector.connect(buf,machine);
" e+ W. F" i5 H9 R6 q       
1 |1 B* P) H& {& h8 d- {/ d        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
) }$ z* M( S* J  {, h4 D4 Ddy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
# {) ~2 D+ N- w' ?current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
+ [+ N$ _) T' B, j; m! S; Eend;
& {) _  y2 Y* w0 B/ j