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

zooey

is
2 A9 C8 F/ B$ M  K3 d& R        mark:boolean;
        dx,dy,ct:real;
3 a7 r0 J% S7 d4 A    i,j,rows,lines:integer;
    machinename,bufname:string;
/ f1 U" R, @9 _5 U0 ^) J9 J' {    machine,buf:object;
1 A8 P" V& p" x4 n- Ldo
        current.eraselayer(1);
/ I* D+ L% |0 |" B9 E9 o4 x8 l       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
2 G$ v2 {; A7 X" W; h                when 16 then
                        print"yes";
                when 32 then
- j; T' z% G8 A" V4 L- J5 l                        print"no";
" a: n5 Z$ I1 \# U# n& I2 B" B                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
: _5 c  E# k, ]- F+ h        machinename:=sprint("M",i);
        if existsobject(machinename) then
0 A! A, O' Q: ?: h( z% r                machine:=str_to_obj(machinename);
3 {- e9 G# O. |+ v% _% T                machine.deleteobject;
9 e/ p5 }5 }' e8 M% I' W8 b: x; {        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
  H4 C- U, j4 F8 j* E) L, G+ p                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
( y9 v7 i# v8 \4 d7 l       
        dx:=0;
8 y- t- O0 l! m( r        dy:=0;
        for i:=1 to number_of_machine loop
& W! s6 N) h; h: S7 V: k  B0 t                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --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
2 E6 i5 }+ E. }! y+ k' N                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
6 R8 b7 x8 W. H6 J                        activityspace[2,rows]:=activityspace[1,rows];
' T$ @4 |. h2 a7 [8 V+ i5 @7 _                        activityspace[1,rows]:=ct;
                        mark:=true;
$ k3 O( x7 x7 M4 G% C0 P                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
$ b* P) _0 c8 B' L6 `                dy:=0;
* e1 Z/ i' n: t7 q' }+ H                        --end;
% K1 P; A3 }/ g- T7 t. _                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
& C' ~- k" c: W# m                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
4 a" Z/ W9 J) H1 E1 D0 K4 b                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
% J; p+ Y# v% L2 Y  A                        activityspace[1,rows]:=ct;
! m" P* K  G3 l5 i4 E                        end;*/
/ @0 d. m! h& R3 I/ E: C* W/ Q        next;
* W* _5 p/ [# A        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);
       
, G& X! p( Q# D" j+ M  S# L" {        rows:=0;
; e4 z! e8 X3 {% @        lines:=0;
        for i:=1 to number_of_machine loop
# l0 ?, |0 u1 I3 ~8 k                for j:=1 to number_of_machine loop
                        if j=i then
2 C7 G/ K5 s( S: t+ T' ~                                d_from_to_chart[j,i]:=0;
! _  G: t1 I. U( H$ W% b7 Q. |                        else
1 ?) i+ d8 q' Q% `. [                                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];
* b/ Z9 K" B. B, _                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
$ h: t' c. O  h5 o5 l+ S# S: E4 }                next;
        next;
! g  H! |2 ^6 D       
" L) _6 p9 f0 `. [! H        lines:=0;
        partstable.delete;
       
; X1 I+ k/ L9 V" v        for i:=1 to number_of_machine loop
" c. Q9 ?' P+ ^7 ~4 V8 q                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
0 p6 j- r" d5 u; Y, E                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
# W0 m- O; p6 ?/ M, a# R. A                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
1 n! T/ m9 c* Z5 u8 E) _                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
* s$ }. s- F3 O0 ~, v                        partstable[5,lines]:=rows;
+ c+ d0 }: X/ l+ B                        partstable[6,lines]:=j;
  `. j' j0 m/ d! [  T0 ]                end;
# M  Q) |& B' O        next;
6 {: p; S" ?, K3 U1 T! r; z        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]);
2 F" o: `: u8 b        machine.name:=machinename;标识符未知
9 g( W! n5 H5 N" G2 D        machine.proctime:=5;
, P5 A1 m5 u$ G4 @9 f        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
9 ]: p( \- h, w6 x, k( a( k        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
, }) v& q) t* v. b$ j0 I" E        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
! {$ ?* f9 ]+ ^1 P       
2 t8 H! u4 B( O) L        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
$ ~1 L% k, l! V) _$ B8 tdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
5 f) |  i# t! C* hcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
- Q+ n8 C0 e" L- Inext;
end;