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

zooey

is
        mark:boolean;
% L* a% }0 X" p5 ^, v- ?! u        dx,dy,ct:real;
8 q1 v* l5 o0 o# u3 {    i,j,rows,lines:integer;
) Q* ?2 B) w: t/ x- f7 S7 ^    machinename,bufname:string;
* B. }- x& A! m    machine,buf:object;
$ j* ]( }3 s  ~  ^! a- ^& Zdo
        current.eraselayer(1);
  R5 u  u9 x% ~% C' l+ U  U       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
; E& X5 R5 y# b* B                when 16 then
                        print"yes";
                when 32 then
                        print"no";
% P6 Q. {; Q3 q9 B' Q                else
/ r+ r: q+ }2 m4 P) }8 a                        print"cancel";
                end;
                eventcontroller.stop;
( }+ S4 K0 x( [; V        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
$ K2 D6 _5 r) U' x        if existsobject(machinename) then
. E' l: Q9 U( @- D$ P8 q+ f4 h- i                machine:=str_to_obj(machinename);
                machine.deleteobject;
/ l. @" ~+ V! ^0 {) ^3 x        end;
1 a) U8 j. x2 u+ y# ~, x7 v        bufname:=sprint("BF",i);
2 W9 b* r; G- r$ ^8 y        if existsobject(bufname) then
$ \& \* H0 E7 X4 y$ I" v                buf:=str_to_obj(bufname);
                buf.deleteobject;
( ^* e, h7 _' D) e        end;
! r" g+ t& C" l5 i        next;
7 z2 k% ?7 `* W8 q* k8 f+ _       
  Y$ {" s" }- U7 A5 {7 j& P        dx:=0;
- D' ^& A1 s2 d" g0 Y4 N" Y1 A* B        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( R$ M, Z. x, B                --mark:=false;
7 \" C* P% k5 b2 x; A$ o3 g* n( Q% n                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
" ^) V, C6 d. m8 _  Q2 x8 @                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
1 M. j" P" r# d) r3 [0 o- C' h                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
/ y# }2 T- O4 S$ v                        else*/
" L6 D8 v4 ^+ c- D9 x                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
& g: o- l- g  g) k0 [, T                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
, L2 z3 ?: B% F- ?4 y  |8 U                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
- {& `' o  [% a" H$ b. Z7 M7 B7 m                        dy:=activityspace[2,rows];
9 G/ `1 k+ p% [& E: F% V                end;
                dx:=dx+activityspace[1,rows];
. s, J9 {+ E( S. t' c6 V# {9 _                /*if mark=true then
4 X7 k- Y" ~+ Y                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
! p  }8 g  ~1 n' _+ s# V7 q8 T' U3 g                        activityspace[1,rows]:=ct;
                        end;*/
! x! X. ]# Z! y; I        next;
+ }9 e& U: [2 x1 E0 \; h        y_max:=y_max+dy;
+ R" ^2 f! V8 n: x        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);
9 v& L, f) T* l. }! m& H) F        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);
: U! G8 Z* f$ {, S5 r       
2 F9 I! ~7 j. ~        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
5 G1 D# y3 F+ V/ ^  `3 z7 U                for j:=1 to number_of_machine loop
# l  P& j: @9 h1 y( Q0 q+ c& D8 i1 s                        if j=i then
                                d_from_to_chart[j,i]:=0;
, E* P2 s7 q1 _5 r( [8 v                        else
                                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);
9 A8 Q- E& o. \( ]- d8 i0 N  Y+ Q                        end;
                next;
        next;
' L% W+ N* p1 C6 P- T6 n  k       
        lines:=0;
1 @/ q8 u5 D# t& t        partstable.delete;
! E+ ~8 L9 p& ?( G0 R$ U       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ ^3 N8 C+ g: g! S; A! o0 a                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
) G8 ^8 l6 C7 L- F# M                        if w_from_to_chart[j,rows]>0 then
0 j! A3 F3 ]2 z; q# |5 v                        lines:=lines+1;
# \! g1 \' f/ ~2 G8 R- S& K8 ^9 @                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
6 O" c. f$ {" G* Y* J* f: S                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
$ x% Y# W2 m8 o        next;
+ j) M) n2 x2 n0 x9 x5 J        machinename:=sprint("M",rows);
, B' h9 ?  E5 v% b# ?, s        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]);
4 @; |4 n( j. T1 ~5 q, l        machine.name:=machinename;标识符未知
6 Q% V7 k/ e" E! g+ G! K6 `  T        machine.proctime:=5;
+ n! E$ ?) ?& |        machine.label:=activityspace[0,rows];
- A7 Y% C& }) t- X        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]);
8 \# b+ k" m. i, B% `# h        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
, r& Z4 X  E% p9 Q4 ]! q  y        .materialflow.connector.connect(buf,machine);
       
- [. F) d7 M) `) B        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;
8 ~& M( S2 s; d. @7 bcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
/ h6 i3 t+ M) z. Enext;
end;