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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
5 J2 p! o9 r+ \7 Q    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
  P( P. s' L" S) J% M3 X. {                when 16 then
                        print"yes";
# G& \: [; G: K' V1 R3 F# S+ @                when 32 then
* z/ \6 U5 c5 S& L- b                        print"no";
6 {$ n( {7 _/ `* w  L                else
                        print"cancel";
                end;
) ?# i( O' l% B                eventcontroller.stop;
3 }% e+ R' s8 S) r  U% k) B3 a        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
4 z. r  ^$ O  K$ H; G        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
2 y2 Z2 Z  i: c' L        end;
        bufname:=sprint("BF",i);
% \  U6 j& f4 P% V; N        if existsobject(bufname) then
/ M7 S$ C* a3 A- J  H                buf:=str_to_obj(bufname);
                buf.deleteobject;
$ o5 }$ Z+ _+ N. A6 j        end;
        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
# [- w5 [' [- {9 D* t: ?                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
# s7 q% X* s3 h                        print activityspace[1,rows],",",activityspace[2,rows];
2 K! w4 ~$ d: J1 ]' B3 k  g( R- c" P                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
( }# ~! N/ X. U+ f                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
- t2 U, p0 w9 _( w8 C' _" W                        dx:=0;
+ M, u, R4 r- m: [. C. x                dy:=0;
. L8 D7 [/ a" c0 R- H                        --end;
$ R+ B, {1 @7 c# K                end;
& m) I( @5 W* v' Q' m                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
3 Y# a3 ^7 Q/ a+ B0 Z                        dy:=activityspace[2,rows];
7 F5 G7 M9 w6 K' L7 X+ p# q                end;
* w+ t5 t- b' D( R, Z5 n( y                dx:=dx+activityspace[1,rows];
( @6 \6 F, j4 I/ x                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
5 p1 E/ R& ]' t" i        next;
) D" v  X3 c, \, l) ^* }, u6 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);
) t8 Z4 F1 ~1 ?) f        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);
0 `4 ], o+ ]7 g       
        rows:=0;
) a# c/ J% y- }# I* a        lines:=0;
        for i:=1 to number_of_machine loop
3 Z  s- _% {3 F- [& ?% P                for j:=1 to number_of_machine loop
3 l1 J' {% }4 ?9 i% U                        if j=i then
  r0 V5 k, ?  t' _# i                                d_from_to_chart[j,i]:=0;
                        else
; n2 y. x5 l, m2 X+ i& k8 _. `$ ^; m                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
. e9 [1 t1 U7 I9 \                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
* v* X8 d% V; P8 P                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
1 L& _& t; H9 C5 ~0 M        next;
" N# s! u1 c5 n- i: g: n       
+ d1 x6 z* Q' H) a+ h" |4 p9 u3 E# q8 R        lines:=0;
" V' ?2 S7 b7 C        partstable.delete;
       
        for i:=1 to number_of_machine loop
( D. x7 T) X( N* z. G. p3 `                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
; G$ E6 w, [  |7 x- t7 I) u( k                        if w_from_to_chart[j,rows]>0 then
0 r6 s; O7 \9 j) u9 ]2 S$ _9 g                        lines:=lines+1;
4 G- C& q1 N8 b7 ]! n                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
! a' S# ~$ E/ j5 ~$ }                        partstable[2,lines]:=w_from_to_chart[j,rows];
! U$ T$ s/ o, q( ~6 K3 f! F                        partstable[3,lines]:=sprint("parts");
! Y- H5 G% e+ ]6 W$ G# J                        partstable[5,lines]:=rows;
+ M0 G5 m2 T4 N+ X- X6 P                        partstable[6,lines]:=j;
6 E) k: m* ~7 Y$ K* V2 u                end;
, Z6 `5 U, u5 m) ~3 Q, R/ E# o- p& H+ u        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;标识符未知
1 k  T  j0 |& V; o8 j- y        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
% w! s/ W, Q3 [" O, p        machine.exitctrl:=ref(leave);
- B5 a$ |( n) Y       
        bufname:=sprint("BF",rows);
0 Y; Y: j, o2 \! d2 Z9 K9 Z% Z        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;
: H% `- J4 K1 b2 s) ?        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
% V% j+ `2 p# b% C3 t       
6 W5 w* {. J/ v6 a: e, P) g        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
6 @1 H& K# H2 h0 T+ G! z: o8 `dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
  D% T* h$ L' F; J8 ocurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
+ s  N" o* G" `; b4 u8 b# x