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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
' E& H* L' ~+ S6 Q- q. r    i,j,rows,lines:integer;
    machinename,bufname:string;
; |& @- z, M; v. |% H: g    machine,buf:object;
: `) f! r$ _# ~9 h8 bdo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
/ e, J# w: F! Y$ A/ Y" c3 X                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
; W& b1 K# i2 x/ @7 U6 f7 S                        print"yes";
; v! J5 t; y- z1 ~5 A                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
% V; @8 z( H* n/ l" s        end;
       
" u2 U3 X# w; g8 j  ?9 t+ j- [; E" ]4 v        for i:=1 to number_of_machine loop
" g7 R  m; w& J3 j, d7 h0 @        machinename:=sprint("M",i);
& b0 ?4 O' ~# @* g" x: `! b0 w        if existsobject(machinename) then
( F' x" i: B  k                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
2 O: r9 R9 W1 H# h3 d        if existsobject(bufname) then
' Q' O: B2 ]) E                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
; Y. ]( ~6 [, n4 n- T8 }        dx:=0;
. `# L+ q' b! ]& m0 t( a3 H5 Y        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 P0 g  s, d# `" Z" T                --mark:=false;
0 R: d$ H% }0 Y3 s+ w) K6 E" w% r                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
. n" D+ C3 U5 A8 {- e                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
- L1 [! i& X6 @* j/ i( n: U7 D                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
' u) W% S3 R; Q& u& Q8 _6 l                        ct:=activityspace[2,rows];
- [; R) o7 C+ o& D- K  `                        activityspace[2,rows]:=activityspace[1,rows];
) j( t- ]9 Q9 Y- `5 T                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
" d( I( e/ s/ [- s! S* o                        y_max:=y_max+dy;
7 W) u! f5 U1 {2 @7 z                        dx:=0;
. @3 ~+ X$ r6 W) l9 I& d% C" T3 o                dy:=0;
+ p7 I/ w: c3 U' U" x$ T) J                        --end;
7 m/ {) L" F& M: _7 q, G                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 g3 M, \) I" s. L8 G* M                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
* n( z6 }+ Y& [9 i) o; E            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
9 G& f1 }6 v8 V& T% B$ o                end;
/ O# i$ z) U1 z6 y1 r- r! b( I                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
! H9 |/ }; G1 D4 @1 t                        activityspace[1,rows]:=ct;
                        end;*/
8 @1 K3 u0 |  o8 ]  \. G        next;
/ Z0 G8 G  M5 {$ ~) r        y_max:=y_max+dy;
3 R6 S! D( M! T8 J' q, `; D: I        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);
# L4 R+ d, A% t4 n# f0 v        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);
2 O5 ~. C5 z. n" [( E& ^: v2 ]5 L       
1 Z* @+ U! u$ ~; B! J0 b5 N& a        rows:=0;
4 Z/ s! P- e+ V' v! }( F4 |4 ?# T* _1 r        lines:=0;
        for i:=1 to number_of_machine loop
9 A; V0 p2 {# W+ t                for j:=1 to number_of_machine loop
$ j2 b2 r  {4 J- {, N, D                        if j=i then
                                d_from_to_chart[j,i]:=0;
* O# b+ e1 O! C: k8 T2 ]                        else
& |" C- X3 `  i& k# x9 `                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
' N2 z% N% D4 u2 I  f                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
. y  v2 T5 |! z# F1 S" I                                d_from_to_chart[j,i]:=abs(dx-dy);
5 A* `' U' ^# _; e                        end;
% W. ]% ~1 {6 u2 F1 _' I                next;
) A6 z, t  h3 \" N        next;
& Z! [: A. ~8 K7 p+ L. P( z0 o, \       
        lines:=0;
: P8 p2 n* |! W' R) V        partstable.delete;
       
+ [2 _. n# E6 f7 @        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& ?8 _- Y& z7 P3 `6 o: B) @, |: A9 t                machinesequence[2,i]:=rows;
' t$ T0 h! G4 m( X3 U- e/ x% y6 z+ u; z                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
% D$ Q; [7 n+ P7 t+ V6 ~5 L                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
2 k4 g$ ?( d) n7 Y* h1 F                        partstable[6,lines]:=j;
5 w% D# F/ m. N                end;
        next;
+ Y, F9 ]5 S# U2 w  H6 M- ?; d        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];
% Z* J  ^& }0 {# l& E/ e        machine.exitctrl:=ref(leave);
       
        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;
        buf.proctime:=0;
8 m$ [- \& W2 Q3 o' X. T        .materialflow.connector.connect(buf,machine);
0 [6 f- g7 L5 p1 p7 v5 l       
: i2 K# h5 G- z2 s        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
2 d/ j5 @3 g* o$ h+ _dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
9 X1 ~, M* ^8 V, K* qcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
4 k0 G7 A5 d% O' l- h" `: znext;
end;