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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
+ S3 X, k" ]8 X! @1 O% V  [    machine,buf:object;
do
        current.eraselayer(1);
       
) e; e. }' @% Z, Q0 r8 d! M% L0 X        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
9 _  o- B9 u& K. g                when 16 then
: ?3 X& j% k- b: R) T                        print"yes";
                when 32 then
/ [& l# S5 L& r9 q                        print"no";
. U" L# f/ \! l1 _" z& S                else
                        print"cancel";
                end;
                eventcontroller.stop;
2 n2 i% c5 e2 q' r' L, I8 Z1 }        end;
7 v; H+ n7 Q: F  B6 p       
        for i:=1 to number_of_machine loop
) [, N: [  g& A        machinename:=sprint("M",i);
& \3 j* [5 w& J& P        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
$ o' i, `4 r5 _5 W  H        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
- u4 |/ h' r' O        end;
        next;
       
        dx:=0;
9 P7 ~8 H" X- p$ g        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
7 i$ T- |7 B& b                then
6 R  S% N( K5 n8 ?                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
% z0 i) c- C  O) Y: M                        and activityspace[1,rows]<(1.05*y_max) then
- V& V0 j+ K/ A0 J  f                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
0 r& i. G; I2 P+ X% K                        activityspace[2,rows]:=activityspace[1,rows];
* S6 k* z* F1 s! o- F- r/ O                        activityspace[1,rows]:=ct;
$ V( ?$ w3 A/ Z7 @$ m4 x+ b8 u                        mark:=true;
1 }/ x9 _! c4 X# `4 ]                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
, w" l6 Y9 U1 d0 k4 |* Y                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
/ l7 `' z( V6 M) l/ z; S                        dy:=activityspace[2,rows];
8 H7 p7 X; J' q8 i                end;
- {* q3 b1 d% \% C: s                dx:=dx+activityspace[1,rows];
                /*if mark=true then
9 V, L4 X. K2 {. P) l$ L                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
7 O# d8 h6 J# d" i$ o9 u0 w                        activityspace[1,rows]:=ct;
* Q& V) U$ P2 u: e                        end;*/
- h" ^$ \8 h! p+ v; L! D) j        next;
4 e" z& k$ `2 [7 D- R2 I        y_max:=y_max+dy;
$ N4 j1 Z* I8 M        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);
       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
4 C/ x' S) [) `& x                                d_from_to_chart[j,i]:=0;
% o1 A2 b% @: o0 q                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
/ a* c- q4 g. h) b/ \& M                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
  d! c. O  ]. L( {  i& K7 k                                d_from_to_chart[j,i]:=abs(dx-dy);
4 f0 w6 K1 J: s* m                        end;
1 I& J, _9 K3 e) S2 d                next;
0 Q/ n! L5 h0 ?4 s- P2 O        next;
       
        lines:=0;
- Z# V- J9 Q. P3 B2 W1 @0 p        partstable.delete;
$ Z5 {4 }) h$ i6 p! H' X' J5 s  G) l       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ F8 }: g8 o# K/ I& A                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
% z9 N1 t$ e: O$ ]; }                        if w_from_to_chart[j,rows]>0 then
* U( T9 I& S5 |( `9 x4 I) r- V                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
+ s/ U1 v7 o* ]! [                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
/ P3 Z- c8 @- L8 e" P) @# w        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]);
        machine.name:=machinename;标识符未知
! z5 C3 Z+ `! q: F3 @        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
: `' R# [6 l5 V        machine.exitctrl:=ref(leave);
1 I- W7 [( f  F1 G5 ]! ]# Z% W  `       
        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;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
0 s" K6 _0 W6 W" s- t0 t) s4 V       
' }6 Q4 N/ i1 c4 y' f2 r1 z        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
0 N" f( D- ~3 j+ q) w9 u7 z) i; kdy:=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;
) W3 x9 R8 w9 M+ s  P7 M