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

zooey

is
# U) M1 F6 I5 d        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
, z0 F# k5 c& d: G6 u5 @  h6 ~5 d    machine,buf:object;
0 i7 r, |1 ^) x9 B: Ydo
) c1 l5 g3 p0 }, f        current.eraselayer(1);
       
/ y. ?8 K* f+ F# d1 Z4 q# y9 P        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
% X( p! ]1 v/ K& h% ]* _                when 16 then
2 R+ C+ e6 }1 R6 U; j( i, a% A9 H% E6 D                        print"yes";
9 {$ I' W3 p0 `7 O2 x: z. H* Q, R3 x                when 32 then
" K/ L( }' _( |' U5 y. }  z                        print"no";
7 f' K9 a  E" M( d. ^, w                else
" A' b. t- Y0 H' P" Q                        print"cancel";
8 ]/ @2 o9 _- U0 e# H0 Q0 C                end;
, D6 W9 u  t1 r3 ~* Y" D                eventcontroller.stop;
        end;
       
6 E" \" x2 l/ n6 R1 f- Y# M) q        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
/ {5 B$ X8 Y4 y, k3 d6 M7 D        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
4 f( y% h7 L' [        bufname:=sprint("BF",i);
$ e; |; b/ P2 u9 T) R" u5 `        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
1 }5 q. i5 @4 R2 o        next;
2 K9 A' O% j' `) J1 G5 o6 W       
        dx:=0;
) ^. ]( }. k% B- x        dy:=0;
$ B9 _8 J, ?2 I! I; ?9 `7 K* y( Y% ?        for i:=1 to number_of_machine loop
0 a9 F% y7 M6 b) q                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
7 v" Q( r- l2 l# J/ U                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
" t% M, k. W. p9 u, {3 p' t, R                then
. R" A( y% g1 O  f: D% t3 B; S                        /*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];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
; I5 ?5 d! ]9 F: L4 _8 ^. |                        activityspace[1,rows]:=ct;
: d# A2 C! y' w! n8 s$ n1 y                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
; U1 _& ?5 |6 i8 N                        dx:=0;
                dy:=0;
                        --end;
                end;
' i) w/ ?% J& c$ P+ l. A                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
4 f( n6 c1 E3 x6 c                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
7 b/ l, B& t2 h% \            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
/ P( j& [9 u& p5 b, H                end;
                dx:=dx+activityspace[1,rows];
# D+ W. p2 C7 x" f                /*if mark=true then
3 M& ?# H1 T0 n                ct:=activityspace[2,rows];
' ]2 u7 P5 p2 L6 }                        activityspace[2,rows]:=activityspace[1,rows];
) [5 e  X5 R' A" f( i                        activityspace[1,rows]:=ct;
( u- C5 P3 I) n- w2 i( R8 [                        end;*/
        next;
        y_max:=y_max+dy;
2 N/ l# {3 |0 T, c7 d        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);
       
) R& E, s9 d$ ~        rows:=0;
        lines:=0;
9 u9 j  l% [! }- s( A9 G        for i:=1 to number_of_machine loop
2 {, x' ?; C( D' ], s; d& S4 V/ I/ h& P                for j:=1 to number_of_machine loop
" ?& Z/ I+ o7 O. s) Z" y. [% T8 |                        if j=i then
+ n  z! s4 `: k' Q9 O5 o$ Q                                d_from_to_chart[j,i]:=0;
2 i. a' p2 t- P& T5 D                        else
) Y+ n6 r, Y2 X2 g. w" e                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
% Z  g# A3 ^, Y# r                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
* K- |4 L% H) c8 h- R) B( I1 I                                d_from_to_chart[j,i]:=abs(dx-dy);
- C3 d% }4 m8 K4 f                        end;
: C$ n- j5 }  m1 g                next;
8 S: w2 g- T, _& G/ [  S/ o2 _( d        next;
+ f) n, b" ?, ^% a- b       
        lines:=0;
9 }% t' G/ P* I1 i7 R8 y5 j0 O# `        partstable.delete;
" @* f3 V  J. _4 s7 c  Y       
! U/ n& \* X; R, b6 [. a: S        for i:=1 to number_of_machine loop
6 v0 x0 e$ z# y# G  N6 I                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% U+ C% F5 E. j. n9 d" Z                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
/ ?1 @! b+ d& s$ g                        if w_from_to_chart[j,rows]>0 then
0 l+ R9 e0 R7 G. p2 k                        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+ D* |; \9 \; G& S/ h( o9 y0 I                        partstable[6,lines]:=j;
2 ]# d9 V4 s( E. c4 N                end;
3 n& E8 G) x( `; q& V* Z1 }, O5 C        next;
! u4 Q7 z( a& E7 Z" H# Y        machinename:=sprint("M",rows);
' D1 H( l8 g+ d1 U. H  [        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]);
6 ?5 K- B& M& i: g. W' s        machine.name:=machinename;标识符未知
        machine.proctime:=5;
1 \# B4 v# d7 q) @1 z) d        machine.label:=activityspace[0,rows];
9 m2 {0 v7 o$ j3 K        machine.exitctrl:=ref(leave);
6 ?3 y& m& V' n) L       
        bufname:=sprint("BF",rows);
7 x9 O/ K" C0 l8 {# p% k8 ?        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]);
- o9 ~! j0 S2 _        buf.name:=bufname;
3 Z7 _$ O1 ], u$ X        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
0 I6 C1 t. k# U, n" G       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
" }; O4 N( G5 Y" ?# }/ Ody:=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);
7 {0 e5 b- w- z' w4 v9 mnext;
, C& V$ k/ o$ J, l4 s7 {end;