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

zooey

is
        mark:boolean;
$ z+ `* Q7 c8 T% l6 E/ {0 a        dx,dy,ct:real;
    i,j,rows,lines:integer;
# L. w0 i8 D0 A$ h1 ?    machinename,bufname:string;
$ p: U: P0 z1 H% O9 Q    machine,buf:object;
do
        current.eraselayer(1);
       
! S4 p( d: b, o8 Q        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
7 a9 V) l* V5 R: X4 {& F                inspect messagebox("设施数目不对！请核查...,",50,13)
, m' O# \* e9 h9 y% n( A$ T9 L                when 16 then
" r' M$ q- L. Y' j7 c/ _                        print"yes";
2 X1 |- l8 f5 T4 }4 \                when 32 then
( Q$ Q4 F$ c  \# O; B, l                        print"no";
                else
                        print"cancel";
                end;
+ c3 i( i% d2 C, a" t3 ?  B1 H                eventcontroller.stop;
        end;
) o  i3 ]% {% _       
+ f. m6 P* t4 H; d' G        for i:=1 to number_of_machine loop
6 J, Z6 q9 M5 s, {        machinename:=sprint("M",i);
2 \* |. l% i7 o4 d$ g: m& n        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
! Y8 l0 n) q: i! w9 B                machine.deleteobject;
' e6 J/ p* }3 I5 k/ H+ B( C        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
' b5 p3 P0 Z6 u! y9 G                buf.deleteobject;
        end;
+ Z( r7 a' e. p1 C1 Q5 Q        next;
' M8 Z8 Z# M) F       
        dx:=0;
        dy:=0;
2 Y, M5 K2 H9 F' ]5 w2 Y        for i:=1 to number_of_machine loop
% ~* e2 G) L" z( Q                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& X9 X7 D# u" ?; k6 x                --mark:=false;
: |6 [* D8 a0 q                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
" m. e% V: j# q# w2 T7 }                        and activityspace[1,rows]<(1.05*y_max) then
! b$ r0 E4 Q$ s                        print activityspace[1,rows],",",activityspace[2,rows];
9 N9 g9 h) @/ z1 r) }, u) n  F1 U                        ct:=activityspace[2,rows];
- z" Q2 v7 o1 U7 p( l1 Y' \" d                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
9 F+ o6 m# w, W' Q) s& `; l  P                        mark:=true;
1 [6 o$ Z' n, O) p1 W) X2 h                        else*/
2 a0 O$ [* ?7 {3 c( p1 |& ]& q                        y_max:=y_max+dy;
                        dx:=0;
& K1 \" p" x( I  b  P8 m$ b) Y                dy:=0;
7 p3 W& J& F4 d! U' u                        --end;
                end;
5 k5 R% f* Y9 C& t                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
/ T) P1 s- r2 j# V                dx:=dx+activityspace[1,rows];
$ T, L# H( _* }- |0 g) z" F1 w* T                /*if mark=true then
0 N# E: `' t$ R# ^5 k                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
# V" R5 b8 u  X% r; M' w                        activityspace[1,rows]:=ct;
                        end;*/
        next;
* P9 N# _) R, |        y_max:=y_max+dy;
0 G1 W7 s6 f8 d* O        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);
$ f1 Z) F/ ]2 L6 p9 ]- e' o        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);
5 A. E) g6 ^5 j% C7 T" }: e8 O       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
9 M2 L6 A) p& F# X2 |3 D4 b% F                        if j=i then
4 p) o, l- d9 b  p! O; O                                d_from_to_chart[j,i]:=0;
; `; S: o* d, v- Y1 a, P                        else
7 a$ H# Y; a6 V; t9 E                                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);
& D! b+ G# f0 R. v9 P9 v9 N. s& T                        end;
, Q, O0 y/ h! i3 C  O                next;
        next;
. K# F1 n3 ]  g7 R3 m- J* _       
9 K7 a/ e2 Q% H% W        lines:=0;
3 [3 ~) X( f# [        partstable.delete;
       
; c# n9 K! S7 H9 @1 k, H: E        for i:=1 to number_of_machine loop
* a4 H, i/ I$ s* Z; P                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
8 M  s9 @& ~) `9 F% c) ^. D, p                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
/ I+ ?" }. b2 ]+ e, n3 p                        partstable[2,lines]:=w_from_to_chart[j,rows];
/ X/ ~) c6 u/ G& B) y6 [# {! @* J                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
; f6 W2 g" C1 W0 n  |6 ?+ S                end;
9 V% w  h7 r/ z( R        next;
        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;标识符未知
% H- w& i( [& ?! ^6 R; M        machine.proctime:=5;
( y3 h. [" p$ \2 Y. c' p* l; x        machine.label:=activityspace[0,rows];
( A# {2 {3 n$ Q$ @/ j        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
! T) Q& v) w6 e) A) P1 U' L        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]);
3 k6 |- z! w$ e. L4 \' k        buf.name:=bufname;
        buf.capacity:=5000;
8 `& Q* c6 |% G) V& E        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
4 b1 m9 [" H6 h4 ^2 _# r5 T( P7 e       
  I6 h0 }# D/ [7 [  G3 W2 w        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
- ~% D! y* ~# u6 kcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
' q& v/ p% }1 J: c  g) pnext;
end;