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

zooey

is
: _: h* r/ D: C# ]0 N7 a        mark:boolean;
) Z& {- ?% E1 }2 _9 a' t, S% m" U        dx,dy,ct:real;
    i,j,rows,lines:integer;
4 Q. b# p+ o2 {& a& ]" [# K3 V9 N) Z    machinename,bufname:string;
3 M6 }2 J  l- z2 `; o    machine,buf:object;
do
        current.eraselayer(1);
       
  Q$ D0 S) a4 E( A0 c. h- X        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
  Y/ r. q+ I9 }, w& K3 X- \/ ]                when 16 then
8 w. I8 o( `, L  G; P                        print"yes";
7 _3 a4 W: u" Q. U                when 32 then
: t  f* [. F* g9 t; E                        print"no";
                else
3 [6 r) `& E" f) y2 _                        print"cancel";
$ ~3 @/ E0 ]3 B                end;
9 n8 ~8 V2 \* A; h) I8 r7 I                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
: {) b8 U9 w  d0 c; I; ]                machine.deleteobject;
5 g. r4 X+ L& M- w: `& j        end;
  s( h) C* ~6 h3 R2 B! S        bufname:=sprint("BF",i);
0 l9 `+ F4 k5 E( i- V        if existsobject(bufname) then
, a# h6 c/ e! v2 Q  e                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
3 h) [6 y4 k5 z        dx:=0;
9 B- ^! ~* {% J0 `& O        dy:=0;
7 o% c0 T) ]0 G2 i  q        for i:=1 to number_of_machine loop
* s3 c/ R( l7 f! @9 c) Y/ e, `0 @$ G                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- ~# N' d& W$ s0 E7 P# c                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
3 [% a: `' \" r' T                        and activityspace[1,rows]<(1.05*y_max) then
8 g( ~' n: q- O5 J5 ~% u                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
- M5 `- D! a) ^" m                        mark:=true;
                        else*/
# O( D0 S: x! |- \% V+ a& A2 j                        y_max:=y_max+dy;
8 ]4 M# ]# S+ t4 k                        dx:=0;
                dy:=0;
  U& w! h7 U0 A- U# A9 G6 L+ u. F; @                        --end;
1 b- Y9 `' M' [$ Z                end;
5 s$ L, o1 n+ N/ f2 Q$ l  Y                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
3 Q+ s' z5 G0 r8 B! N8 M% |! s                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
, f' R0 [) X* I) `1 D# j# u$ H$ f* e                        dy:=activityspace[2,rows];
                end;
$ l9 q! v- h5 N: W$ f/ {2 x( A                dx:=dx+activityspace[1,rows];
                /*if mark=true then
2 j" [" P. Y) O. Y4 X                ct:=activityspace[2,rows];
2 O, j' F2 G  ]  x& k                        activityspace[2,rows]:=activityspace[1,rows];
) w2 K# p5 h; G" n1 q% l  `2 r                        activityspace[1,rows]:=ct;
5 J% \1 {# ~/ Z, k                        end;*/
5 @( {0 ~/ s5 H: I- y        next;
. c6 a0 B& D" l2 P        y_max:=y_max+dy;
8 b9 g- S9 D+ Z0 N# N        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);
5 Q1 g# k4 Y' ]  y' Z       
. K1 D; Z- i3 J# f9 \        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
. D4 h* V$ `9 e4 d2 Y- y* G1 J' Z                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
# j' U# R1 C0 K1 D, |$ A/ O) `                                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];
: t/ N% |# O8 Q2 ]                                d_from_to_chart[j,i]:=abs(dx-dy);
9 e; {: Q+ e, {& I                        end;
; ]6 o# s# e& ^$ u+ [# X/ G% _- E                next;
' a+ c! \& B# Z, M        next;
" {9 x1 z1 z& W; @- ~8 |       
8 w( @  A! ~- L! f        lines:=0;
        partstable.delete;
       
/ }) b- k; r3 I. E; x        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 X' k) n. Z7 G                machinesequence[2,i]:=rows;
! c+ N/ E3 A4 F                for j:=1 to number_of_machine loop
5 z! k- s" b( ]9 ?1 m1 n                        if w_from_to_chart[j,rows]>0 then
! U0 d8 j$ o3 G+ a4 U) D  s7 p                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
9 O% I. x- D% _$ _( Z% v0 z6 R5 O                        partstable[2,lines]:=w_from_to_chart[j,rows];
1 s  X5 e! M5 W. A; `5 R& H) O                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
$ [4 L8 e3 U% `! d4 Y1 _                        partstable[6,lines]:=j;
6 R, t2 l2 P; z8 q% M                end;
5 C9 N+ w. J  i; w6 a$ U" I0 Y. `        next;
$ i( V/ R. }2 d2 l7 O9 O' O        machinename:=sprint("M",rows);
. r0 ?5 E7 c7 [; |; Z# 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]);
) _7 @* A1 l. X' @6 D2 Q# y        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
0 i) g2 }% F- C3 N9 S) G3 Z+ P        machine.exitctrl:=ref(leave);
       
0 y8 P% F: o+ G% _+ b* r7 @) D6 B        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;
8 e" A9 K) W% Z& N9 y        buf.capacity:=5000;
        buf.proctime:=0;
+ o& X# b+ ~8 B" C% s        .materialflow.connector.connect(buf,machine);
       
2 g; q: l% E5 n        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;
; a: E( q3 W, c( Z7 D: R; ~current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
- H( q! i/ f" F, ^" rend;
" f$ j: V7 G' Q% J