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

zooey

is
; D6 I1 ]! Y! j" X4 D! X1 N/ Q        mark:boolean;
        dx,dy,ct:real;
8 B2 H/ q0 s' P- m2 u    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
7 [, x  @" y1 p; A/ q        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
# l  }# x, @, X                inspect messagebox("设施数目不对！请核查...,",50,13)
9 N% R, Y4 F8 d; M& U4 p0 P1 k                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
. }& f. V  [, }2 j2 s6 k% r                        print"cancel";
                end;
                eventcontroller.stop;
" A' q" k0 I. |/ q1 p1 t5 j        end;
0 ?3 Z  _7 J8 r6 }       
* |- R/ I$ L, J4 ?! }" l        for i:=1 to number_of_machine loop
' |8 l1 ^, r1 x( j        machinename:=sprint("M",i);
        if existsobject(machinename) then
, }& R) a/ b6 @% J+ q  B0 d- X                machine:=str_to_obj(machinename);
                machine.deleteobject;
* x  p3 p& U' C! j* z        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
4 B% Y0 \+ b2 O        end;
% Z% {# k. L5 s- w        next;
       
& U! ~' Q0 q7 V  U4 T        dx:=0;
: W9 v% O! V# p5 S2 m        dy:=0;
        for i:=1 to number_of_machine loop
, ]3 e  ]: [7 X7 T- O& `0 S$ v/ C                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ o3 F0 ]# a; q1 U# m                --mark:=false;
) ~# e- F& n& J% I                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
2 O7 q5 w% U' ?8 T" J: Z: ^                        and activityspace[1,rows]<(1.05*y_max) then
# z' m/ \8 T  d" b, e' u                        print activityspace[1,rows],",",activityspace[2,rows];
' M! d# B( Y/ D* ]                        ct:=activityspace[2,rows];
% V' N% G6 J% o/ l                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
6 f% a6 H$ x2 r8 Y9 D                        mark:=true;
                        else*/
1 ]& Y& \% t9 M! _+ n- i: Z2 |5 v: d                        y_max:=y_max+dy;
& V6 H4 `  J  M! O6 ?                        dx:=0;
                dy:=0;
                        --end;
                end;
# ~9 F$ n  ]) I& E, Q                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
$ K9 G8 J3 \7 S& x& R                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
+ ?5 a8 `0 _5 [' }6 e. e            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
8 g) E& O$ z0 a: y' \" U                dx:=dx+activityspace[1,rows];
* l9 B' Q, w- K1 L  j& I4 h                /*if mark=true then
8 ?5 K& @- ~* M  G                ct:=activityspace[2,rows];
! x1 B, Q$ O3 ?+ F/ T                        activityspace[2,rows]:=activityspace[1,rows];
5 N$ B* x0 s# t+ x6 U                        activityspace[1,rows]:=ct;
                        end;*/
        next;
, Y: r, t) |0 b( H        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);
5 e8 P, c. c7 n- T       
        rows:=0;
, l( Y9 V: p& d& L* `        lines:=0;
& x0 P- d. B( C, T9 _        for i:=1 to number_of_machine loop
" V! ?2 y( @7 l/ v                for j:=1 to number_of_machine loop
                        if j=i then
( p7 r1 N" s5 n) c( y/ ^. \: Q                                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];
' E3 ]5 _" e9 y4 w8 i5 k                                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;
       
        lines:=0;
        partstable.delete;
) W% l' @  R" d! W       
        for i:=1 to number_of_machine loop
, s8 c$ u; i' h# A" ^6 w                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
+ D! j. M9 z6 ]- Q                        if w_from_to_chart[j,rows]>0 then
: M4 o0 l  a0 F. H                        lines:=lines+1;
9 O6 U  j4 @- d( B2 s) j                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
1 F( X$ u' A' k( s* v                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
* k$ A6 I% `6 ]' w; v  t        machinename:=sprint("M",rows);
7 e% O- G1 I: G5 x  f0 l        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]);
- }, x  _' \% p        machine.name:=machinename;标识符未知
  m; v- ]7 \+ O5 L0 L) C  z7 |        machine.proctime:=5;
; ^1 [6 a& T; Z+ q7 L1 x        machine.label:=activityspace[0,rows];
0 F7 c* [: q  f$ K        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;
        buf.capacity:=5000;
: e/ r% ~4 }; `! |9 p6 v        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
- S" M& `* g' {3 i  `2 q7 @) I) s7 b1 K5 ddy:=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;
end;