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

zooey

is
2 `% o) R  U; S& m" ^9 {1 L        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
& p: W) X" e0 }/ a/ k    machinename,bufname:string;
    machine,buf:object;
# X- X5 ~5 a9 G' `9 o5 T! I9 r0 Ddo
8 l$ \5 }7 D8 s% ]+ L3 S        current.eraselayer(1);
. H$ m2 [$ J- \0 s9 T$ h, a       
- ~9 K& D& O- Y0 ~( w, b        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
% d, Z0 H! Z. }8 T: O                inspect messagebox("设施数目不对！请核查...,",50,13)
9 p4 M# T1 d4 L# b$ d# Z$ y' \                when 16 then
  m; z% D# v$ K2 @                        print"yes";
                when 32 then
                        print"no";
7 ?4 ?/ O1 [9 h7 s% y" ]# B+ i                else
                        print"cancel";
                end;
                eventcontroller.stop;
6 D' }6 K( i3 h2 {9 |' _' Y( F% O        end;
       
        for i:=1 to number_of_machine loop
4 Z; |4 K6 p# S        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
( s' L* G/ n3 D* D" c5 s( q                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
6 @% i5 L$ K% |+ J) O, ?+ V* C        if existsobject(bufname) then
; e: ?$ _2 {4 G, l0 z                buf:=str_to_obj(bufname);
                buf.deleteobject;
& t- @! h% K, l. @% ]. N9 ~- D% v        end;
8 x( T# F. Z7 y8 x        next;
       
4 a! n' W# U3 U/ ]' r        dx:=0;
        dy:=0;
+ C$ g  Y) x" U' b        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
8 {8 |7 R! V) z2 \                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
- T( B5 c6 F* Y4 ]                then
  S! Z+ A) T; S6 \6 b                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
% _# l% [+ X, h2 \                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
% ^- e% P3 V0 s' Q                        activityspace[1,rows]:=ct;
8 F0 |% k& A& U" b6 r% C9 |                        mark:=true;
: a1 p) y/ v$ f1 x                        else*/
                        y_max:=y_max+dy;
) r2 d0 `' p2 N; |6 @                        dx:=0;
+ F) Y( F) K2 [$ j* S! P3 s                dy:=0;
                        --end;
' G: H5 P$ ]! F7 N1 D( u                end;
2 @9 Q' N/ a& r) `# U! r4 g                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
0 ~7 v' L1 F' H2 C+ u, \( _                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
/ Z3 T- e5 U8 r5 l! v- w                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
3 g' Q: ^+ k2 a2 f4 r9 b; |        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);
8 E, b: A7 M( f) d) M$ W% z        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);
       
" t& @9 z+ {7 z        rows:=0;
        lines:=0;
, M1 j' Y3 i7 s: F& |/ k" W        for i:=1 to number_of_machine loop
" m7 n, _& d7 {3 f9 J4 D( h. C                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
% Q- J" g, p/ [6 e/ B                        else
, @" |/ Y1 V3 z* h                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
7 [6 @" i; o9 ]                        end;
                next;
        next;
; ^* e" J& i( }' C/ c# s. W       
% q4 `) v; X, v        lines:=0;
( {5 o! D' D) L9 K, x$ D        partstable.delete;
       
/ n% q  V7 ?) V; ^        for i:=1 to number_of_machine loop
! O9 H* M3 h. Q" |) ]6 d# T, S                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
% U6 W, G3 N; _3 G1 Q9 a                for j:=1 to number_of_machine loop
, B. j, P: _4 _; c; U0 n# m3 I                        if w_from_to_chart[j,rows]>0 then
- x: @" a5 g1 ^/ `                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
7 ^2 S2 d9 F$ n2 L; U                        partstable[3,lines]:=sprint("parts");
& S8 l4 D; H% `1 t  y                        partstable[5,lines]:=rows;
$ s- T6 n: V' D7 B9 ^                        partstable[6,lines]:=j;
' E2 r7 S' x) v+ S" y  r( G                end;
  ~% e5 G/ w) f8 h        next;
& V  P. S- @9 v! d; q' t4 x$ H        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;标识符未知
$ d& G; C; W" h8 ^" y" i+ k3 ]        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
  h% v7 X2 g& c5 w3 D        machine.exitctrl:=ref(leave);
2 \2 [8 H4 ]" z5 S/ I       
1 S8 F1 H# {& i; m+ d4 R        bufname:=sprint("BF",rows);
4 |7 X6 D8 B, O) I$ u$ Y0 j- g: x        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;
7 ]9 P& g, ]+ n        buf.proctime:=0;
# {. c( Q8 M% d1 [        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
/ X  S0 D( m/ }% j' b# _/ Pdy:=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;
end;