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

zooey

is
        mark:boolean;
5 Y8 h+ W) ]8 t/ P$ |        dx,dy,ct:real;
1 x8 j4 q) ~4 j. n    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
$ e, o( k9 l5 ]/ @! L5 I: Ddo
        current.eraselayer(1);
9 p! a# @( {0 E$ D2 a       
9 P, e* \7 _2 e        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
" ^+ w; E6 a5 Z( b* y4 \                inspect messagebox("设施数目不对！请核查...,",50,13)
0 F' G+ D" f6 _                when 16 then
' M/ _, d, }4 p' F2 h5 v                        print"yes";
                when 32 then
% b3 d% p1 N9 H                        print"no";
                else
                        print"cancel";
& w  _; |5 u: v% o/ ]) j6 D                end;
                eventcontroller.stop;
$ B  ~6 h, F5 m2 I' C        end;
3 t2 ?! e% ~7 b/ Y       
) ]& ?/ @6 O$ K& R! O        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
/ _6 J) Z" U# |: ~  ?        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
$ O& Y: D) R8 }       
        dx:=0;
: I8 M" a1 E/ E/ ?  H# s        dy:=0;
8 D1 A: Y( _5 t4 ^. f        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! c) q# {8 _, A+ e; Y6 u  K7 Y! z) C3 z                --mark:=false;
5 k9 y3 M$ g. {7 I$ W$ j" e5 P                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
" u; K! \: J0 e* W/ B                        /*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];
, y' s0 p* E5 h  Z4 [! G                        ct:=activityspace[2,rows];
& T# V& E1 J3 G, ~0 h& }                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
# O$ \6 M3 ?. g: ?# L* s& C1 l- d/ I                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
( e9 [: _8 n+ W& L                end;
- I- V. l9 t' S: {3 K/ f2 w3 E                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
5 I- Y# P* s8 v( G# z8 z! X) h                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
* _! A1 |8 n/ v3 c5 r            if activityspace[2,rows]>dy then
1 a# D3 ]5 R2 W! ~; g5 I! d                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
6 Z( h' n6 ]" \                /*if mark=true then
* [! z: M* x0 w                ct:=activityspace[2,rows];
. Z7 A  u9 }! H2 h4 w% }                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
) ~- B& R4 g/ W; a3 Q5 \                        end;*/
        next;
        y_max:=y_max+dy;
) b, q: `; h' z& R2 i% I( S: v1 U: F        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);
       
, i4 O. r& X" D/ _. s5 N  R; g        rows:=0;
2 R7 J$ L: F& r% P5 Q/ D        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
$ }* g# l8 O* R1 h% I7 |                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
# u2 R8 v6 K1 A; U                                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);
# x* Q0 W* d# _0 [                        end;
( M$ \# o# j. Y. ]                next;
% P9 [2 ^% k1 n9 a        next;
       
6 b3 G# I# @! h+ b" |' \  J        lines:=0;
        partstable.delete;
       
9 {; ^% F" ]- a8 {        for i:=1 to number_of_machine loop
9 O$ P3 N. n8 I- F5 ]( n                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: {* @) b4 J" E8 i4 _2 U/ V7 G6 r                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
4 K7 x0 m, T) z- l                        if w_from_to_chart[j,rows]>0 then
) z) l, T" [( \9 M% r# t                        lines:=lines+1;
9 L. k2 ?3 g: n( d* m) i                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
1 \4 X3 D  P$ a! }; T/ {- @! d& T; m                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
. b; S- f5 e9 a9 M1 U( e                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
7 `% T1 m" Q* n, A- V4 N9 h9 B; g        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]);
3 l2 C2 q( x6 m# s% K1 s        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        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;
3 M4 h# J! O* [( G        buf.capacity:=5000;
        buf.proctime:=0;
6 X1 U% u- f$ o+ ^        .materialflow.connector.connect(buf,machine);
& F6 p5 ^1 y) E& ?( k& f       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
; E% h" T  L3 ~7 U8 U1 gdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
6 y, T2 H, T9 u4 z" F% z% p% ncurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
# r5 }" \6 z. P0 ^* ^5 Inext;
1 `7 O2 J) [& ~7 ^9 J& ^' \end;
% U4 x# m6 q! I8 Z: s