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

zooey

is
        mark:boolean;
! g! E% D6 y0 ~        dx,dy,ct:real;
* W9 W; R2 Z: h# n' I' T    i,j,rows,lines:integer;
6 a( @6 Z4 A4 A, @. M$ C' I    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
8 t/ T% V4 M+ B3 S0 ^) x        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
; ~. M) i# E) R2 \8 l: P                inspect messagebox("设施数目不对！请核查...,",50,13)
( Z  ^0 J, x0 d( {% k6 o1 ]  V0 k                when 16 then
                        print"yes";
/ j9 O8 @: F# K; B" S                when 32 then
- W+ \# w( j! N                        print"no";
( K- q" p7 I  b- u+ h/ H- x# G7 c3 V                else
  p( R( g% V7 v3 ]+ \$ h) @                        print"cancel";
                end;
' U2 H% U% q5 S2 J9 h3 o) R3 E. y                eventcontroller.stop;
        end;
2 N! |- I- \8 E0 L$ [6 t/ o       
3 I/ r! Q1 ^9 z6 a, n1 l# `" j        for i:=1 to number_of_machine loop
) K) [8 j6 R: f) l% C        machinename:=sprint("M",i);
        if existsobject(machinename) then
8 c/ U! w, Z# s                machine:=str_to_obj(machinename);
9 \; n- v* n# M                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
% Q+ M: I! [% I0 |6 R                buf.deleteobject;
! O: w0 q2 r6 D& n, i1 o8 H        end;
5 O' R) S+ b2 r) S( T" t' C, F9 c        next;
  J! l" ?8 o4 a       
1 H! R& f0 L8 T- r        dx:=0;
        dy:=0;
# R# M  g  K7 |4 P        for i:=1 to number_of_machine loop
/ u7 L2 R+ S# r1 U$ @1 @) k                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# b* ^* S- r) o" W/ v                --mark:=false;
9 y' I: y: |7 P9 D                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
, T( x3 r+ a; }                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
5 }) B+ }* a# w+ P8 J) p                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
  w8 S. Z2 z; v  F; g( S2 q/ b3 m                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
' ^. v! c$ A+ q  `                        y_max:=y_max+dy;
+ e2 i$ e4 A1 f  O$ o7 J                        dx:=0;
                dy:=0;
                        --end;
9 X0 p; q8 Y/ `6 ?% S; s                end;
/ w! y, O/ s; y9 G                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;
3 g5 B( M$ a4 z                dx:=dx+activityspace[1,rows];
$ N1 U- r4 \( }: a7 i; V2 E( N                /*if mark=true then
* z' P: U. F* m5 \+ _6 M                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
6 Z: v- q; t. k% C8 F        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);
5 `4 M; P7 o) V8 T" s8 W* ^        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);
       
) _6 w; R; v& X, H" \        rows:=0;
4 C# `! ]- H7 B        lines:=0;
        for i:=1 to number_of_machine loop
8 p' z; l4 K- l                for j:=1 to number_of_machine loop
                        if j=i then
* t$ s# u3 w5 m( f: G) [& o                                d_from_to_chart[j,i]:=0;
+ J  H* }' h- B) x, p. T0 y                        else
6 t+ G! U: |/ q: ^9 E; V                                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);
                        end;
' `8 L  R( ?6 Q3 B; X. b                next;
        next;
, U. N. |6 `$ `1 |4 l; q8 y       
        lines:=0;
* L6 n! O( u% M7 _# f        partstable.delete;
       
8 |9 v2 L! C( H0 B4 c8 t' ^        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 C6 x- \$ I$ ~/ _: ^; q                machinesequence[2,i]:=rows;
. A) K3 U1 f9 O" j( A1 f                for j:=1 to number_of_machine loop
                        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");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
/ K. E  j. ~9 T. ?! M, U) [( _7 H& }        next;
- {0 ~, E$ c9 a5 a( y8 M9 [' F        machinename:=sprint("M",rows);
  W0 N# g6 s& Z0 E: P7 f        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;
; t7 L. [: x4 ~; l        machine.label:=activityspace[0,rows];
- S6 p1 D$ c) I        machine.exitctrl:=ref(leave);
       
; U( C) \7 z6 D$ 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]);
        buf.name:=bufname;
8 y1 v* [  w: D        buf.capacity:=5000;
7 d1 T5 a* I$ [) K" q4 b; [2 T' ~        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
  D0 W6 K; W% ], y. j* @       
1 q# v$ U) y5 u8 D; e) [        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;
1 R' Z# c1 V& qcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
4 @5 R+ q6 c# }6 `end;