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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
) K, x+ x' X. h/ _    i,j,rows,lines:integer;
    machinename,bufname:string;
7 \# {4 c$ ?" f! s( a2 h1 h8 l    machine,buf:object;
do
        current.eraselayer(1);
1 v- z# _; d# F5 D       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
  M, P$ v6 X3 Q  v) y0 v% N  v                inspect messagebox("设施数目不对！请核查...,",50,13)
' `3 z$ [3 g9 I( t/ l                when 16 then
                        print"yes";
                when 32 then
                        print"no";
+ Y$ r% D7 o" @$ y3 J  _                else
                        print"cancel";
                end;
1 t" g' M0 V+ t) ?2 X                eventcontroller.stop;
1 i( e0 H" @  h- Y/ e& G        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
7 m8 }+ a6 B- M  w1 W) v        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
4 V% W! U+ l9 Y5 [0 n                machine.deleteobject;
        end;
% L$ b$ `. f5 c3 r        bufname:=sprint("BF",i);
        if existsobject(bufname) then
' i3 R% C  ~: E' H: \9 @3 K' c8 r; K( j                buf:=str_to_obj(bufname);
, K# r" [- V  `                buf.deleteobject;
        end;
- u% a7 j9 p$ A- K        next;
       
        dx:=0;
$ I& @4 G, x- \0 c8 T        dy:=0;
        for i:=1 to number_of_machine loop
! d0 \0 V# S/ `) @3 _: i                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
' |* `( C3 z  s) ~! T                then
( U" l! p, D/ M                        /*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];
( j9 T- p$ n7 b# k$ d                        ct:=activityspace[2,rows];
+ a# z/ f' b. P' ]1 e( l6 \( Q                        activityspace[2,rows]:=activityspace[1,rows];
/ Z8 X& Y; g, L) o$ Z3 i                        activityspace[1,rows]:=ct;
' C& {# {% E' w+ v& \4 w3 j% L                        mark:=true;
                        else*/
7 {  ]+ P7 p( g$ Y9 n0 y& G                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                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
) U: D1 v6 c, u0 c- I1 Q                        dy:=activityspace[2,rows];
                end;
0 j& f( J* g2 _2 U" a                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
7 F( X6 y: h/ A" `% |) O' L                        activityspace[2,rows]:=activityspace[1,rows];
. k, I( \. H$ F                        activityspace[1,rows]:=ct;
                        end;*/
        next;
8 u; D" v. l/ t8 ?& c* x" ~1 U        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);
8 Y* u6 a3 a2 f( Q' f8 I        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);
4 d6 N# Y7 A6 O/ f       
$ B, r/ T( x9 z* N' D. b        rows:=0;
0 H5 ?! n; K1 I! ~, S0 g5 a: q/ }        lines:=0;
        for i:=1 to number_of_machine loop
* W: O) N( M, i+ L  x, a                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
2 p/ g% `! I; o3 v, F                        else
+ l. `4 P& ]1 H                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
5 E9 `6 g' p8 h+ |                                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;
2 F! n& A* J, j2 D! K                next;
        next;
* R) o* `1 E/ N2 ^& x  h, ^3 q+ S. W1 h       
        lines:=0;
        partstable.delete;
       
: e% C& {  w, w! x" P% t        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 }$ Q( U  H& b$ \                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
% m0 B/ h5 m- E9 K+ O7 _( I+ X                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
- B: \' {2 l$ @5 i9 B4 Q+ K% V                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
6 _- Y) t- ~$ e6 A# k& ~6 Z        machine.label:=activityspace[0,rows];
% S4 ^/ [8 H0 j7 e3 q" t        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
4 L. J% e$ E; q. a! s! C! R4 o* t        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]);
  E( t1 F& P+ w; G3 M. Z        buf.name:=bufname;
1 F" X0 k6 x) d        buf.capacity:=5000;
2 |4 Q1 M) U) X7 I8 p* g        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
  d: z2 l; n2 G: M' l2 a       
3 e$ i2 T! F. I+ S        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;
7 P9 C7 `! x' ^* b4 m) F% Gcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
/ F% O1 a0 t9 x6 l6 q( Onext;
4 k" \. B0 U7 I6 N9 w% ?# v, vend;