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

zooey

is
: R+ F$ {' K5 R1 A        mark:boolean;
        dx,dy,ct:real;
# a' y( }  Y; g# g# e$ t    i,j,rows,lines:integer;
    machinename,bufname:string;
8 l7 K" I' |6 P3 r    machine,buf:object;
do
" v4 A. g# c) Q1 v. ]) u' g3 A' W" S        current.eraselayer(1);
9 M* L& C, a( n' z       
% w" O. c1 }$ c$ o5 D5 A5 T( K        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
# Q* O6 W! ~( }, ?0 x# [, ~                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
- j' b  Q! [1 F3 o/ }: p3 _, F                        print"no";
+ _6 Q7 e' o& X                else
/ R) w* d0 k: p. e% f  W/ n                        print"cancel";
# N( M/ r  q1 {$ m* y                end;
/ v; h% y2 h0 v5 c& J                eventcontroller.stop;
& b: q. ?3 g# b1 G; s3 @        end;
2 C0 n, H: Z. W       
1 ?, \& i* o1 F" f/ O        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
: U2 ~, v4 |" d( B                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
0 d+ ~7 A- j9 ]# Y        if existsobject(bufname) then
# s5 E* E  T8 M% a                buf:=str_to_obj(bufname);
( i; L1 N) U$ H1 e1 N                buf.deleteobject;
        end;
        next;
4 W0 [" W( z+ p5 d, Y+ A! q       
; b  I0 n% h! c8 Y) c        dx:=0;
3 K' N4 ]' @8 X+ X        dy:=0;
8 g( x8 D" T! T# j        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
3 L3 {" `, T3 o7 b                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
1 v1 l! ~2 c: c& U; k  c4 a7 i; J                then
* F) Q. j) e) H                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
' F' y" J. W9 a0 o6 U* Q                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
/ }' l% D8 T3 \; j7 h; z                        ct:=activityspace[2,rows];
$ G1 N) v% n4 O7 f0 ]                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
/ O& |; g  \  s+ q7 H! V* {                        else*/
                        y_max:=y_max+dy;
+ D$ K: r) |5 |- f  c  M                        dx:=0;
- T- R" K3 z9 e, J. C! ~                dy:=0;
' ~* ?. y* U+ r( ?4 _8 G                        --end;
; R) S; `) n( ^1 e, r; d                end;
; V0 u* [5 W2 d) q0 J9 Y7 `                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
' T& b( ]! X. l$ a$ z7 k                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
8 l+ X% o5 U0 F' H2 _            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
! C; d) r" B* }4 Y                /*if mark=true then
                ct:=activityspace[2,rows];
* [7 [$ B' M! P$ n5 i! \                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
* ?* {6 Q3 o7 s( t7 q/ ]$ j                        end;*/
        next;
+ K. Q; j8 L  k1 p( ?- b2 V; n: v  M+ h        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);
        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;
  ^/ Q6 X. o# F0 a1 N        lines:=0;
        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;
                        else
0 D& \/ A4 V4 R* \" }4 V                                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];
( Z0 A2 ]" o1 K5 d$ R9 `4 d6 t% B                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
2 \% `! b3 M' W7 i/ d# y: b                next;
  f- I6 e/ f1 |        next;
$ A1 J  s  C3 Q( k       
        lines:=0;
8 a3 d% p. B  H( {        partstable.delete;
       
& x3 m# ^$ o5 r* n, d" Q7 X        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& v' p' @( O2 u& r                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
: H( M* G9 M3 ~5 U7 V                        lines:=lines+1;
2 @. q: y+ g% C: [                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
& z, |& a6 g% ]; M* A+ A                        partstable[5,lines]:=rows;
0 n' b0 I  y, p1 F: }2 q, T                        partstable[6,lines]:=j;
8 d: n1 |0 E; R  S                end;
% c  q1 f0 D+ Y8 @. G        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]);
5 e9 ?! t/ m: g8 e; y3 }$ {        machine.name:=machinename;标识符未知
        machine.proctime:=5;
; V/ M. w! c$ b- a3 M9 G        machine.label:=activityspace[0,rows];
% h% p5 s, o% E3 @        machine.exitctrl:=ref(leave);
3 Y  v! X/ j$ l4 `+ }4 y       
* }5 `. ^) \% G, @4 Q) S        bufname:=sprint("BF",rows);
+ ~: E3 x, p7 |5 K        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;
) w  I1 j* }1 \: v( C* D" i        buf.capacity:=5000;
4 W# O; Z$ W# h% E7 R4 u9 u" B        buf.proctime:=0;
/ n5 ^& }* a/ W2 ^4 K! K        .materialflow.connector.connect(buf,machine);
       
4 N& h$ A/ ^. @( `/ \5 L        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
. f, P) u* a, c% U: |  g6 _dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
# U: N( B  n6 X7 ?/ icurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
& J& G/ \. P2 s6 e) Unext;
end;