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

zooey

is
3 y( E$ s/ X3 m( g        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
$ n8 H, j8 ~; {& h+ j0 H8 c! r# i    machinename,bufname:string;
  D8 o3 _  M: K# C  b4 y# K    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
: {% c( X, a3 P- r6 E                inspect messagebox("设施数目不对！请核查...,",50,13)
: L  [% \/ B' f/ k8 Q* y                when 16 then
                        print"yes";
  N) I" d! Q7 b6 D                when 32 then
9 M5 x8 ^5 }7 G& ^$ Q9 z  R                        print"no";
                else
6 v/ X" [8 ~/ v% _) t  P6 k                        print"cancel";
                end;
% {7 `4 i8 }, x: Y# ^8 [, a                eventcontroller.stop;
        end;
       
; E# `/ |8 Z( g" h3 ~! d) h        for i:=1 to number_of_machine loop
, _( D- x. j5 l* M1 ~        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
# w* k- Q, H1 r  d3 q9 {; o                machine.deleteobject;
! B. j% f; w0 _' h" V2 m6 z: k: x        end;
! a# f  j6 {: F: F9 J        bufname:=sprint("BF",i);
/ B: a, M6 ^. B/ c5 _$ W5 j) a        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
) t% v( l& t+ m* j* ~0 a7 X& k                buf.deleteobject;
        end;
  x) ?3 T6 H9 C+ d) f        next;
       
) L" @5 y  w( z( N        dx:=0;
        dy:=0;
, g5 m! \/ B( `# h        for i:=1 to number_of_machine loop
% c  L- V0 K, z& V                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
4 U1 L* i% U5 N/ P0 d! z8 p                then
% ^0 T# Q6 @) P8 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];
4 _) K* S  ^& G7 j" P) P                        ct:=activityspace[2,rows];
$ J$ D1 v* K& E) D2 _. \, n                        activityspace[2,rows]:=activityspace[1,rows];
) z8 `! v" b1 T! @: @                        activityspace[1,rows]:=ct;
' ]) `0 N( ^: o# a- q3 I) ]                        mark:=true;
( Y9 U' V1 J: ?+ S3 S                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
0 F6 l; e. X; p. q3 `$ g6 g: [& I( x                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
! F% G% ~9 B6 T- w7 ^                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
: M2 T- r& ~, J  O9 v1 K5 @            if activityspace[2,rows]>dy then
2 O$ d4 o2 k6 D' |$ T                        dy:=activityspace[2,rows];
3 K$ x0 r+ o. w4 x- ~+ M0 k: b                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
* P7 q1 ]% R! s; f4 J9 T) v                ct:=activityspace[2,rows];
& t2 S& D, X6 P- X                        activityspace[2,rows]:=activityspace[1,rows];
) F5 P, H. U$ j3 x4 Q- U! G                        activityspace[1,rows]:=ct;
- x8 a5 L- F) R& S                        end;*/
        next;
+ z3 U0 G1 W- n3 `        y_max:=y_max+dy;
, L' h# H  `  h2 j7 S- ]        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);
1 d, _4 |4 X7 I* L7 w' m. x& g: L' c       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
7 a; [1 |' Y; v" r                        if j=i then
! G) Y/ d; {2 t  Z                                d_from_to_chart[j,i]:=0;
% f' B: i' y1 \  ~. H3 U0 {                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
8 ]7 `  N7 I1 G$ Z# W# h                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
& A7 Q3 l6 F: y2 o" \                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
, Y  n+ H  y( d; G       
- Q2 [9 {9 N4 r3 e( W        lines:=0;
        partstable.delete;
; T+ |2 r! O2 u       
" G7 V: i, g6 \  o' q        for i:=1 to number_of_machine loop
3 c. Z6 R6 O) F% r" w# t/ {6 z  m                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 C% k8 Z! j. R. y) ~                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
5 Y& J8 J" w; V4 Z# o                        if w_from_to_chart[j,rows]>0 then
9 M) Z2 @1 _) u0 j                        lines:=lines+1;
" R6 S4 B! J" S5 T                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
" i# l; M1 ~; R# s  G                        partstable[3,lines]:=sprint("parts");
  u* z, ]' f" f# x& `( s) k                        partstable[5,lines]:=rows;
, }. U3 V8 f0 [0 |+ a4 ~                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
8 \+ Z) S' q! J+ s* e3 X        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]);
' ~/ P* n& `. V. j: C        machine.name:=machinename;标识符未知
        machine.proctime:=5;
  @4 D2 J+ x9 ?        machine.label:=activityspace[0,rows];
7 {, \, Z( B' t1 Z. \0 ~- J        machine.exitctrl:=ref(leave);
6 F0 y; o9 w4 z% E       
        bufname:=sprint("BF",rows);
3 [9 J9 K3 V, H- D- h% t        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]);
9 I, O7 Z2 F3 |& Q/ `1 a        buf.name:=bufname;
  E$ e& g& q( U# J- E0 R        buf.capacity:=5000;
6 [& c$ s6 o6 f7 a3 C/ ?        buf.proctime:=0;
. c/ p/ N) F/ r! S% s4 A. e        .materialflow.connector.connect(buf,machine);
       
        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;
3 ?3 ^& ?' x6 l2 `2 qcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;