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

zooey

is
        mark:boolean;
- y1 i$ L2 M  r! |# S. U# V: V        dx,dy,ct:real;
    i,j,rows,lines:integer;
$ {& z4 S$ f: `+ U! o    machinename,bufname:string;
+ p3 m% Z1 C1 m* T7 w9 D    machine,buf:object;
do
        current.eraselayer(1);
       
% `2 l0 [# c; z! O. M& k        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
                        print"yes";
                when 32 then
( Z3 r' V6 X2 A% b- X0 a5 q& a( @3 k- o                        print"no";
/ W+ A8 w5 o' L0 h- @% C$ B' w                else
                        print"cancel";
* R& U2 @( L0 x( w0 B' S                end;
                eventcontroller.stop;
        end;
1 A; n  \0 ~( V. V& B% e8 x1 x       
3 f, V, M: c+ V! \3 l9 m        for i:=1 to number_of_machine loop
( W: G: V  }+ x) H$ Z% _        machinename:=sprint("M",i);
2 ~! H0 r( l# Z) n( o        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
6 M' G4 d  U# f                machine.deleteobject;
        end;
9 V, Y0 m) s9 G( S- \        bufname:=sprint("BF",i);
  k" [" D. c" f/ O9 u* ]! D        if existsobject(bufname) then
2 i! S2 v0 G0 J1 \2 L- q3 m- ?. L                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
2 V4 j4 U) _& h. u1 e& N$ X" E        next;
# @. A/ H# k2 ]; r       
" t8 P* R' _  ?+ v) k$ b$ _' t        dx:=0;
3 U6 B& u' Q; \: N( t( h# H        dy:=0;
        for i:=1 to number_of_machine loop
# [, \+ p9 c$ J; y" j' W/ \0 g! d1 N                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ G/ J) h1 F, g/ `                --mark:=false;
, E7 c2 Z1 F0 W4 j; Y( M! O4 }$ O# Z                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
! `/ |. t" }7 c1 X  S! b                then
: e  E+ b+ ^- L- T" J' \                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
, d& J! K9 Y+ p# Z7 _                        and activityspace[1,rows]<(1.05*y_max) then
3 Q) m5 ~5 e7 Q1 a  b$ j8 z                        print activityspace[1,rows],",",activityspace[2,rows];
$ {5 c/ _( K2 P                        ct:=activityspace[2,rows];
! B4 l3 W9 v% l: }* \7 p+ U                        activityspace[2,rows]:=activityspace[1,rows];
  f2 Q- `1 H. r4 x" @. A                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
( C7 ^! T* M( A8 x( _                dy:=0;
0 @) R3 ^1 h9 y9 ]                        --end;
                end;
2 N+ Y3 L0 }  @# M* f5 o                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
7 }- ~# x3 t  _4 b0 ~' @! U! ?                        dy:=activityspace[2,rows];
% n: d5 G4 b( w0 L! g$ o  G                end;
                dx:=dx+activityspace[1,rows];
* u7 d* ?, o; h( P' Z                /*if mark=true then
6 t+ J: |- a. o: i5 h                ct:=activityspace[2,rows];
, S3 [  w7 Z- N! M, ]+ `# D                        activityspace[2,rows]:=activityspace[1,rows];
2 n3 X9 e" q! M8 K4 a% ^                        activityspace[1,rows]:=ct;
                        end;*/
        next;
1 C. O8 M& ^" `, F$ k4 x        y_max:=y_max+dy;
% {% U; e; F2 f1 z( }$ 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);
       
        rows:=0;
5 I, @& j, z7 m: n        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
5 E% j. J5 j4 t0 m1 v8 u                        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];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
# M- ?7 E' e- M# j# K% Q                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
. W: _! X5 z+ K$ W( y* V9 z1 \       
        lines:=0;
        partstable.delete;
7 _8 F1 ?  C. \  s: r, [       
$ \' e8 a' W  \4 a        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 @0 Q7 u9 |# X) C" a; s                machinesequence[2,i]:=rows;
& ^+ A  h' I  i+ W3 w- J                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
- b7 o3 D1 `% j3 A% q                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
6 y* V: u; g" R$ b* [                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
4 E# o- G4 S" D. c# H                        partstable[6,lines]:=j;
                end;
        next;
" x. H6 c" \  R! Y& b        machinename:=sprint("M",rows);
" Z4 D4 I2 R- f9 l! n/ a7 a2 C        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;
5 u! P/ Z# F# g5 I        machine.label:=activityspace[0,rows];
2 m# U! H0 q' z9 N$ o' @( P        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
$ p. q2 U3 y( a  r3 _) i        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;
7 T0 }9 |0 V# i        buf.capacity:=5000;
% t' @* @3 h4 g5 k* d; U' i        buf.proctime:=0;
" b  B, p+ R1 v- ^! z; a        .materialflow.connector.connect(buf,machine);
       
- q: O7 K' G7 Z! F/ g8 t        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);
# r4 a$ z7 ]* J/ e9 o+ r/ t! g: P3 xnext;
end;