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

zooey

is
! Z7 t. {* {! R- G# j1 H8 N$ y        mark:boolean;
6 }7 o* C4 U+ f1 \" x        dx,dy,ct:real;
- B- F: J6 g( W    i,j,rows,lines:integer;
4 F0 P0 S0 W% F* o) h# @4 E    machinename,bufname:string;
    machine,buf:object;
do
! X2 Q# ]8 ~5 i& V        current.eraselayer(1);
       
$ K1 U5 O6 I& U. w8 g* B- I* p( L        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
: n% f/ E+ Q- X6 ]( M- j) R                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
7 l: F/ w3 j; w                when 32 then
                        print"no";
                else
                        print"cancel";
* u" G+ a. x9 D                end;
& V5 h2 n  d& b. g3 w" P) z  J                eventcontroller.stop;
        end;
3 Y  L9 i7 J8 h+ V' M4 N  s       
+ X/ K; M% h5 }& t4 G        for i:=1 to number_of_machine loop
* d% f" f: x' H7 {        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
5 _9 k& Z, r1 ~        bufname:=sprint("BF",i);
8 m# d+ M. R7 K; \9 F# y+ d        if existsobject(bufname) then
1 f6 B. ^: L. X# g( o& C* Q                buf:=str_to_obj(bufname);
( e' z& [6 |; O" E                buf.deleteobject;
, u, ]: Q& Z6 b  T, E( |# E        end;
- H' F- G* G& X; p; F        next;
       
; R: @4 c/ n9 n% f        dx:=0;
+ Z; }1 Q9 ]" \5 E0 E+ O% M4 k$ l        dy:=0;
8 S5 y3 T$ E  V0 g5 V7 }        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 X: ?' ?$ P) m2 v5 U                --mark:=false;
5 k5 _/ u* A# a. t, [1 {1 R                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
* ~! R7 [. o( v' d' K                then
$ c; `: T. r4 R. Z                        /*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];
; `3 K% N; V# O9 k3 O                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
, ?' \8 y- l# n) i                dy:=0;
' j7 R5 x8 ^5 t/ C$ y2 a& U                        --end;
                end;
3 A; G* t- r/ E1 K1 `$ D                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;
; k  T9 n8 N% c            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
8 U4 X  [) N, ?$ e                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
; {+ L# }" O5 F: r; w                ct:=activityspace[2,rows];
& V! p1 Z; h' G5 m4 |                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
; o' G" j8 L  D! w* V" u        next;
        y_max:=y_max+dy;
6 l- ]8 v3 B  I, M2 e        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);
) J; u) u( P. \        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);
& H- }& t8 y, _/ R2 A" i7 U, O       
6 v2 W1 Q" K5 q# z, b        rows:=0;
) {# u0 V& X, e        lines:=0;
2 s& @4 z) H. H4 P8 ?        for i:=1 to number_of_machine loop
/ e) |- n( u) Z+ f                for j:=1 to number_of_machine loop
' O; j1 C& [6 K6 w: X2 C! p9 _                        if j=i then
                                d_from_to_chart[j,i]:=0;
: O; x- o; ^5 g, v                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
5 U. F, f0 ?% k6 x/ L4 \) @- m$ C  L# }                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
0 m* B; j( @* S- ]/ n" l/ l& P% p' j                                d_from_to_chart[j,i]:=abs(dx-dy);
0 S0 C4 g" n9 X6 J1 A7 I                        end;
                next;
: w8 M) ~6 |4 R% H. q# J        next;
       
( y, t4 i0 k6 Q' {/ |        lines:=0;
0 K" D8 r, `$ g- E. b! f        partstable.delete;
8 d. L+ h; L5 O) H- V       
9 x2 j* H' I6 u& i9 F2 [; W        for i:=1 to number_of_machine loop
$ M% x  `5 M6 F: X6 t2 k" g4 C                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
* v: t. {7 R& H: j6 a3 q  d                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
- n% C2 P7 X! s6 _3 X) ?0 ~                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
' h; U5 Y1 Z# v2 v+ i% W, L                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
! r& C! O! [; Y/ ]                        partstable[5,lines]:=rows;
& C6 }/ s  G* |2 Q1 R9 I0 l) I                        partstable[6,lines]:=j;
1 K+ K3 `. {  }5 x9 K# E; c# h                end;
        next;
        machinename:=sprint("M",rows);
4 L7 Q9 j9 Y* ?( s" w" i) T- R        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;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
1 {9 Z$ f# W# n" a/ g7 m4 W       
% _; T+ \7 R6 C% T0 T6 {        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]);
6 D/ s: T" k. R+ a        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
% `: D& f5 [  Z% o1 C( Y9 }        .materialflow.connector.connect(buf,machine);
1 T7 }( u9 l# x% ?/ S* U       
        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
& [( T  {* m% w3 F