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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
1 Y8 O9 P' C( `% K    i,j,rows,lines:integer;
    machinename,bufname:string;
6 S- E) R+ r$ o6 ]3 U( b# ~7 r    machine,buf:object;
. J. }; ?* B/ u) k/ E6 S: C% Ddo
9 j' x1 Y2 h3 \; t        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
+ e* T  c$ e3 R* W                inspect messagebox("设施数目不对！请核查...,",50,13)
5 A3 ?+ y- o; L5 y                when 16 then
                        print"yes";
                when 32 then
                        print"no";
& e4 [- b9 U8 h4 U: V# f                else
; b2 M  c- u; y" V2 S# Q3 Y                        print"cancel";
                end;
                eventcontroller.stop;
9 Y3 f$ r) U- v( n3 l        end;
       
! L, F* y) V. k  |3 o6 T  O* {        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
  T9 [' B; P& ^7 U5 X                machine:=str_to_obj(machinename);
+ P! P6 c% G+ }( i                machine.deleteobject;
+ s1 X9 x$ m& o2 B/ t) T4 f" J. \        end;
        bufname:=sprint("BF",i);
# C% w- e  d' B4 q; K, N" y9 }        if existsobject(bufname) then
" ^$ m3 O3 w$ f" ]9 y; v                buf:=str_to_obj(bufname);
- y9 O9 K# {' K/ Y8 U% T2 }" u9 l                buf.deleteobject;
+ Y& B% m% j4 T0 x$ T        end;
        next;
) T/ a8 s" f0 w! i       
3 t! x4 P9 z# w( i        dx:=0;
        dy:=0;
% t! C4 ?: A5 n! m        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 b6 j# J! n. S7 E6 k: T. K/ o  U                --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]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
7 P3 q( f3 b& J7 C                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
9 c) Q  C, C) R& H3 o. J2 u* v                        mark:=true;
                        else*/
# L, y6 N. _" G; T$ d                        y_max:=y_max+dy;
$ R3 A- u8 M; z; `" m, S                        dx:=0;
                dy:=0;
                        --end;
, l$ y* z! [/ O                end;
& V, G( ^5 O5 i+ W9 W0 t                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 e& [% ]: |+ n1 J6 ~                        dy:=activityspace[2,rows];
8 t2 C$ ?. x$ E                end;
% ~( ^8 @- I' T6 t. I& `                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
; m" D1 c& z/ {6 U, x& A) e                        activityspace[2,rows]:=activityspace[1,rows];
4 h) D0 a6 H7 E                        activityspace[1,rows]:=ct;
) T% r6 {# o; Z3 ^  w                        end;*/
        next;
' A0 r* P' ?' P( z) k        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);
8 }  _+ b: c+ m; Q, O3 @( N- \        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);
       
: r" `2 A: s0 Y        rows:=0;
        lines:=0;
- t% ~  w3 ?8 F! Q6 i; X/ m  t1 V        for i:=1 to number_of_machine loop
. M' o/ Z2 h8 l6 ~                for j:=1 to number_of_machine loop
                        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];
0 a# T  d6 O' J: V% N, ~                                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;
* j9 F/ p  Z! Q$ {! s" q  }( }                next;
% v5 n0 Q# N1 K, G5 k        next;
/ x) H6 q  x4 _/ C* I9 `       
3 ]6 _) V9 F" O' n8 [' e        lines:=0;
/ w+ n( [! z$ h) A        partstable.delete;
* E) \. a6 m/ `; p$ D6 s8 D  j$ _1 N, e       
        for i:=1 to number_of_machine loop
; d8 d2 d7 p; T6 z! y; ^                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
; Q9 v  Q% X' b6 O3 s7 c                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
6 D6 _/ r1 b& L  S/ T# ~                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
1 _7 ~( K  d0 T                        partstable[2,lines]:=w_from_to_chart[j,rows];
$ V( ]$ m$ F" [9 }                        partstable[3,lines]:=sprint("parts");
) G6 F* v) i4 ^0 G                        partstable[5,lines]:=rows;
' Y& _7 M- H" x7 {# w% X                        partstable[6,lines]:=j;
                end;
' E: {6 o  O# u. u' b1 F4 s8 \1 r% c        next;
: l' W( p+ k: a3 R( j* J0 o. |- O        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;标识符未知
! a; S( H9 n2 v1 J6 Q/ e7 D        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
/ q! o3 u5 Q3 W$ g        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
( Q# ]# N9 d0 K* v: V8 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]);
" V& C* X: `3 x4 S        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        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;
& O. @9 s8 r8 T" q2 A2 e% O" Acurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
& }. }% {% O/ X# lnext;
end;