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

zooey

is
' K' |" i5 m/ v1 A        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
" E" J2 S, K; @4 W        current.eraselayer(1);
# n5 {# b: `$ E6 P( D4 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
9 H. i4 d0 I' K/ i                        print"yes";
7 W7 c) D$ W. T, e1 m$ Q; w5 o                when 32 then
; F4 }5 b1 w, [% V! R8 [) I5 P( n                        print"no";
4 j& e7 ^4 ^1 h" U& M5 |( l9 A3 I* {) ~                else
- @1 F5 C+ w* P* u                        print"cancel";
% V# y2 z# ], S" I, V                end;
                eventcontroller.stop;
5 F' G, c$ a  }) F+ q        end;
' E7 R' b% `% k5 ^7 p$ ]% s# I       
: J2 A5 D+ W; ?- n5 n1 A        for i:=1 to number_of_machine loop
% N% t# d$ J# }* {        machinename:=sprint("M",i);
        if existsobject(machinename) then
# P3 m! i1 N7 N# c4 @9 Q                machine:=str_to_obj(machinename);
                machine.deleteobject;
4 {5 j2 g& U' ?  V2 z        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
  H/ Y$ q2 M& H" r( Q6 T5 s' ^& x                buf:=str_to_obj(bufname);
+ @6 }. P* X4 s/ u4 B5 o2 z                buf.deleteobject;
        end;
        next;
       
" Y3 \$ f, L" l: a3 M* |7 ~        dx:=0;
- t! D! M: O. e- v        dy:=0;
        for i:=1 to number_of_machine loop
1 y" `' h, m+ N, q) e5 O5 n7 [. _. X                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, `( `& W7 i0 @* L9 q6 a  S& C* G                --mark:=false;
9 q/ i- m1 W) D# X                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];
" h7 A4 h3 W) t                        ct:=activityspace[2,rows];
: t5 s& t, o" B" r                        activityspace[2,rows]:=activityspace[1,rows];
, {; j# a* l, s, k                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
9 y+ |7 p" e3 s                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
6 I% Y7 E5 L" V7 v3 ~$ V                        --end;
                end;
- R& }! |+ l) D2 a  i/ L0 `3 a                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
( D+ c6 ~+ O  w2 y0 }8 T- |                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
( q+ s8 }' L7 F' T6 P            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
- [4 F0 X3 F" J6 o. h4 e                dx:=dx+activityspace[1,rows];
2 e% X2 G+ I+ C                /*if mark=true then
( ]3 {3 c3 h. H. _4 |8 m                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
( d1 n  r% Y8 D( M0 S                        activityspace[1,rows]:=ct;
                        end;*/
. _$ r! E9 o8 l# H* t        next;
        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);
+ l# [& e3 B4 S* |5 |        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);
       
# V: [8 f$ S/ s        rows:=0;
: O5 W& X; V( \* Z. H3 s0 E. H+ h        lines:=0;
$ c; d' y2 n, j        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
5 U/ @# {! D. }; B; C: @; {/ S                        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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
0 p6 Q! N9 a4 ?1 B. y                        end;
                next;
  Q3 c8 K4 k, k# ^' ?' i        next;
6 `4 J  @+ x0 f4 \* Z8 Q       
: h' K3 ~/ o2 z" n- l! [$ n! B        lines:=0;
        partstable.delete;
5 w; X7 G, Z% t2 }9 @6 j# b3 ~       
        for i:=1 to number_of_machine loop
/ t, V7 b+ ^3 n2 I; V* u                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ D0 N' r! I% Q1 L+ o" [                machinesequence[2,i]:=rows;
! z! ]0 z! c- U/ F2 [3 x                for j:=1 to number_of_machine loop
, D' g) Z) G0 N: J$ j+ J: g                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
. P  |  N2 k+ i7 S; v' N2 R3 d                end;
        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]);
  ^( A& u8 _  G. f7 M        machine.name:=machinename;标识符未知
, T- q4 H" M6 }0 n1 {        machine.proctime:=5;
* a9 [2 ~& K4 R6 z2 S: ^) i        machine.label:=activityspace[0,rows];
4 ]. J* {& ?2 R* A% N  d        machine.exitctrl:=ref(leave);
       
8 ~/ L' ]5 ]& U. X. }9 u        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]);
' Q# q  a% }7 T        buf.name:=bufname;
2 A5 w; ?( K9 \, M        buf.capacity:=5000;
6 j9 O- T$ \" ?        buf.proctime:=0;
, c2 o% q7 W1 F9 B. A        .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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;