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

zooey

is
; G2 d  G' z. @7 K& ^$ h. d, }        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
5 j- I4 |6 m% @" @2 S* F    machine,buf:object;
do
        current.eraselayer(1);
2 ?! ~8 z9 q* v9 f6 _5 I" h0 \7 Q: E       
+ q, h8 p% s' ~" e        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
4 i9 d/ J' n; _                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
+ m7 B( X0 ]* a1 s- Z0 }                        print"yes";
% n1 u5 A  L- \( C1 A                when 32 then
                        print"no";
. z9 ^' O$ |; p  |8 T7 Y                else
                        print"cancel";
                end;
7 h: L& {* ]3 d0 d. @                eventcontroller.stop;
9 H2 _8 M" J5 L* T. {5 r        end;
' s0 ^" h6 I/ Y       
7 P* g; I6 v6 |. u        for i:=1 to number_of_machine loop
" y# T1 x' l: T        machinename:=sprint("M",i);
        if existsobject(machinename) then
7 M/ m0 ~5 j& q( V) s                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
8 U' J; j( |6 L4 u1 C% n/ P                buf.deleteobject;
        end;
        next;
1 y( Z; c9 R; g9 X! q/ d0 M. w       
8 n3 ^3 e1 u- m) ^1 i* ?) E        dx:=0;
/ x* [; z$ p% o6 T        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
  A+ b) Z3 f6 ?: \' [. P8 ^- u' G                --mark:=false;
/ W$ Q. Q! {+ S4 t8 p2 D                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
* m4 X- f0 o4 m7 y  e1 U                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
) S7 r8 E/ n" l6 Z! j9 p                        print activityspace[1,rows],",",activityspace[2,rows];
3 {# @4 Z; B* j  g. v# Y                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
- L, ^% E, E0 m  q# k3 e9 n: a# v                        else*/
; O5 \; ?' g3 L* \; b                        y_max:=y_max+dy;
( J) e3 @4 y" r2 C                        dx:=0;
                dy:=0;
                        --end;
                end;
" B& x. Y$ N4 I; M                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;
5 I4 Y" Z+ }5 |$ r+ H            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
8 v" ~2 \1 ^. z1 ]" s6 m; t                end;
                dx:=dx+activityspace[1,rows];
# ~" e; t' o* R+ v6 V* q& N7 e                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
# |1 L5 w8 b. i                        end;*/
        next;
        y_max:=y_max+dy;
8 ]0 M' S% a5 ^2 ]# F9 Q9 [- X( ^- E        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);
6 ~& p/ V2 g  v3 q8 g% W4 S! U9 {        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;
8 a* P* M% O  Q  U1 y        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
1 Z* C5 x$ O4 O8 Z. q! v, w, N                        if j=i then
3 Y* n. y" Q8 m1 c# z2 ^                                d_from_to_chart[j,i]:=0;
! P& x- [* D9 u. Y" g$ o                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
/ W' w4 @6 ?8 q4 _1 S# u9 Y                                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);
  @, z4 ]" L, t' X% f% V                        end;
                next;
        next;
       
        lines:=0;
        partstable.delete;
       
  Y0 `9 l9 a# R        for i:=1 to number_of_machine loop
* o$ S1 C, C1 @' I5 h6 ]                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
' i8 c# v3 _) K. I- y                for j:=1 to number_of_machine loop
$ a' B* k; Z( c4 V! f' W                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
7 ^, E8 r! Y8 {                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
7 M1 `* }/ Z3 g* }9 H2 P        next;
, x$ t4 O& F0 H: U7 D- }; F        machinename:=sprint("M",rows);
2 O- A* M' f; w, U4 j        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]);
2 V# t$ Y' }. }        machine.name:=machinename;标识符未知
% N) ^. z! @' [& ^        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        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;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
9 H- E1 @- J, _. l( c+ A9 _       
: a3 x. A* c( O/ D" u5 n        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
1 [* t) x  F4 A# E* wdy:=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);
( p, g; A! R" g* ~8 a* rnext;
end;