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

zooey

is
        mark:boolean;
" i0 a+ t, d/ o1 J  k- ~1 y        dx,dy,ct:real;
5 Q: z* N" Q! N: }' ?6 b7 @    i,j,rows,lines:integer;
1 I" n6 H" M% a! @' {& r    machinename,bufname:string;
    machine,buf:object;
5 H$ P0 C! A+ a6 ^! v" Rdo
8 t$ O- z  a: E7 C1 W        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
4 L4 F& J3 A% w# p* ]% p8 H                when 16 then
1 Y* A4 N& C+ S                        print"yes";
+ C$ W: {4 y0 J# k4 j# T                when 32 then
                        print"no";
- i: [5 S2 D- q( W: ~& }3 j                else
                        print"cancel";
1 |2 |) f7 b( K* Z, `; N# h4 z                end;
                eventcontroller.stop;
        end;
% B# m& e* o$ F/ [       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
; Q; ]- Z8 ?, X: w9 `4 C* `5 d        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
; F% m( g- [3 l        bufname:=sprint("BF",i);
        if existsobject(bufname) then
* Z: Q7 N$ \" ]- q                buf:=str_to_obj(bufname);
  q  p5 r8 k& p3 E; k0 V% |7 j+ q                buf.deleteobject;
: L' [  k% x; U/ C3 d6 i        end;
        next;
3 ^) ?. M1 Y/ T; [; v- M, s& L2 k       
        dx:=0;
$ a1 R; H) ~' d        dy:=0;
9 A+ N6 R3 m0 I/ e* t6 D' a. M        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; g' k# ^9 ~+ y5 l  X                --mark:=false;
$ l' q5 ?( ^/ A6 I& s9 e% B, c                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
% L5 _  U* d% L9 D0 p9 Y                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
" o& r) |) l: ]* n% p$ n4 c( \                        print activityspace[1,rows],",",activityspace[2,rows];
* D" r9 V! A! H, |                        ct:=activityspace[2,rows];
4 ~- b$ y' N+ o( O& i6 _                        activityspace[2,rows]:=activityspace[1,rows];
3 T: w# z& D! x                        activityspace[1,rows]:=ct;
; |6 ?  s( B+ p6 H                        mark:=true;
                        else*/
, d, Z" Z7 d" E. ~8 x" D: B                        y_max:=y_max+dy;
1 {' _, K5 Z" s$ r2 m7 W: G2 _9 V                        dx:=0;
& p" J5 \; ?6 D. {' U                dy:=0;
                        --end;
. e* E$ U  q! @- Z                end;
+ w. X+ b2 o# W                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];
5 g/ O; s) k% L6 `                /*if mark=true then
                ct:=activityspace[2,rows];
9 U2 w  f0 ]$ N                        activityspace[2,rows]:=activityspace[1,rows];
- H. `0 i$ [& H* A! f. y                        activityspace[1,rows]:=ct;
, e4 C$ A1 B/ m  v                        end;*/
+ C/ V* B8 N$ ~! M        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;
; L. ?) l" |# c. r        lines:=0;
7 x2 V1 d, ?% w; c2 E        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
8 k8 U  X3 x2 r* m$ r                        if j=i then
                                d_from_to_chart[j,i]:=0;
' k% w5 c% m' i; ~- m                        else
. l  C8 x) y. i" f/ Z" w                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
" @& q! Z8 o; u9 u                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
$ y% d5 t  R% n                                d_from_to_chart[j,i]:=abs(dx-dy);
, M: t  d" Q' F, m  [& J8 a                        end;
, P( ~9 M( S8 T8 b                next;
        next;
       
5 l4 O8 [* B4 M8 i/ s        lines:=0;
        partstable.delete;
/ Q; I& v& T8 G/ u0 N       
        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
4 t+ |# j) I# o  }! D$ r                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
# u* t( g' ]5 b+ c' t9 ^                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
% w, h' k0 D% I; u6 H                        partstable[5,lines]:=rows;
) l; a+ p4 F' m2 a+ P+ t  x. w                        partstable[6,lines]:=j;
: j) D. ^" z% ~' K- z0 Z6 J                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;标识符未知
$ R. v( q: v# ?7 u4 [# i        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
4 j& m4 M5 h, j5 j        machine.exitctrl:=ref(leave);
       
% R$ G; Z6 R! u, {- ~  W3 a  W* g        bufname:=sprint("BF",rows);
. k+ F% N& V$ P3 B8 q1 v        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;
        buf.capacity:=5000;
6 ^9 x& X5 j7 m" o$ [( c        buf.proctime:=0;
, x3 n8 _& _3 }7 j( P: `9 ^        .materialflow.connector.connect(buf,machine);
4 \, s0 Q0 H- a9 _       
( ], F5 I9 k8 n/ m        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;
  w( x: W1 w5 k5 b* i1 a( _current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;