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

zooey

is
$ f" L: Q, P2 @/ A: N. F        mark:boolean;
/ p3 d- U5 q! r3 Z, g# b: p$ A4 z; P        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
3 `0 w( j3 r0 d- k1 m    machine,buf:object;
2 J; d; e" O, _/ m* hdo
3 t9 |% M1 L* N+ d        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
) u2 U  n& {# v8 C' y! K0 ~2 p/ }                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
1 ^7 e6 g, x0 W9 I/ j- |( e& T$ D% W: p                        print"no";
4 h$ v$ L4 b- s* T+ Q9 U3 k" `                else
                        print"cancel";
                end;
                eventcontroller.stop;
: u2 Y6 q" U8 a$ P9 \        end;
       
8 C& q! M: G+ _- ^4 }        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
7 ]# O- I* ~/ K% @2 \' v5 Z0 i        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
8 m) R) \' ]% ~; [. D8 E        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
- _( f2 e, |0 w1 I' r# Q        end;
        next;
, |( g; X- c' a       
        dx:=0;
7 A7 [8 b5 y7 q0 m- V  n/ G2 v7 d        dy:=0;
, n2 d9 I6 |4 g* h8 {: \) K        for i:=1 to number_of_machine loop
5 `! g) m% t+ e5 b+ M* u0 m                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( Y% J# R2 |4 O. c" o: `7 L, U9 n                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
) {" N- a/ e! O% \3 _2 p                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
$ W  B% i8 P+ w9 [0 E% |! ^                        ct:=activityspace[2,rows];
3 z6 U8 D& j& K* @, u                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
/ D: y+ u# q. C+ a9 z                        else*/
' }( r  o% e: Y% k                        y_max:=y_max+dy;
                        dx:=0;
/ O1 {/ t# C6 r0 l" `                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
; F; B% u2 N8 h' P, S( c$ h" D- y% s                        dy:=activityspace[2,rows];
% ^3 z3 J0 R$ ]8 Q                end;
2 j3 c. ]: u0 @- G                dx:=dx+activityspace[1,rows];
% S: U2 j4 h( c1 q                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
" W9 c9 F6 ]2 [% K3 h* x- Z        y_max:=y_max+dy;
5 l9 g* A  d- \& G        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);
       
' ?2 x/ A4 y" }        rows:=0;
' k+ d4 ^& f& X4 p/ I# V1 O        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
, L; d# Y: C& X- U5 J! B, b                        if j=i then
8 X9 G8 j3 N5 z( T4 H9 l# k                                d_from_to_chart[j,i]:=0;
2 D: D8 g) F+ \( g1 K5 L                        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];
5 U  Y+ W- t0 c3 ?/ a                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
( _1 Y0 f9 }7 j, D, G2 g  t2 V. Z        next;
  U7 q+ X% L0 ?! G- H% E       
: d& ?3 R2 g& s        lines:=0;
: I7 z0 j; L/ v" J) t        partstable.delete;
5 C' V3 I* Z, I9 B4 q2 m       
  }" b/ ~- k! {/ t& F! ^        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ ^% t* k; }# ~2 F+ G- P  B                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
7 h4 t# ], L8 P/ E                        partstable[2,lines]:=w_from_to_chart[j,rows];
& r: Y. h; x0 V0 k                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
, e" Z( X) ^. e/ O: _        next;
        machinename:=sprint("M",rows);
& s; L) A! n: ~5 t/ e        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]);
9 U, F+ i0 [- }9 I' m% R6 h        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
- C  h3 @1 r( U1 P2 t$ B        machine.exitctrl:=ref(leave);
9 b( N" u# c% i5 N9 {- s+ E       
8 W3 K. C6 S# }& V2 \+ @& _        bufname:=sprint("BF",rows);
' u( |+ x* l! w/ L; ?, i6 T        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;
        buf.capacity:=5000;
        buf.proctime:=0;
. f6 X+ e: Y" @0 A/ b: J        .materialflow.connector.connect(buf,machine);
0 E/ v0 M/ @: q* |; y& ?" T" ^+ P       
( A, d/ ?+ \( U1 @5 m4 O1 \        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
7 Y" m; \+ h, g9 O- jdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
1 r- l! z6 Y. m; ~; B& vcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
& Y- I! p3 [3 `$ [" P2 X' Anext;
end;