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

zooey

is
        mark:boolean;
& K$ c; I9 s3 Z# a! P        dx,dy,ct:real;
    i,j,rows,lines:integer;
0 m0 {# t4 N. Z    machinename,bufname:string;
9 r$ o8 t3 n% e+ {8 B+ N2 b    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
( x2 c. U4 I  z6 S2 R                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
& s* q. ]  |$ M7 @- D7 S: x2 s                        print"no";
) o- Q. K+ ^3 d) N+ f1 Z) C                else
                        print"cancel";
                end;
                eventcontroller.stop;
3 }7 L7 S* K/ Q( ^2 b        end;
       
        for i:=1 to number_of_machine loop
7 P2 j4 \' W& e- d        machinename:=sprint("M",i);
, q; Y. ]: L" V7 E8 ^: Z        if existsobject(machinename) then
: \, P9 S, A, @5 b1 r                machine:=str_to_obj(machinename);
2 o3 Y) d$ D! N6 }* Z; N1 N                machine.deleteobject;
# D5 u7 a# q. G  w1 A1 w        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
) q9 Z3 [% S; M0 I                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
/ s: F- b6 r: P  \3 ^% X( x9 G       
! i; a% W" o  A" r        dx:=0;
        dy:=0;
+ x6 B2 U& Z% \8 g& r        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
% E* @0 j$ z7 C# l5 v% U# o                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
- J/ J0 w2 P4 f3 c& V                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
: e% {5 X7 e$ q# J, F5 ]                        and activityspace[1,rows]<(1.05*y_max) then
+ F# g) R6 m: G# M% Y* h$ A0 T+ O                        print activityspace[1,rows],",",activityspace[2,rows];
& l" L) x# F# ~9 Z                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
) f% V/ m* b5 x) C                        else*/
; g5 ^+ C  T4 G0 E/ E5 g; e                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
; f# h# G, t4 C; Q9 D5 e) A                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
  Y1 c. M7 Z* y4 Z6 ~9 @! K                        dy:=activityspace[2,rows];
- h# @3 C7 a& a9 h4 ~* \9 N                end;
" t8 F" h" m( |# T( A  s) E                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
* N/ R) d5 y0 b  ?  T* h: l8 e8 ]                        activityspace[1,rows]:=ct;
, c' J8 a# ]4 \; g) f' Q% v7 V                        end;*/
" `  `5 l& p9 O- y        next;
        y_max:=y_max+dy;
1 r# b- O4 Y, k        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) B0 ~, r& Y% E+ T        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);
       
  Y6 L$ Y& P3 h1 g7 }        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
, _2 m5 ?& `5 s; U6 {5 n7 A5 F                        if j=i then
2 w6 U) F2 w" x3 [0 C/ r) `8 g# m/ e                                d_from_to_chart[j,i]:=0;
$ n  l" M: r3 y* F5 x' O6 a                        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];
' @5 S& a/ F* X  Q3 p. z( d  Z2 Y                                d_from_to_chart[j,i]:=abs(dx-dy);
+ O* d. |7 G, d5 o% L* Q: R) Z+ P                        end;
                next;
        next;
       
! N0 {* x0 O% a8 J. ?        lines:=0;
        partstable.delete;
: t: r( T+ y6 F% m# T7 W       
6 @8 A! x5 Q5 M5 e; N        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' D0 t0 K! C" Y1 [                machinesequence[2,i]:=rows;
( M4 o, f0 U# @                for j:=1 to number_of_machine loop
- r6 d: r) X) y                        if w_from_to_chart[j,rows]>0 then
+ K4 @: I! @/ y9 i, l" v$ V                        lines:=lines+1;
/ X8 x* M3 H! {                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
7 `. V7 ]8 H6 w( _                        partstable[3,lines]:=sprint("parts");
2 K5 {/ A' w) t2 l1 J* d8 x                        partstable[5,lines]:=rows;
1 u( ]3 N7 r7 Y                        partstable[6,lines]:=j;
% |; b, u. p) k6 \                end;
        next;
/ m( V, S* Q8 U, W$ v. ~8 H) H        machinename:=sprint("M",rows);
% r" Y) r. b( i: H) U+ S8 a        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;
9 `& i! n9 |  I8 F) Z( e" H1 ~0 ^        machine.label:=activityspace[0,rows];
5 g; i$ M. q& K0 H        machine.exitctrl:=ref(leave);
  \; N/ [6 p$ [! B& ?) u. M7 H       
        bufname:=sprint("BF",rows);
1 ]! e4 W5 a4 l" ^; r, q8 e        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]);
: z2 _6 P- ^) @) L/ F6 K& H        buf.name:=bufname;
$ @  J' [: `& k2 e- U        buf.capacity:=5000;
! w- ~; T; F. o/ A6 ^1 L        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
  M- `# `* v4 B( M; R8 K       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
6 l& d7 [8 p  u- a5 j; I$ I  Cdy:=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;
3 Z/ L# [- }2 a/ R4 R+ @end;