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

zooey

is
3 K; a( I( p9 g5 u  _" o        mark:boolean;
        dx,dy,ct:real;
" `- e- i& ]. g5 s5 g    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
9 w( G$ {9 K4 E3 h) ^        current.eraselayer(1);
- K  A$ i) u" l, J5 ]       
. [# N/ p( g+ l/ s        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
- b) ?  Z6 n9 L' N7 Q7 u* d                when 16 then
2 y0 a/ ^) D: z. l* W6 ]" d                        print"yes";
                when 32 then
) l* U) F" ^! X7 t' i                        print"no";
" R: \; Y- k# g4 J/ U/ W8 L+ o                else
' M, O! c: ~4 t                        print"cancel";
- t! }9 p5 _$ ~+ x+ z8 A! S                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
% X1 j# z+ e: o% G3 f3 m9 G        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
- v; V7 ^9 r1 j: Z; P- e7 K9 L  T$ J                machine.deleteobject;
        end;
! O6 F* K4 n3 d        bufname:=sprint("BF",i);
" b" H7 U, Q9 S+ ^# D9 i        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
+ Z9 V% @  ~9 y9 Y                buf.deleteobject;
0 l* c% {+ f; Z, W+ J  T        end;
        next;
; I) q0 t+ d$ P) ]# g2 b, C. Q       
        dx:=0;
2 G: M9 q8 b. E2 M' ]& ~8 t        dy:=0;
& Q- P5 }- A5 {( J$ |- I1 a' H. d        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
' B  N2 v) j6 v3 _                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
: l0 X+ @7 \; h8 h                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
) ~# `4 ~! [9 p2 N1 f# U4 {                        and activityspace[1,rows]<(1.05*y_max) then
! u1 e8 T  e( ]                        print activityspace[1,rows],",",activityspace[2,rows];
/ J) t5 H. d4 s                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
) s4 ^) e* x+ p. Q, M. P5 v, O                        activityspace[1,rows]:=ct;
# d5 f6 @$ m, X8 A# ]                        mark:=true;
                        else*/
0 y9 `3 N# Z: c                        y_max:=y_max+dy;
- @* O. }: k  m' \& m. p                        dx:=0;
. C% |6 ~* A7 ]# O% R+ p                dy:=0;
                        --end;
                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;
$ q) x- x* g1 r1 g            if activityspace[2,rows]>dy then
# q/ x' t% Q. N+ j1 Q3 {) z                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
5 N3 \# a. G6 M. b/ t                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
* v2 m6 e$ W6 H        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);
6 e' x0 e; z. Q+ `% a        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;
0 w! y9 ]& {; Y. z: n$ @  y        lines:=0;
/ t  v8 A1 N8 W* m7 H0 Q2 S' @        for i:=1 to number_of_machine loop
3 Q" C2 C6 U! w2 g5 P% c. \                for j:=1 to number_of_machine loop
- a. M; _' J3 o# y                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
4 z7 c2 M. l& W5 D                                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];
1 d: R' Q$ K! v8 s* a8 u2 n                                d_from_to_chart[j,i]:=abs(dx-dy);
" A3 H; P4 ?4 \* }4 E8 p5 x                        end;
                next;
: P  E) A8 X! A& [8 n4 R. o4 k  }- T        next;
( C3 N- ?; p# V+ R5 X       
! l$ v" |" O- J% y: T        lines:=0;
6 b: ~/ I6 A! K2 y        partstable.delete;
       
; O2 A2 O( `, u        for i:=1 to number_of_machine loop
4 ], A( h* i9 ]& P9 j! f3 \8 P                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
% D& ]5 @  ]2 }) N/ i                        if w_from_to_chart[j,rows]>0 then
; T- {/ E. U) z) h* |, Z$ ]                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
* V+ G& W, g4 y7 O. W" x  @                        partstable[6,lines]:=j;
) \  R# X8 H  i: }  e                end;
        next;
! u- R: X5 Y% R0 a/ E        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];
% c5 i6 ]& E1 O9 {/ D! q        machine.exitctrl:=ref(leave);
       
9 f" X6 @; T0 l7 c/ W        bufname:=sprint("BF",rows);
1 \2 W# m2 ^$ i" S" p, _) U        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;
, C# g  v( B+ @; Q' x- q2 F        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;
" W* g9 V+ Z! _" A) ]) y4 }* ^9 Q* Qdy:=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);
next;
$ T1 a  e/ I- Z% hend;