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

zooey

is
        mark:boolean;
1 K$ v5 D7 f* W, l% b        dx,dy,ct:real;
, S7 R( X2 a# W/ T0 U! t    i,j,rows,lines:integer;
( a0 |- O" _* T3 ]    machinename,bufname:string;
8 Z- _- p: I5 s7 K( j& V    machine,buf:object;
/ U& r$ E0 ?9 Z# B& w; ]# W' v" qdo
        current.eraselayer(1);
% o" E6 O5 _" z" `: l6 m       
; S+ \' k9 S. r) F        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
( k5 k5 c6 i; F* z6 o' Q: q                        print"yes";
' h# G! `% e" @7 Q/ N  B                when 32 then
                        print"no";
1 d8 v/ f! y  c7 N' }                else
) i+ ^$ ?+ o2 R5 J* k                        print"cancel";
" z1 [9 G  v2 Q7 @! f- u                end;
9 b/ J4 a7 H% V* Y+ G                eventcontroller.stop;
        end;
0 W9 c0 F  [8 s8 B/ l) _- `0 ?       
+ {! A% V9 Y; h* x4 M        for i:=1 to number_of_machine loop
6 t( X+ E5 c7 ^        machinename:=sprint("M",i);
- }' ]: Q- p* a5 x0 O, U5 D        if existsobject(machinename) then
" _' c: A! M3 o% o                machine:=str_to_obj(machinename);
                machine.deleteobject;
. d" Q& p: e( \2 V- _( }        end;
        bufname:=sprint("BF",i);
; \, T0 T3 J$ q$ ?% z        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
( N. ^  [* D' ]4 r8 U" n; {/ a( ^                buf.deleteobject;
5 ^3 K/ k* p7 C9 w6 j$ {        end;
% E& K4 k1 Z( N) V        next;
       
  s+ d% Y0 F) B& Z; S        dx:=0;
        dy:=0;
  E$ i2 r/ j( A4 e        for i:=1 to number_of_machine loop
  J! R& `( f4 x9 d2 |9 Z+ z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" m& j; s* D2 I                --mark:=false;
' z  v1 x& a/ M8 |8 P                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
% J# N6 g9 V( y! O! F                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
: S. c0 P; C) J) c4 ]% h                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
  V6 z+ M1 J& ?1 x0 q                        activityspace[1,rows]:=ct;
" n* i+ H! Z) e) k& x4 M                        mark:=true;
                        else*/
$ Y- P7 v( m8 H+ U4 m& H' S0 {                        y_max:=y_max+dy;
/ s6 Z  M2 z6 ~- t, S                        dx:=0;
                dy:=0;
& f2 s7 @4 n3 N1 i                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
+ `7 }1 |4 d( C6 a4 w' m9 M: w                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
+ T2 x: D+ {, T  X3 s. Q            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
& t9 V* D- X* v) v' {. i, D                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
4 t" A1 w# U4 `: l1 t& m. U                        activityspace[2,rows]:=activityspace[1,rows];
8 j6 l6 L5 q, h  |# j* @3 j' t& D                        activityspace[1,rows]:=ct;
                        end;*/
        next;
1 Z0 f( ~5 s( Y" Y# l; p& \' V6 p        y_max:=y_max+dy;
5 m7 p9 p# F5 ~1 S7 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);
       
; N5 [+ ]7 @0 S+ C' ^: S        rows:=0;
' y% D  y  E) a6 k" c        lines:=0;
+ P1 t5 E% T. p1 Z! B0 Y        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;
# n. q0 X! m4 E                        else
* a8 Q3 u* W# C8 j                                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];
, w& ?! ]4 m7 Q) q                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
3 W6 ~+ T% j8 A: I; o                next;
/ e" o" z1 I- w) B% Y        next;
& d) o9 z/ R0 v& d1 F# ^! Y       
        lines:=0;
        partstable.delete;
       
5 y, }/ B5 Z9 E( u6 d        for i:=1 to number_of_machine loop
- V- y5 `  n  Q- ]; E                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
4 n6 K' W* h# q2 \" n: _                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
, @7 U3 t% w$ ^# F% N, U  v                        lines:=lines+1;
0 j! _/ y- Z$ k6 ~                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
$ N* Y: R2 b, u                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
3 X8 T1 |9 F+ V) P, @( ?8 A        next;
        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]);
. i/ ]8 P" [2 g7 Z/ G/ W2 N        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        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;
, \" g0 M( A/ f: d4 @, u        buf.capacity:=5000;
        buf.proctime:=0;
+ J1 {5 L; ~# [        .materialflow.connector.connect(buf,machine);
       
8 b/ t$ _3 N* [0 E& E" z" v        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);
next;
end;