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

zooey

is
        mark:boolean;
! U$ m; w# F9 ?8 V' w        dx,dy,ct:real;
    i,j,rows,lines:integer;
& m+ G9 W, u) ^    machinename,bufname:string;
  ]: ]6 {. L8 T    machine,buf:object;
. I! r' t# r8 F* N) b# r( q6 Mdo
! a- x) t+ v3 p) A; V' q# r        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
+ u4 h) I& t8 |5 o5 y                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
4 N) h6 X3 \4 |1 V% n                        print"yes";
                when 32 then
                        print"no";
                else
( ?- `5 ~! M1 \. B$ Z; h* u                        print"cancel";
1 z" `6 w  m# K8 `6 s                end;
/ R4 K) v* j* o) Q/ _                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
4 {: X8 a/ Y* Q! O& J; c/ t; J        machinename:=sprint("M",i);
# E2 _; k8 }+ W7 D        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
$ ^5 ]  e+ G5 |        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
/ w$ `. ^7 }. b8 b                buf.deleteobject;
        end;
4 `" j( J8 `. g( V2 {        next;
# r5 Z; B6 O. c8 Q& _3 a       
! Y  G0 A( ?- ^$ t        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
: j+ f; a: p' a2 s- s. I2 l' b  O                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
& r2 }9 o% |* a& ~. s                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
3 C- P+ J) M; @  B8 W                        and activityspace[1,rows]<(1.05*y_max) then
8 W* h2 d7 n6 M7 L+ Q7 P2 z* {                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
- C9 R/ A7 I. P2 q  u                        activityspace[1,rows]:=ct;
  B! Z; d) @- l: z                        mark:=true;
/ g1 C* }: h' h$ h) e                        else*/
; n7 l: ?; A9 X2 j                        y_max:=y_max+dy;
; Z; k! \2 P! i. x6 I                        dx:=0;
                dy:=0;
                        --end;
$ E8 Y4 b+ K+ Q3 H& t7 C. Z                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
                        dy:=activityspace[2,rows];
9 a, ~+ t' G, J' g                end;
                dx:=dx+activityspace[1,rows];
9 a0 A. m9 m/ s* Y  @                /*if mark=true then
* P! S4 ^4 h' `- E1 ~% Z/ S! U# {                ct:=activityspace[2,rows];
/ G6 @# s" h& [% B2 B                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
4 r4 S1 c/ }' U, V* Q( O        next;
        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);
        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 J! E! w' @3 Y' ~, N6 E       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
9 U( h! }/ v8 M9 C" d" R                        if j=i then
- i# _+ P* n9 j0 {- v' U! z                                d_from_to_chart[j,i]:=0;
+ |  S" s# N. Y3 I' J                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
0 n# \, W" x3 [                                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);
$ J0 a; s2 G3 i  n& X' e% X                        end;
- o8 y5 ~1 Y  Y% N                next;
        next;
       
  t% e7 M8 p8 V, s7 ^; r0 Q% i        lines:=0;
        partstable.delete;
- Y- @; z& b2 H4 P       
) [( B& o, X: H( z        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
4 ?0 }) Q& @$ i( |5 B1 {                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
8 N& G9 a5 C3 ^: l: ]" A* N7 p: p                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
% R- W0 u! i  w( q$ x! c/ M                        partstable[6,lines]:=j;
1 m# P' b/ Q. n  U                end;
        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]);
) l+ \& v# L7 s2 U9 f        machine.name:=machinename;标识符未知
. O% I; H* Y, d3 j) t) z- N. @        machine.proctime:=5;
; S/ U; o1 _; K, o7 z, Y        machine.label:=activityspace[0,rows];
' o/ a/ V, A; T( p" ~5 d4 O        machine.exitctrl:=ref(leave);
6 b: N: B" F. `7 h9 g6 N9 Q7 e+ [       
        bufname:=sprint("BF",rows);
2 o* y7 z2 d5 ~" o        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;
6 d# |% ]0 t% l- f        buf.capacity:=5000;
  w+ S3 _, E3 D7 c/ y        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
, h: v4 `( u0 V- x5 L, L- i       
        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;
' C  M9 b& o! D8 Gcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;