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

zooey

is
3 e! {: C! n8 w" c# T/ O        mark:boolean;
        dx,dy,ct:real;
' ]* G' S) Q1 I- ]" h    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
: ]+ C: c: G8 ado
3 O4 W( M4 m5 Y$ n        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
& }& j- X0 b0 U- a                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
- C2 _! z4 ~* Y' n* S" z& X% Z: e                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
' U, ?" B1 \( v- o: i( ~0 G                end;
, G& A) k3 v+ W! @& X                eventcontroller.stop;
        end;
* y! i* o) K6 q/ i       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
. ]6 {, a, e9 [) B* d                machine.deleteobject;
        end;
/ S2 P& Q% E# H& j        bufname:=sprint("BF",i);
        if existsobject(bufname) then
& B8 g9 [6 ~% D                buf:=str_to_obj(bufname);
4 G1 {8 w# m, g5 K- l                buf.deleteobject;
        end;
        next;
+ P. h# t: \* `8 p7 Y- c$ v* w       
        dx:=0;
/ L2 w' n- I; j- r  v        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 c8 d- {, D+ |. Y+ A2 q3 i/ G                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
. x8 s$ V9 {* @; D+ a4 T                then
3 _( w  z) a, Z0 n3 u% C                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
9 ]; T' Z+ {0 g, C! z) ?                        and activityspace[1,rows]<(1.05*y_max) then
0 [. d3 `; H' Q( b- e                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
% Q1 W3 H" t; l                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
2 c; O1 N, S! k, t                        dx:=0;
                dy:=0;
3 Z! T; c1 N5 L  o' N                        --end;
+ K$ R* @( f# u$ h+ Z                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
$ y: W) Y$ S) n8 N" O                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
+ h  }6 {5 M2 T) ^            if activityspace[2,rows]>dy then
' H7 H! J& v, i( B# C, b  h, k                        dy:=activityspace[2,rows];
: g" e/ [, @. k, ?5 G1 K" E# c" ?                end;
/ W: {' x' j" N  m. K9 v                dx:=dx+activityspace[1,rows];
                /*if mark=true then
1 D: z2 P/ C# F; W0 x- c                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
$ r8 y1 g& v3 _; a" D. o% p+ D                        activityspace[1,rows]:=ct;
; C1 [3 `5 N5 q8 w8 g% d0 e0 Y                        end;*/
        next;
        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);
! M' }! \! T# L, N7 `; G, t        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);
       
7 @- l" g9 t8 q" x5 j/ p        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
/ D! c* K- K% j; d- J                for j:=1 to number_of_machine loop
$ \4 r; i1 r0 }  U. p# Z1 [                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
& t5 u- J1 b/ i                                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];
: y4 B' J' f8 b' |2 Z                                d_from_to_chart[j,i]:=abs(dx-dy);
+ d) o2 g& g8 A                        end;
4 j/ s, _! U5 Y/ p8 q# v                next;
        next;
  n+ [3 f) p. u. w       
- D) m- u' }6 J* _; ^/ G        lines:=0;
        partstable.delete;
( F- \2 W+ E$ v1 W7 W! |9 y" W& K5 F9 v% b       
        for i:=1 to number_of_machine loop
1 [% {0 m/ {" K% G6 W' n$ j+ p# I                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
9 q* _+ t8 F  [! {7 R+ g$ p0 T4 k  F                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"));
* A, S, ^( X- k5 D) ~- K3 L                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
* y/ E+ W$ W" R- u9 L) t+ r                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
6 z  c  v! M1 |. V3 R! p5 b        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]);
3 I3 }' S+ o+ b% A* a3 v$ e' Y        machine.name:=machinename;标识符未知
+ K( l0 E2 v- m        machine.proctime:=5;
8 @2 h# G  [0 T) {: u2 H        machine.label:=activityspace[0,rows];
) D- h+ J& e; k        machine.exitctrl:=ref(leave);
" c" g! R. `% D# ]: K- b       
8 \& p: g, n3 ]' ^& v        bufname:=sprint("BF",rows);
0 A, O, a* }* a) i        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;
        .materialflow.connector.connect(buf,machine);
       
  k; a3 `, v7 @( E9 X, h; ?4 `) A        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
/ c. \& W# C4 f7 `0 N  gdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
) S# L/ b4 d8 O$ Icurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;