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

zooey

is
4 e6 ^9 y  a7 c        mark:boolean;
        dx,dy,ct:real;
. c" W" c; ~" t9 F6 Q1 ^- R  }    i,j,rows,lines:integer;
    machinename,bufname:string;
  q1 x1 w4 f' x% ?    machine,buf:object;
( h4 a2 p' `  ido
) k1 T' N4 E# `9 C. K        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)
4 p: V1 j$ Y  q: _) `8 {                when 16 then
  y( E) Q6 \4 U0 ~0 ^1 C                        print"yes";
                when 32 then
                        print"no";
9 A# f, W. T# F; p5 ?                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
9 @' C8 J/ `5 H/ m( V. I  j1 T        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
) O0 X2 p! \/ ^8 a2 k        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
7 ?9 [$ c. t9 g0 E) c, j5 H                machine.deleteobject;
' M/ u  C0 n* I  U( W- u, P        end;
, D6 f. E! Z' G; K5 _  i' |% z9 c        bufname:=sprint("BF",i);
% a7 v8 p) h) R/ D5 M        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
' Y0 _9 i% c: B9 P# c. r* a                buf.deleteobject;
5 G, |5 J7 X  C9 r7 X        end;
        next;
: U. K# U# h! f) h       
2 l: W- h# W# [) C4 o        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
4 f! z* f1 b; B. U, H# Y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
  O6 T5 M. I2 _% ~- D6 \2 `                --mark:=false;
1 `5 l! |. d7 n2 {" l                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
                        print activityspace[1,rows],",",activityspace[2,rows];
( k$ X" |! S0 {4 ^! O# w                        ct:=activityspace[2,rows];
) o) O( E; l. K6 ^2 \* F; i5 D                        activityspace[2,rows]:=activityspace[1,rows];
. ?* }  q9 Y3 G% l* N7 @                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
' T5 b/ _4 _! |) X2 S% F                        dx:=0;
0 c# }' @: j) Y! K                dy:=0;
                        --end;
9 L4 B. ]8 u5 o  `                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
                        dy:=activityspace[2,rows];
' b& A8 \, p7 `                end;
9 t/ `7 a. }; G' P1 R4 N' ~3 \                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
1 N) I9 U  U5 P9 q- o7 O3 l                        activityspace[2,rows]:=activityspace[1,rows];
% |4 W4 H: x5 f  w                        activityspace[1,rows]:=ct;
8 a$ R" _; l2 m3 Y' S' r                        end;*/
& ?4 ~; l. T6 a$ g+ Y        next;
* T8 l* a) g$ Z* Z1 |2 I* j8 g        y_max:=y_max+dy;
9 j  v0 W* ]& [* m        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);
       
        rows:=0;
( Z* K3 {8 B0 D! l# R+ I        lines:=0;
, r0 x6 U+ u5 @        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
5 _: o0 M5 ~; g  n) U% {                                d_from_to_chart[j,i]:=0;
                        else
$ }2 g9 j6 Z1 \, \2 j$ u                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
! q; A6 z' \, T) m! f/ Z! [                next;
        next;
& m  {+ A4 f" e) p# l6 ]' d, I       
4 l% ?: a$ t* ^7 I        lines:=0;
        partstable.delete;
( M1 w& @2 e+ Q6 k, d) f       
' \  A' e+ t$ s% t* G4 l# C  R        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
4 T6 A- V8 I+ |. e. W; ^) X6 h1 K                for j:=1 to number_of_machine loop
4 v( C$ n1 F: e; t                        if w_from_to_chart[j,rows]>0 then
% j2 y6 L' m8 g5 M5 m+ |                        lines:=lines+1;
( {+ h9 j  J8 I; ~5 G2 D                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
% J% \. C. Z  c                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
4 J! \+ j1 X6 E8 c/ J6 |5 l$ q                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
2 m' a) p: `) m) M6 i5 l                end;
( a- l- f- |! W$ r: m        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;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
' W) \% N  N% ]; m, `9 k3 d       
        bufname:=sprint("BF",rows);
7 d9 h3 K8 Q& Z" l2 l" y1 |        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;
) X4 _& w* e% w- {' J' H- C        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
; G. j! i* m- g, ?dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
, X& c- S! |3 q) y+ D" m" Enext;
end;
5 }4 D1 Q* B: i: e