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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
. K/ R% j7 D8 o5 @5 t    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
7 _* ?( S" D8 N7 S. j        current.eraselayer(1);
# Z- E" H( E# g& @3 `' D       
3 }/ @: {7 h. t/ I$ ~8 c& b        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
- T% [' N- A+ |                when 16 then
                        print"yes";
' ~8 e1 |8 d2 p/ H2 P4 }                when 32 then
                        print"no";
$ u3 j: t" t  A0 n) ?) ?                else
                        print"cancel";
+ ]. J2 f7 e6 v4 M) T                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
1 w6 f" ~  C3 _# t7 w        machinename:=sprint("M",i);
0 c# d: L0 ~4 \8 @3 N1 _, k        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
- I! h: r, _: d        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
& ]' ^7 h. m( Q+ V, P                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
% ]+ X; h4 g% ~3 \2 q        next;
# k) x  s  m! F8 c       
        dx:=0;
        dy:=0;
6 O! M4 _3 c4 d        for i:=1 to number_of_machine loop
( P& y# s/ h* i4 p9 q& x! b% \                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 e1 N  D5 A, j                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
5 M+ Z7 i) z/ c1 M6 `7 |9 h1 @                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
7 d* s/ e# Y! a  C4 l                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
& g" b% q7 J+ g" N# V                        ct:=activityspace[2,rows];
4 I8 R, b3 W; @" V6 w* \& @5 w8 j                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
8 ~7 Q; X0 ?. H) R( s8 ~                        else*/
                        y_max:=y_max+dy;
2 m, ?/ a, l1 S- G2 y                        dx:=0;
0 o  N+ [  F$ n, G; z1 N6 b                dy:=0;
                        --end;
- ^  G5 i4 J- X5 S* c                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
1 M' l, n+ J0 J8 k0 s$ Q                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
) L  w* p9 ]8 u" Y' f2 g                        dy:=activityspace[2,rows];
4 u! h, j; N/ \. J7 p                end;
  V' [5 O' g. y. ?) z9 g! P                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
$ |4 C) ]( u- d& l) N                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
# X- q7 p8 T! g# o  E8 A        next;
* g/ D7 `2 Q" ^3 O- O' v, k# j3 F        y_max:=y_max+dy;
" [7 J! u9 h0 H! q        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);
9 w( v: c$ {0 D: n        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);
6 t' l# _$ }$ o3 v       
        rows:=0;
% z; p5 O5 z3 ^; E  f3 w/ c        lines:=0;
; A! ^1 v0 H$ ~) }        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;
$ [$ o  H7 c- [4 [                        else
5 D4 L* i0 X$ L0 M- f- G$ W" \                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
  c+ q: s) J- ~- \# |+ ^+ }( T7 j                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
$ L8 Z* _7 v* i/ @* |( ?3 f% s                                d_from_to_chart[j,i]:=abs(dx-dy);
% I% {& `+ a9 \0 R# D, G                        end;
5 t8 E) f) [6 f% G8 G, s2 Q$ e2 N                next;
% V( d  B0 _, W  D* e        next;
       
8 G  l6 G) ]: Y# x. s2 ^% H! i3 J0 p        lines:=0;
        partstable.delete;
: ^1 E  F5 E1 T" q( |2 c       
        for i:=1 to number_of_machine loop
) w0 M4 j2 J/ k( y- v) `" z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' ^& i) l/ s3 |1 C                machinesequence[2,i]:=rows;
& L4 \2 L# W8 ?9 ^. l! m% o                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
& ~9 ^* i2 p! s( `1 ^( c4 K                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
7 [" w. V) c9 W6 G# w9 N* g0 a                        partstable[3,lines]:=sprint("parts");
( T) J$ [7 h9 y2 N9 D, G                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
8 s2 A9 x* N! t' a        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]);
7 G% ?5 a! p, I( D        machine.name:=machinename;标识符未知
1 ]) F6 z- b8 [) l  e- J        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
! x3 ]: t6 E( v        machine.exitctrl:=ref(leave);
       
' h4 d7 j2 W% e# f1 `        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;
, J# e. f" s' s# e4 m        buf.capacity:=5000;
8 g$ ^$ x' ^7 c- m0 H        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
2 _2 M! e9 a( [        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;
% A% C6 Q' x! V2 Y: {! [current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
7 U' @& v3 V3 b5 K. pnext;
) a" ^% }6 j9 {" H" G) V) x8 @5 o. [end;
6 O2 i3 e; C) q7 O! \/ x5 o) r% c