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

zooey

is
1 k2 [- X. u6 m5 n; a        mark:boolean;
( B$ Y3 C9 E" A        dx,dy,ct:real;
* w  k0 R9 e& V8 P% S/ z    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
8 _% }4 n& m' [8 fdo
% q1 m3 b7 J5 S# n        current.eraselayer(1);
1 k& h$ a& y: }0 I# S& A: _       
% n0 F! \; Y7 z9 ~( j0 F        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
1 z# R, D/ Z8 @; i                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
7 s, }! b: }& S' s( x+ y: R                when 32 then
                        print"no";
                else
- a1 u) g: g, y1 s  [                        print"cancel";
: r7 c- m% g: z$ [/ k6 v2 u                end;
                eventcontroller.stop;
        end;
# J3 [4 a$ M/ y( l! y6 O; b% j       
4 N' V1 M" u) T, R" J# M        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
; `6 p. R/ c( g) O        if existsobject(machinename) then
' G% q/ |# o, I/ G                machine:=str_to_obj(machinename);
; f7 x- {$ M6 H0 z. z0 S  C6 a                machine.deleteobject;
0 T- H7 Z  a/ B8 ]7 w- }' s        end;
' Y- B4 Z% O2 A        bufname:=sprint("BF",i);
        if existsobject(bufname) then
  L% W% s3 w7 O4 W+ \/ \* H                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
6 s* m- K4 Y( z4 f, U1 Y3 O( V       
        dx:=0;
        dy:=0;
* {/ N* e0 w/ f, b1 }        for i:=1 to number_of_machine loop
- v- w/ y# F8 S. Q                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
! M6 V$ s+ B: h% t' @* I                then
9 b2 P" |' y. l                        /*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];
                        ct:=activityspace[2,rows];
! K0 _7 D' \3 w3 Y4 {                        activityspace[2,rows]:=activityspace[1,rows];
$ T6 V1 h4 h* ?1 Y/ c" Q' o                        activityspace[1,rows]:=ct;
( |0 D. Y9 Q5 K1 s                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
* ~! q  [9 o7 U+ m- p                dy:=0;
+ P: @& F' L# T5 ^                        --end;
                end;
/ m% Y- a$ U1 h% Y/ o                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
, t& T+ a1 v$ m0 r5 P9 y4 a, u3 Z                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
9 C! Y, W5 A% u% A  A& n5 K! }- E                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
. ?: _" t$ |; j6 z( Q6 y                /*if mark=true then
                ct:=activityspace[2,rows];
; x, ?- x! x1 H4 g; B                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
- ~8 M9 v1 @: m; Y( k" d; m9 y        next;
        y_max:=y_max+dy;
. u& P9 n4 B  C% N+ Z2 I$ @        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);
/ ~( H9 a( P2 O& g! F       
9 K* k2 i1 G: Y( X        rows:=0;
3 O  e' V* e9 n+ S        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
) M0 }# M! V# [4 i7 F2 L4 ]( O$ k, |* J                                d_from_to_chart[j,i]:=0;
2 ]  w; t* I  U1 h$ V$ q' l* s                        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];
: y/ J% _( m! D                                d_from_to_chart[j,i]:=abs(dx-dy);
* N! y; @% X: [6 d                        end;
                next;
        next;
0 I9 F% ?' x+ `8 n6 o; t1 e       
        lines:=0;
        partstable.delete;
/ T  a! H; K0 v3 T       
        for i:=1 to number_of_machine loop
, {' c9 f2 m  Y7 k  i% S6 U                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
5 h" W3 b0 I& N7 T3 W- f- j) u  `                for j:=1 to number_of_machine loop
1 o  n& p1 q# K$ l% N                        if w_from_to_chart[j,rows]>0 then
; Z9 J) x0 n9 L9 W0 P+ ~                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
  j- b* A% }" [( T                        partstable[2,lines]:=w_from_to_chart[j,rows];
8 Q* m- l) O8 y6 |. x& p0 t                        partstable[3,lines]:=sprint("parts");
, m1 c, q* _* H+ o$ q% j: p, F3 _                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
1 r! X  }6 h1 P: Y: C" e+ j                end;
        next;
7 ^% l, Q* B6 c5 @/ g        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]);
" j7 B. |7 x& g/ E0 R9 `        machine.name:=machinename;标识符未知
2 Z7 _; O- D2 x; Q4 s! Z- K        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
; y( L; e" D6 R       
        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]);
: h6 e8 U  v1 w5 K7 K4 J        buf.name:=bufname;
3 n3 ]$ u- I; N- S3 M4 s        buf.capacity:=5000;
        buf.proctime:=0;
! Z" B: W. S" S        .materialflow.connector.connect(buf,machine);
# w% a, F% }5 b0 }9 }$ q/ k- d       
        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;
0 _" V) K( Z# ~current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
1 m* b7 |: p3 S7 r$ S' k0 M8 dend;