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

zooey

is
7 v% C8 y; N/ q3 L7 P: L# G        mark:boolean;
        dx,dy,ct:real;
: z! W3 _/ o6 ~6 ]0 ]8 T    i,j,rows,lines:integer;
! g4 D9 i/ d, a) _* n: y; `0 |    machinename,bufname:string;
/ w' {9 t+ A9 w  i    machine,buf:object;
do
6 r# [' I! }+ L; V$ w        current.eraselayer(1);
       
  A4 D: W6 h+ f+ ~        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
; K1 J! Q9 M0 \( [7 l                when 16 then
                        print"yes";
  ^/ z: Y# m" m3 b6 \4 V" b                when 32 then
                        print"no";
5 z2 F! n' c8 ?7 X7 v                else
$ w( u3 D1 m5 c) \1 k                        print"cancel";
                end;
                eventcontroller.stop;
. J8 c! y2 ^3 Q( n( f/ E        end;
       
        for i:=1 to number_of_machine loop
1 C. a; G0 U5 v        machinename:=sprint("M",i);
        if existsobject(machinename) then
1 p: M$ n4 l+ ^1 d5 B* I( _! a                machine:=str_to_obj(machinename);
' ]4 _% t7 b+ q; T* b9 M) B+ [! b                machine.deleteobject;
        end;
0 e8 B2 O, L( _8 C* m        bufname:=sprint("BF",i);
        if existsobject(bufname) then
0 E# U$ ~! p8 e% J                buf:=str_to_obj(bufname);
                buf.deleteobject;
3 U7 H6 @0 j2 C2 X8 h: C+ h$ F$ X        end;
3 F0 D, c, Y* h! N# S1 X        next;
% ~9 k8 s. j* z7 Z$ C       
        dx:=0;
        dy:=0;
8 ]* [9 a; b& s* z        for i:=1 to number_of_machine loop
5 N; u8 ^: H2 J                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 f: n. A1 O8 M                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
& }2 b% w5 |7 k# p' k5 ~                then
) z& e: @9 S- p                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
/ E- n, `- j6 ?                        print activityspace[1,rows],",",activityspace[2,rows];
& i+ I$ T, B2 |8 f! o                        ct:=activityspace[2,rows];
3 M9 i3 W* K( I7 q                        activityspace[2,rows]:=activityspace[1,rows];
0 z! j& Z1 q. y% h" d" Z8 R                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
. X' S  s  S" f                        y_max:=y_max+dy;
+ J. b; q3 q  y) d7 N( E0 W9 P% M                        dx:=0;
                dy:=0;
                        --end;
4 W" j6 m% |2 W6 ~                end;
                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;
                dx:=dx+activityspace[1,rows];
0 F% F# \+ V- A" s; ~3 U! b; l* O                /*if mark=true then
8 @+ W( ~$ U7 \, I                ct:=activityspace[2,rows];
# C4 R% t' m: T$ X" K                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        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);
        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);
       
        rows:=0;
  y5 }# x; `* S# c- B+ f$ n  ]% @        lines:=0;
        for i:=1 to number_of_machine loop
- }; Y% |' y  s) B% h6 |% z                for j:=1 to number_of_machine loop
$ E+ p' T" e6 @# e7 ]+ p) O6 d                        if j=i then
# h! y2 C  R0 M  P                                d_from_to_chart[j,i]:=0;
                        else
                                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];
' B6 p( Q3 o+ I8 G% E, _" @1 ?                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
( i$ X, N9 B6 _" ~        next;
# i% z7 P! j1 B2 W1 y; q% V       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
% q7 m. c0 ^! ~5 C5 _. I+ h) W                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
6 B' H& ?  l) B: I& x5 ]9 ^+ V                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
1 ^) e! U+ x+ D                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
1 k( A3 z2 f: R" O7 m& j3 a* N" |4 C                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
" O: A6 Z* T+ g) R; ?9 ^                end;
: `9 X: S% Z/ B+ |        next;
        machinename:=sprint("M",rows);
  [- F$ o: \0 l7 t# `        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]);
; g/ Y  u' K: @' V& f6 }. R        machine.name:=machinename;标识符未知
/ L7 G* i% R) P: V1 w" @        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
& O! ]4 V! A1 Z$ D- k; }        machine.exitctrl:=ref(leave);
( w# x3 M- P' n; s* `  F  Q6 m       
        bufname:=sprint("BF",rows);
+ {7 p, r# G# V3 K        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]);
# x- a' c. F* L        buf.name:=bufname;
        buf.capacity:=5000;
9 O9 l. ?, k& e  _3 |        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
7 K/ x2 B* `- t+ O* W        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
3 I' A! \' }3 }0 \$ G8 o3 B0 edy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
5 b8 a- Z5 O- \- M0 c4 E7 T; X1 K1 Vcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
# d9 [- ?% q3 p& U