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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
2 P4 A1 {2 u6 s/ o    i,j,rows,lines:integer;
0 d1 ?5 c" f& b: }7 i* A9 z    machinename,bufname:string;
3 s4 y$ L9 }2 O: _; m6 E    machine,buf:object;
; Z" H: J! ?# M% |& d% a8 ?do
% N* ^+ M, B! y7 y        current.eraselayer(1);
3 G: e( m$ C; T       
2 h7 [, l0 @( J  N4 g        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
8 n; `3 Y2 V: ~" }  Z3 L                inspect messagebox("设施数目不对！请核查...,",50,13)
+ o. o! O2 J3 Z% j4 S                when 16 then
) E( U( S! j* ]7 R1 k- e                        print"yes";
                when 32 then
                        print"no";
) Q4 a7 m) B1 S2 \                else
/ Y' R) O. c- U3 X# m3 Y5 T$ N                        print"cancel";
/ q0 N: G  J& I  j                end;
  S* J7 W* V+ x0 Y                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
5 l4 v1 G" a' ?        machinename:=sprint("M",i);
        if existsobject(machinename) then
! v* \# t9 ]8 A( l$ a& U                machine:=str_to_obj(machinename);
                machine.deleteobject;
. e  E9 b" L2 g3 r6 M  h, A) J        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
1 [- ]. n3 y2 c                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
7 D1 X. n2 }5 z' b+ [( H        next;
       
        dx:=0;
7 @) K4 I8 Q4 E/ g4 W+ |        dy:=0;
8 Z8 L9 S0 X2 s( k+ C, E        for i:=1 to number_of_machine loop
& e8 X0 H" a2 g                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! X& |( W1 R* t, p( D7 m                --mark:=false;
3 B3 r4 R1 k2 C# ~/ a                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
$ P, J4 n+ S: k9 F0 v/ Y/ l- _) X                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
; Z0 N( ?' t0 S                        activityspace[2,rows]:=activityspace[1,rows];
; _. y+ Q7 G/ b% n5 S8 b                        activityspace[1,rows]:=ct;
8 j# g9 ?0 S1 i2 R# E                        mark:=true;
                        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;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
0 {6 C1 B8 Q, l0 a                        dy:=activityspace[2,rows];
                end;
6 @: s3 L, l% ^' U* `1 {                dx:=dx+activityspace[1,rows];
                /*if mark=true then
1 g; j3 p, |6 ~                ct:=activityspace[2,rows];
3 h% ^' s2 b% n; L0 G$ ]                        activityspace[2,rows]:=activityspace[1,rows];
8 K8 f. q' \# K* |4 b# ^  R2 y                        activityspace[1,rows]:=ct;
& ^/ q  N* G6 F4 b; {' _- Z) b) k                        end;*/
        next;
        y_max:=y_max+dy;
% x: b2 J. h' [/ e; O' f        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);
! U8 X) k+ B1 m       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
- [$ {, P; b; f% @' e                        else
                                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];
3 K/ `. t8 d( o5 ~' s  ~                                d_from_to_chart[j,i]:=abs(dx-dy);
: _) e& b; a5 k  S8 ?                        end;
( O; `  Z" `% V! i  m7 o# j; t                next;
        next;
       
' @( }: U. y7 `5 H. M        lines:=0;
# N, l4 g* j$ H1 H, ?        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
1 X6 f6 n% P6 P6 h# n) M6 O                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
' B2 p+ t6 Q6 T1 p/ ~                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
( ~& \0 q( K% q* x" ]                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
6 `  m, m) ?2 M& W5 @+ E+ Z        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 l8 W( E1 ]) n3 H" e5 s        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
* }# R' g2 `" E3 @3 ~2 {        machine.exitctrl:=ref(leave);
       
: f+ V) Q* e! L; B$ U- X        bufname:=sprint("BF",rows);
9 \  f4 h' J, {4 B' N: g        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]);
/ R( C7 B$ q) r$ e        buf.name:=bufname;
        buf.capacity:=5000;
' v5 O" E5 R7 e9 v% C        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
6 G) E# u1 ]3 l- P+ |( r       
5 z( ^" W% W9 u  `; ]        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;
' x+ D. f/ S6 a+ W5 dcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
! `" |: }8 ]+ }# @3 C% D. L) Iend;