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

zooey

is
/ x, V# N, l: q4 ?5 W0 Y* \        mark:boolean;
: K& R8 y$ g: E% W" }        dx,dy,ct:real;
3 r3 N/ y( W$ Y    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
* l- g4 n3 b( m& {do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
. [/ c2 B- l4 N+ u: V+ {. ^$ X' Y                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
! S. J( T1 ~8 ]4 m; C- y" e( l                        print"yes";
. x* Q# E" _. q$ ]                when 32 then
                        print"no";
                else
% m( f* \  K! g7 t& w+ S                        print"cancel";
2 b7 a& |$ C8 W8 X                end;
( A1 u5 J& ?) n; |  x                eventcontroller.stop;
* z) u1 h" x; j4 s" s        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
3 K) \2 d$ z/ \$ W3 N" b/ [' B0 z( A        if existsobject(machinename) then
. t# h- y# A, m- Y                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
& ^$ L5 k* s8 c5 m* I        bufname:=sprint("BF",i);
1 j9 y& [* E& [7 r        if existsobject(bufname) then
" a/ Y( Z/ x- r+ \7 j! o" t' Z1 I                buf:=str_to_obj(bufname);
                buf.deleteobject;
5 [& d* H3 b( x' C        end;
        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
' F# x6 W/ k+ O' @. r( J- j& f                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
7 B$ a7 l) i- s$ S2 o, g5 |                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
3 F/ D3 R6 c2 `$ r# u/ Z, L) F                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
  D  q; i) _; s( x8 a5 B                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ d6 z/ `5 j1 q. K- W& }* x                        activityspace[1,rows]:=ct;
                        mark:=true;
: `6 `9 @# |' p" G6 d                        else*/
6 d5 v% k/ U$ O3 m! V) r                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
% ]' Q8 y; T* c' ^8 d                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;
# u3 I* p8 D" q# B            if activityspace[2,rows]>dy then
6 E# x$ Q& @' j* o. V' q( X3 g' n4 i                        dy:=activityspace[2,rows];
9 b4 s) F, {- g& C2 D8 y8 I                end;
, M$ H. s6 S- J' V# g: t" S+ A                dx:=dx+activityspace[1,rows];
                /*if mark=true then
2 n+ {0 \: `2 J" z) h2 r, F4 Q                ct:=activityspace[2,rows];
: y6 b! [. N% _                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
3 K) [/ t: ?" O0 M  Q: |                        end;*/
        next;
* W9 l& m. o0 t- j- Z/ \/ }) D        y_max:=y_max+dy;
+ ?, V- D( t5 d8 R2 s1 h: B        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);
       
' Z8 j) h6 p1 N3 @, {, H- f0 `        rows:=0;
5 P' a1 q, \6 L. ?        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
. W/ Z, S4 \+ Z; ~% G9 ^/ g                                d_from_to_chart[j,i]:=0;
2 o+ D; i" L1 s# y  C                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
3 m$ h6 V$ V3 }  N4 v; q                                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;
5 N' @1 c& P  K                next;
5 N0 M% o" ~9 H+ O( b& F% W6 ^( \7 ^        next;
3 K( W3 _8 D$ k* D* ^       
        lines:=0;
, G5 q$ i, y3 K% u. {! r7 o( u5 q        partstable.delete;
7 o( Q# C' q1 [2 j8 y       
        for i:=1 to number_of_machine loop
3 n, v4 B  s' s9 |, S3 k/ I                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
5 `% c1 B4 s8 i/ [1 A                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
0 l; s  w1 |  b$ S4 v8 o                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
% m* J; Z; w. C! c2 ~                        partstable[2,lines]:=w_from_to_chart[j,rows];
1 \2 X1 U3 o- K* A                        partstable[3,lines]:=sprint("parts");
; z- M& ]4 B1 h' ?$ A. C                        partstable[5,lines]:=rows;
! O( L  A% s9 S' q7 B( _& n                        partstable[6,lines]:=j;
                end;
        next;
' X3 C0 q  B# \- d        machinename:=sprint("M",rows);
5 e! T$ t9 @3 {6 h        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;标识符未知
, `% ^  H- [% p        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
  V# X# d- O$ Y$ W9 f, S       
        bufname:=sprint("BF",rows);
# J$ h9 ], m/ o" V3 [3 v" g        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;
0 z# W7 u! E0 s        .materialflow.connector.connect(buf,machine);
       
# D. H; a  q9 }% [1 U2 v) r5 C& q        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
- b# n, H# G$ c8 L) D% Hdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
) D3 }+ e7 g2 p- w8 g9 fcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;