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

zooey

is
        mark:boolean;
3 V' C& p8 n4 [        dx,dy,ct:real;
0 v* y5 g3 _: R9 o, p" v8 \    i,j,rows,lines:integer;
: ?: K/ U1 F0 S. \    machinename,bufname:string;
0 b% u5 r' I2 `: y9 \/ R    machine,buf:object;
0 A7 }2 Y* E1 ^: Hdo
% h; _" ?3 J8 s! O. f! `8 F        current.eraselayer(1);
4 O: H; T% E) N# g/ c; c       
) ?; v2 ~0 p+ R        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
# M) n# v2 @! |3 ^                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
: p6 F& `' l& F" D' b3 f                        print"yes";
                when 32 then
- K: l0 g+ G; k9 a+ @2 X                        print"no";
                else
                        print"cancel";
) F( f6 b7 K% ~: \9 d( [                end;
                eventcontroller.stop;
3 D- r2 F3 {7 }% c7 q/ B# y# W& k, a        end;
       
9 C* \) _' w! M( |        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
) V6 r  I3 ]) V: V8 N        if existsobject(machinename) then
( r$ R9 m' }) W                machine:=str_to_obj(machinename);
: `0 s* L5 z$ J) I* l' F/ Q                machine.deleteobject;
0 V# Y  J" a: ^$ f: {: M% j        end;
        bufname:=sprint("BF",i);
) x! ^/ g$ _4 f2 t. a        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
6 ^& N; @" o8 p, G        end;
        next;
       
        dx:=0;
# U6 I% ^* j8 s8 x! O        dy:=0;
        for i:=1 to number_of_machine loop
3 U$ f, Q; A/ e4 [" g                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
: y; v. I$ _% ~! |5 t                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
' a3 y6 |# U, ~/ V                then
8 X5 \! O% r! 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];
( @, w9 M! V+ X8 v# A9 g; X                        ct:=activityspace[2,rows];
) F- W9 y$ x8 M  v3 K. B4 @                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
# q& ~6 Y# u3 J$ U  ~) s( e0 J                        y_max:=y_max+dy;
' F2 e# l+ \1 |2 L; y                        dx:=0;
4 c: O# z4 x0 @/ ~                dy:=0;
4 J* Z8 L6 C- Y                        --end;
                end;
4 o$ }$ q; v( A/ F3 y. o" }# i                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;
3 P# l& O6 D. ^  ]6 F            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
0 ~+ ^. |+ {7 a# |. ^2 I2 l                dx:=dx+activityspace[1,rows];
. H0 f" ?# _0 N* |; K% U. W                /*if mark=true then
  ~* B( T4 [, T) P  ?                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
5 B) J$ i* g  y        next;
8 N7 t$ x  w, {7 L* L: Y        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);
( B1 q# P# Q4 x% t! L1 U- 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);
; C6 Y! X6 C2 D! v% a       
        rows:=0;
. w6 P. w* M  V7 B1 U7 a- ^        lines:=0;
# ^. D: @* j( I/ n" X, n  ?0 w        for i:=1 to number_of_machine loop
3 T' N9 A5 @- p) }( I) y: q/ s* J2 `                for j:=1 to number_of_machine loop
  S1 ?6 i  q. t                        if j=i then
9 c) l2 A! @0 V* u+ C                                d_from_to_chart[j,i]:=0;
( U, B/ D$ A# N! x, [  Y+ K                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
/ \% z4 ?7 b$ [. E9 F5 j                                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;
2 @9 t; B' _5 X1 G& w        next;
2 N+ c  F  W0 F       
        lines:=0;
        partstable.delete;
) Q1 }" W/ s/ Y. L5 c* h4 U       
4 p, ?% K8 r% @( ], ^6 Z; h8 L        for i:=1 to number_of_machine loop
- d/ [6 D2 H+ j0 q! Y/ y- k                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 K% O1 \) a, |4 s6 M. S, a( m                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
7 C; n! m( ]% ?" D6 u+ U0 h                        if w_from_to_chart[j,rows]>0 then
                        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");
; h3 j, e' Y+ `5 K; Y% _                        partstable[5,lines]:=rows;
9 Q% Y+ m+ e+ Z; t9 O% }4 n                        partstable[6,lines]:=j;
; m* x4 c% C" N1 G$ P: K; l# N                end;
        next;
        machinename:=sprint("M",rows);
1 J9 b# o, I0 C  j( Q' O" |        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 b0 o: u+ z3 y2 D        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
: `$ I+ _% B3 }9 u: v/ Z6 s" p/ ]       
. D3 }* V$ r7 ~- ~: t. Y        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]);
  B! z2 \3 C  e2 R5 r. `        buf.name:=bufname;
6 X! P2 k6 K+ g. @7 L: b        buf.capacity:=5000;
& I. g# v# V+ r        buf.proctime:=0;
8 Y' X  P, ^9 i+ M6 P        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
% j; P$ i2 ~8 l. kdy:=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 V0 J5 Z9 B  X8 g- x9 ?9 I( b* C/ vnext;
3 J1 s; p; r" i* g. Pend;
8 O% ^" Y% ]1 A# w$ v$ Y' I