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

zooey

is
& k0 h$ ~8 H' d* @0 A) G        mark:boolean;
        dx,dy,ct:real;
8 W) C) J1 R! S" O4 c* t( n0 D0 w    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
; ~7 q8 t: c. _8 m5 }  B                inspect messagebox("设施数目不对！请核查...,",50,13)
: z  g/ P/ k$ Q* I) ]                when 16 then
                        print"yes";
                when 32 then
                        print"no";
% t+ Z1 s, J& T# K+ B. e3 q                else
( {. E& ^. L. H# f- C+ t7 K' e- l                        print"cancel";
                end;
/ |4 F( \% _0 x* Y/ {4 ?6 x                eventcontroller.stop;
6 w# _4 z3 e  ]6 i/ p6 e7 I( F& Z        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
" b! a8 o! E- S6 ~2 U/ \        if existsobject(machinename) then
( d' P- k4 V, C4 b9 e9 _% u                machine:=str_to_obj(machinename);
- v5 R1 P" s9 ?( s0 O0 q                machine.deleteobject;
1 f" s$ V5 d6 r0 E8 r8 P& G        end;
" ~, S0 `$ ?$ `% F7 s        bufname:=sprint("BF",i);
7 D9 w4 {0 K8 t" ^4 K1 a        if existsobject(bufname) then
& b4 ?; p& {% F$ u2 V                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
* h. b% I$ g  E" r, n- j& M        dx:=0;
) r( ]! E( A% v        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
0 ], G& I0 M! r0 A% U+ `                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
+ s) z+ ]9 x/ L( [6 @! _7 r. d                        and activityspace[1,rows]<(1.05*y_max) then
2 R; I2 r6 O, S! P9 e+ @. r                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
( L; s4 z4 u2 T9 i( Z  ]                        activityspace[2,rows]:=activityspace[1,rows];
; @) ~) B* z% H4 p7 x                        activityspace[1,rows]:=ct;
                        mark:=true;
, a* l7 s8 P4 E7 Q                        else*/
) y( v) `- V- F2 T4 j! I                        y_max:=y_max+dy;
                        dx:=0;
) g2 \+ u; `! \4 {0 E                dy:=0;
" w8 M4 v6 s( G' ]1 r2 [# y  D                        --end;
                end;
+ F5 v2 c' A: `( _2 d                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
1 j, g6 C$ Z' x4 w( p( L                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
0 U7 x# M' s: Q- z$ b8 r" \0 |                        dy:=activityspace[2,rows];
1 {  Z  ^5 t2 ]; ?, ]  t+ X                end;
& P- }; c, A6 D. |                dx:=dx+activityspace[1,rows];
1 |. {/ Z: N! v2 f- V5 e9 y                /*if mark=true then
# ]  z5 w4 ~1 O8 y) p; {4 Z                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        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);
        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;
        lines:=0;
" c: o% ~7 B0 j- d* J; `        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;
! r1 @: V, U  a; r                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
: A: u0 Y" A4 ?/ R" ^$ g7 K* F: w                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
* x$ \4 ]. S1 `8 ?. I! A0 I1 e: [2 j                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
! a# c& [9 F+ y+ o        next;
& _, e  }" h6 P/ d       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
- @" K8 [/ x* T8 h                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 J7 C9 s( |: ^" K$ O                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
& z& V& u8 Z, S* d                        if w_from_to_chart[j,rows]>0 then
3 X+ a& |# i! q1 X5 G                        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;
                        partstable[6,lines]:=j;
2 E, v0 N+ K  `  V# S) X( X                end;
# @1 f7 e  I% J# E$ w- Y, e% ]$ `9 a        next;
0 `1 s# v- 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]);
: Q0 ^* L4 Q/ \        machine.name:=machinename;标识符未知
        machine.proctime:=5;
7 D- o% m: Z! m, F        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
+ B; z5 F8 D" k  g! F       
1 f# s2 P+ w7 X0 ^) _, B        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;
- T; a! J& x8 c0 ^; ?        buf.capacity:=5000;
        buf.proctime:=0;
1 p+ \4 k6 S* o, y, @% C2 j7 O$ J& ^' X  P        .materialflow.connector.connect(buf,machine);
( S  B4 n! }! |/ z9 I       
* V# X- \! u" l+ N8 V        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
) N  a2 y4 w* _( }9 ~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);
. }; i- e% m' Dnext;
end;
2 _6 e. I$ Z* N3 K