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

zooey

is
        mark:boolean;
% |6 X" s/ M) I" |        dx,dy,ct:real;
" _9 j9 y1 |; e7 z    i,j,rows,lines:integer;
$ S# x* T7 O  c9 g+ N    machinename,bufname:string;
- r" I6 J0 k" G" G    machine,buf:object;
do
% i) {2 S; `9 _9 [. }, L/ p3 I        current.eraselayer(1);
! w7 b# i/ z; w* U4 q       
8 W7 a! J2 q8 h) Z- L* ^1 w        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
' z8 a8 `$ P! A* J/ R! N( H, ]: _+ x- I                inspect messagebox("设施数目不对！请核查...,",50,13)
9 \! R+ n; \/ ^( F( W' {                when 16 then
) t4 u' d% P& q6 z                        print"yes";
                when 32 then
& p$ P6 s% t# k                        print"no";
% [% i( C8 i9 }1 r9 e5 A                else
                        print"cancel";
" c$ u- \/ ?3 {1 Z* u                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
7 ?* }* |& O* d8 ~8 o1 `" ^        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
' N$ V. f0 }/ [) M        bufname:=sprint("BF",i);
9 m6 }% C+ ^  F# P) ]" o* w+ }) \2 K        if existsobject(bufname) then
5 y6 t0 f% p: F$ U8 [' L                buf:=str_to_obj(bufname);
3 M  v2 Z8 H4 ^                buf.deleteobject;
5 X  r$ K9 s) d  O        end;
        next;
       
: C5 ]$ }/ t3 T0 V: D        dx:=0;
        dy:=0;
6 A; ]9 b3 o1 g$ J( D: m; A        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
3 N3 M% z% R' W                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
- L5 }+ m& y; n5 w( K                then
6 j; q" w1 o& s$ o6 u3 u. c0 K) l                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
9 r# b0 U/ Y, s1 H) v: V                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
' B, t; q9 }' ]% c, T. [/ v                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
6 S$ u- B% d+ f, F  X! m                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
' c4 d" n5 N$ c7 Y* U                dy:=0;
                        --end;
                end;
5 ]  y1 C9 x# H                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
+ g5 Y' b/ w( F- z5 }7 z, H3 _2 w                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
: M& U2 c" R2 E* \0 M/ [, ?" o                        dy:=activityspace[2,rows];
( j3 D" g- [+ \, k                end;
# i7 b( V: a1 L7 y                dx:=dx+activityspace[1,rows];
/ B  s' B& {1 N( o                /*if mark=true then
: r6 w6 K3 |, o6 N' U) N5 J                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
' ~) M  s# A" C. e: |& \- a* N                        activityspace[1,rows]:=ct;
                        end;*/
# @  h5 {- v; S2 _        next;
9 K# p0 x; W" x+ u8 p( m7 K        y_max:=y_max+dy;
% ^. x/ V5 [1 d" y2 e. A( c        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;
" v9 x5 _0 a8 X2 h        lines:=0;
        for i:=1 to number_of_machine loop
) q+ n0 u$ y! ~4 l. D* o                for j:=1 to number_of_machine loop
                        if j=i then
: Z& _, Y" N5 ^$ o3 x                                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];
- O; u3 P! b( \: t  i5 B                                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;
        next;
4 Q* Z& I$ u. Y  G8 ?       
, @$ U0 v& N+ j- z- A: {7 B        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
0 O  V' l% U( l+ }                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
; q1 B- ~1 H$ `& i                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"));
- \& U' N# B, }* [1 Y                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
8 M( {. d, N( h! ]  ?+ r                end;
        next;
        machinename:=sprint("M",rows);
        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;标识符未知
5 v4 a, _8 ?0 y        machine.proctime:=5;
, x+ ?' u$ k& O+ ?( i, q        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;
5 H# {: z" S+ d        buf.capacity:=5000;
  v& B# q6 \4 v. Z3 T+ |        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
2 f2 L& g) E4 ~$ ~8 [9 e8 ^       
3 H7 _* r8 X0 O+ O" e        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
& L; Z' |2 n, y% kdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
/ r+ O. M% J: v0 |' C# mcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;