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

zooey

is
- d# X& Q) l) s( W        mark:boolean;
        dx,dy,ct:real;
2 c% _9 P, Z( s+ {! @    i,j,rows,lines:integer;
* d; j$ K/ @. q2 o+ F    machinename,bufname:string;
$ T" i# j3 V% j3 y' i* v' x7 `' l    machine,buf:object;
$ w" g8 A5 T- }/ h! v6 [/ \/ L5 ddo
; h* B: Z6 U, O4 b" Q: A4 V        current.eraselayer(1);
       
/ `- e- A+ n  Q5 c; c        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
. L( |- @  I" j6 L* t/ L* ~5 L                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
7 p% E" v' l$ q" w1 f; C7 y( X                end;
' o- t% p% m; Y0 V) R                eventcontroller.stop;
        end;
7 g& X. W5 S' m. O( }0 I% P6 A       
# E, d% Q1 [- I2 k# G# h        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
( i3 r; T- z. |  Z                machine.deleteobject;
5 g/ x% C: S& t; B' ^, H        end;
9 \+ _" B+ [+ o9 V  }: n        bufname:=sprint("BF",i);
. D: l  j6 e8 N$ d        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
6 |& k2 e1 ]2 P3 `9 t                buf.deleteobject;
" R) c) S( ~5 n9 K7 z' |; z, p% I' q        end;
* d; _  T9 M( Z3 h+ C( W        next;
       
* L& l6 H7 w$ ?$ Z/ v6 K, O' x* v        dx:=0;
        dy:=0;
# q1 K9 {+ B* @  d" `/ M" L        for i:=1 to number_of_machine loop
3 v0 t% @! |1 g4 k! w                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
: G- c1 F8 g3 I% d+ Z1 K+ C; y                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
$ B7 ^8 q" O8 ~9 s2 N! z  J                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];
4 f: D4 z6 V5 K/ v. ]& x                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
% Z3 D; |( D1 Y) J! B( N4 q                        activityspace[1,rows]:=ct;
. K6 z$ W% c  a) X" V8 I% M                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
9 j8 U! l6 c+ a8 _' Y                        dx:=0;
                dy:=0;
5 F( Q& Q2 A5 f# v9 P) q( J: ~                        --end;
) u& a0 s  k& W                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
/ y4 {! Q, c1 t( c) c. z6 z                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
' u. o! I+ Y  Q; m! H                /*if mark=true then
, X4 X! j' {; ^! b0 o, l                ct:=activityspace[2,rows];
: o  v# {/ q# E, e                        activityspace[2,rows]:=activityspace[1,rows];
1 l$ x/ u5 T  F# ~! h0 b                        activityspace[1,rows]:=ct;
                        end;*/
, y# Y1 t+ m" w# m        next;
        y_max:=y_max+dy;
0 S& b4 Q) Y) u* I; f% W        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);
; W9 k: ~6 S; [        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);
, b% b" e- w: l       
# G* Z" e2 {5 h$ j8 r! f        rows:=0;
        lines:=0;
; k* ~9 \9 ?& _4 U; C/ Q: \9 `        for i:=1 to number_of_machine loop
/ A2 Y0 K1 y% T                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];
' f7 O1 s! {! m- O2 T$ D3 E                                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);
; @1 h4 `2 G4 b: a5 [" X1 I                        end;
                next;
, k2 q( h& ~+ R" |! c6 X3 Q        next;
       
: p; ?8 c$ V+ n7 p. K% P$ i        lines:=0;
5 i' w  X8 D5 l/ V6 A) Q        partstable.delete;
       
9 u! F8 ]5 i$ b$ ^6 @  p        for i:=1 to number_of_machine loop
0 J0 o! }! M  H+ V! b                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 \7 D$ w# p8 L' j                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
  N6 F  h2 u2 H0 J! O9 \                        if w_from_to_chart[j,rows]>0 then
+ D9 `0 e# U  ?; F( Y                        lines:=lines+1;
: H( w( x9 B! U! p- ~                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
( i! F2 T0 o; N8 F9 t* M                        partstable[3,lines]:=sprint("parts");
9 Y) f5 _2 e# K+ Q) M                        partstable[5,lines]:=rows;
3 ^1 d; W$ Y* B! \. k7 O                        partstable[6,lines]:=j;
                end;
4 ?6 A! g4 ~9 ^3 J! l2 O        next;
        machinename:=sprint("M",rows);
1 c7 j5 g. J6 ^( _2 _        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;标识符未知
$ S: p! O. {( I4 _0 O8 Y        machine.proctime:=5;
: H' d3 ]  H1 y+ P        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
  g) o$ t' \7 A       
. s' Q/ C! `- h/ k/ D2 C        bufname:=sprint("BF",rows);
( f3 K. A7 f# X! ?0 D$ E4 l! R        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;
5 E: J3 c% `* I  f) n        buf.capacity:=5000;
' m1 X( _& n: U+ e        buf.proctime:=0;
; d& x" U9 D0 m8 R( x, J# x3 X3 {        .materialflow.connector.connect(buf,machine);
# K" D2 g+ n- D" O% G6 n) W) t       
" x" X  K. e1 o5 _2 Y        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;
/ a5 v% y4 A+ K1 R; ~/ b; Aend;