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

zooey

is
/ O6 c! c; s0 s9 s! e* I        mark:boolean;
: x: j& A( Z  d( Q: k; J. K        dx,dy,ct:real;
) `. i8 f! [2 {+ E; a    i,j,rows,lines:integer;
* |" C# m8 `4 `1 ~! [    machinename,bufname:string;
( K- b0 u- a. k- |9 u    machine,buf:object;
7 _7 [8 q8 _+ ]; K  Q& ydo
7 v' ^) q" ^5 `# Z9 ]* g        current.eraselayer(1);
( W# f# h  u4 ?* G; L1 X0 v       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
3 G( C' D+ ]$ k. F7 ]/ f                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
. K7 e; A: s1 X, C% K" O2 V                        print"cancel";
/ M3 Q4 l; P% s8 r- P6 y                end;
, y  e: A$ d+ v3 T8 ]" \                eventcontroller.stop;
        end;
5 A# B7 e0 L& H       
        for i:=1 to number_of_machine loop
  E1 `- V' D' x        machinename:=sprint("M",i);
/ D9 `" ^. ]5 K9 j& p% @3 M        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
3 P9 ^+ k0 i7 R6 i                machine.deleteobject;
3 r/ {! M. [# o1 K& D  N        end;
        bufname:=sprint("BF",i);
  Y8 f' f% e: ^, j        if existsobject(bufname) then
9 m0 w0 B2 v3 m0 c  e. R                buf:=str_to_obj(bufname);
. Q' H  I8 i* [                buf.deleteobject;
1 w( i% u1 O! q) o( z        end;
        next;
' v# `0 J6 y8 V+ n- w" d       
        dx:=0;
' A: r; `3 j; @! O: a+ I4 q        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
& m) w9 S) Y% E+ v# a                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
8 t" O9 `" w; q4 @. f! G8 U                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
9 s7 m9 e( M+ A& ^9 P4 ~* ]                        ct:=activityspace[2,rows];
6 i' R2 x* }0 H6 Z% j6 _. G/ o                        activityspace[2,rows]:=activityspace[1,rows];
* Q5 _9 g3 M, M7 L                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
) p# m5 w2 u7 J  R& U/ C* F- G3 L                        y_max:=y_max+dy;
9 d& Y0 u; h; C  i$ n% z9 o                        dx:=0;
                dy:=0;
                        --end;
                end;
1 ^; L# x3 M! S, |; y; p+ ~8 `+ R2 H                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
1 T$ i; Z/ {+ `8 L  Q                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
2 G  U' R! M6 k& s            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
' z# ^% \, ^: ^                dx:=dx+activityspace[1,rows];
                /*if mark=true then
/ Q  ]. W! {6 n; D% W                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
% B9 q$ N) I/ I/ v        next;
        y_max:=y_max+dy;
+ ^$ ~# n6 F+ ]. M% X9 E) |: S2 \        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);
       
3 P- \0 @/ H4 |% r        rows:=0;
$ B8 @: @" P9 ~+ V/ s/ ^: H        lines:=0;
# C' c" W- ?" `& {5 ]8 W8 @$ s        for i:=1 to number_of_machine loop
/ x' ~) I4 u. M                for j:=1 to number_of_machine loop
                        if j=i then
) T& |+ }  Y4 [1 I% 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];
+ G  z8 Y/ S# H# V                                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);
) z2 a$ E  s; i3 h* J5 C5 @                        end;
; x% Q. V$ g+ c  A! Y8 c0 p                next;
        next;
2 m# ~" C9 w9 G5 N! G2 H       
. B5 {2 E" ~. ^8 x        lines:=0;
3 F9 b" L, P& {! r1 L0 l4 }7 t        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
, c4 S& d3 z9 u+ `                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
6 a1 N1 c$ |3 l8 ~                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
% a8 e9 |$ n  \3 L                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=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]);
' U3 V. V4 e0 r2 W        machine.name:=machinename;标识符未知
  o; H8 @! b) m1 K+ H( I, D        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
7 |" S7 W. J/ K+ M( U- ~! }        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]);
: S* L1 F4 N/ w+ G% ~        buf.name:=bufname;
6 h. R( c, A6 c$ u# l6 w, d        buf.capacity:=5000;
        buf.proctime:=0;
. W; R- Z: Q3 b        .materialflow.connector.connect(buf,machine);
       
, z0 |. J; [" w        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
) z) Q( |8 }# s! I! l. ?  [! q4 ?! v