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

zooey

is
+ b; O& X6 z3 V        mark:boolean;
        dx,dy,ct:real;
0 f1 |. D; Q5 x" ]+ S    i,j,rows,lines:integer;
+ h3 F+ e" @3 i, C! k7 ?    machinename,bufname:string;
" X+ U0 x# H3 @! ^3 M( @    machine,buf:object;
do
        current.eraselayer(1);
       
  N' F& z8 p: O8 F        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
4 m5 r. i9 R1 r: _1 w                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
  D% [/ E3 v$ o  s$ l  W                when 32 then
                        print"no";
                else
                        print"cancel";
' q. n$ L6 j+ |! v+ Z; Z0 Q: A4 Q                end;
  J# j' G2 \) P) `& d# Y0 z                eventcontroller.stop;
7 g' R9 W( s, v5 D8 ^& {) @        end;
       
* k) p7 A4 m( e( H; P$ }) s3 L, y4 {        for i:=1 to number_of_machine loop
$ u' s+ h+ y. q3 P9 y        machinename:=sprint("M",i);
% d1 Y% X# w1 _! E+ z: t' y, `4 I        if existsobject(machinename) then
7 b+ }) j0 g! N6 {1 \                machine:=str_to_obj(machinename);
                machine.deleteobject;
0 O& t& ^- M7 T$ p2 x- X        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
1 g6 z) D8 p+ R, Z4 h  g1 d: L0 u                buf:=str_to_obj(bufname);
0 q% B% S- r4 r' ^# O                buf.deleteobject;
        end;
6 ]3 `4 K, G1 Y6 G/ h& F% H- _        next;
       
        dx:=0;
1 z. U  k( g1 V. H" c        dy:=0;
8 h3 M6 E- z- W4 `: |' s5 T2 X        for i:=1 to number_of_machine loop
' `* f; Z# p9 B' d& A/ Y8 X                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
) t( f3 x' w3 H) V6 R! w                then
: i, F. q; G) K% m" T* F, {                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
1 w. G; S! K9 l: h! g/ Z                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
8 j5 Y8 T, e+ _% H$ G3 x                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
  k/ C# o* Z6 V% H! B2 v/ d                        mark:=true;
6 |$ f4 w5 ~. t7 u                        else*/
                        y_max:=y_max+dy;
; T# |' t# d! A) ^! O                        dx:=0;
- Y8 l- T0 a  C8 S' X5 J3 Y* b                dy:=0;
2 ?& O* l& l# v: U2 n" B                        --end;
2 B* U8 w0 X- |( h" Z1 Z7 Y) _8 p                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
; b, l7 V& d. N0 Q8 M6 [+ y                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
$ w4 ]) S# P8 c* M( ?                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
8 D8 I# K% `! v) Q' {- ?- X                /*if mark=true then
4 f! O, z! l9 _" ]; R3 g                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
* N2 \, Q4 [/ f2 v0 m                        end;*/
        next;
% h5 j9 |5 E% F$ [" c+ z/ |        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);
0 J9 I$ h. q' o* Q% B9 `' Q        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);
       
8 i" q8 V+ @# \0 V# P        rows:=0;
+ u( S( l5 k2 l( Z% }        lines:=0;
        for i:=1 to number_of_machine loop
2 n; p9 p+ p9 X; L  [                for j:=1 to number_of_machine loop
8 c+ w0 h% p; W9 R# a+ N                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
' l0 ~4 w" U1 `% x" v9 {                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
4 |( o6 d2 X1 B) y; ]                        end;
                next;
        next;
0 e6 M6 f2 k; m6 M5 j/ ^/ ^1 a. _       
5 l- O5 i( R2 H+ I/ v        lines:=0;
        partstable.delete;
       
  v$ G  K4 W* }* F4 t        for i:=1 to number_of_machine loop
# h- L8 c, W6 m$ g+ c9 y) d                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; p% s* m5 V, j/ x3 `9 s* r4 A/ [                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
: W! u& K  l8 o                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
3 q1 _$ n' ~6 x, e1 I! ]4 |                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
5 D% X8 T' T) Z4 Q$ T& p                        partstable[6,lines]:=j;
                end;
" U8 ^, ?3 p3 K. d, q! \6 b9 x/ T        next;
- w% x* F9 J, n# |2 f  F8 K        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]);
% h$ M7 U. `/ r        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
* w6 I; i: k- O, ?- t        bufname:=sprint("BF",rows);
. ~, c; u  z, {, r" I; 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]);
! o" E' u1 j3 e7 f5 Q2 H) s3 s; b        buf.name:=bufname;
- e" C, C5 A+ ~1 a% S2 S        buf.capacity:=5000;
        buf.proctime:=0;
7 q% t0 M: [( [3 b" a, [4 ?5 |* v        .materialflow.connector.connect(buf,machine);
4 ]9 v0 d, z/ s* `7 J, U3 z. F       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
' z" q  S+ P( Z% _! i6 v1 Mdy:=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);
1 J+ P/ K; g* [$ U) z7 V  Unext;
6 }. Q2 p( h/ K5 ]end;