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

zooey

is
1 Z9 W! j: M1 S' |% d2 j1 d& z        mark:boolean;
        dx,dy,ct:real;
( i5 F6 k4 i% L* @$ o& {2 X    i,j,rows,lines:integer;
    machinename,bufname:string;
+ X+ l1 O$ H; M' R2 _; ^    machine,buf:object;
do
        current.eraselayer(1);
4 P3 |8 W1 R* [, b8 |! c: j       
  Z) p! I8 [) k: \! y/ U, N        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
7 C4 a8 Z& S1 e                when 16 then
                        print"yes";
! e8 \1 x2 B" c                when 32 then
6 J" w3 Y5 M& ^: i8 f                        print"no";
) F/ x1 G' H1 e2 v                else
- m& E; [1 r7 f! j8 d                        print"cancel";
                end;
                eventcontroller.stop;
) h+ k% L3 z% u        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
+ U* l6 Z8 c/ p( r5 n, S        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
+ G1 i. `) Q, N        end;
" x2 `% a1 H9 \& d* n, P        bufname:=sprint("BF",i);
        if existsobject(bufname) then
3 X3 t2 Z, u" X5 f3 J% X( Z  q                buf:=str_to_obj(bufname);
3 I  r, |0 ^1 r. L, L$ b  n, g                buf.deleteobject;
        end;
        next;
4 a2 N0 c9 \# s) }3 W6 {$ h& `2 H       
% q4 D, n8 q4 l9 b0 a$ `3 C/ `' q1 K        dx:=0;
, [( \4 ^" c1 }; G        dy:=0;
' U" }. ?, I" C( S, J4 \. F: k        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ K! \/ O2 k# M+ t! z                --mark:=false;
" x* J  K1 f4 ^' _                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
0 c- v) |) x0 A3 U. M7 p                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
8 Z8 [" b+ k0 F! M) z, C" h                        print activityspace[1,rows],",",activityspace[2,rows];
9 N  o. d7 Q5 w" }, t! }6 ~) ?$ Y                        ct:=activityspace[2,rows];
' O; Y$ P9 w6 H. R$ N; t- _! r                        activityspace[2,rows]:=activityspace[1,rows];
5 G$ I& F( ~1 v2 d/ e                        activityspace[1,rows]:=ct;
5 B5 w- C$ u5 [8 B7 l& \0 r                        mark:=true;
  v0 u3 a! j$ U% Y3 Q7 v* q0 t                        else*/
# [1 M  F1 p+ b4 ^$ m  p                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
6 {" Y# W% ^5 N                        --end;
" g4 R0 e. k0 t+ X! |! ^9 P8 r/ y' c, `                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
- h0 n, @0 }  u, J& h6 t: ~" }                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
) n7 \! O6 A, \7 X" _  T; U1 T                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
5 n6 M' y8 L, `8 a5 F                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
/ f- N! {7 O. n8 m        next;
        y_max:=y_max+dy;
; E& w' O2 R4 \        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);
9 `* O" L' ^( `7 [  z       
* u% g3 f, E5 s8 \4 _        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
( r" h2 Y+ ~* @0 [: g                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
& }1 g2 I- l8 x* I4 B) 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;
                next;
! t( e2 P0 K; x5 a8 h: h+ b4 `# [8 I        next;
       
        lines:=0;
. r6 `3 C4 s- b5 h        partstable.delete;
       
' Q8 ^$ D# B1 I$ \- k) {* v        for i:=1 to number_of_machine loop
& L9 F* V/ w: B- {                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
# n/ @! c0 Z* S- Z; R1 e2 N& p+ @                for j:=1 to number_of_machine loop
" }- E/ Z! H1 F0 N. F+ y                        if w_from_to_chart[j,rows]>0 then
( p% @5 h- S6 r, l                        lines:=lines+1;
% R4 L/ D* Z3 o8 ]8 U                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
' G" X# B) d; M                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
  b/ o* e6 S7 R                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
2 A4 x7 g8 U  K! o# U                end;
        next;
; N( Y+ H- Y0 z; |; ^        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;
3 c5 F1 x8 E" s2 D- E. \        machine.label:=activityspace[0,rows];
+ E0 ~) v. N4 D( Q  A8 X        machine.exitctrl:=ref(leave);
5 _0 g! W  C$ b+ D' @       
, O& {9 t7 s+ R& n8 \6 W" _        bufname:=sprint("BF",rows);
; X- o) O; S+ e        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]);
" H: m/ I( _- `$ G        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
8 u! X3 a2 p  S9 Q: A! I. L3 g: |: d; K        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
) [* g$ U; z( G7 `4 W" Fdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
, K( r! s- h, E* ]current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
- T% K: L- \" Y' Y* l2 o, @next;
2 z2 S  b# |0 S6 jend;