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

zooey

is
) l1 {% t- J; ]/ e) Y        mark:boolean;
* |$ _3 T7 u+ |/ s        dx,dy,ct:real;
4 H' C/ y, W' z9 a" y    i,j,rows,lines:integer;
    machinename,bufname:string;
7 v9 o: Q: r6 w    machine,buf:object;
4 A; Z1 @  f8 ~! r# {# V3 Cdo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
9 L6 B7 |0 C  _' \' X' B                when 16 then
                        print"yes";
                when 32 then
                        print"no";
& \8 @% v4 }, \9 w. T; }                else
4 d  t/ B( |) a0 Z) S                        print"cancel";
                end;
1 B: Q& ]; B# s- {, x, T                eventcontroller.stop;
2 M! O8 r2 O8 _; K        end;
       
- T$ `: i  `2 n" c$ h& a' g        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
3 u0 }, i/ D3 J  L( y: Q                machine:=str_to_obj(machinename);
                machine.deleteobject;
. d) r4 O/ M3 \) N: @        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
. I5 l4 i' b0 Y# C                buf.deleteobject;
        end;
% \. i2 L0 s; O0 V! K/ u        next;
       
        dx:=0;
' a( d& k0 y& k9 u+ I1 G6 c        dy:=0;
        for i:=1 to number_of_machine loop
/ `; a) x# S6 v3 H9 m# W0 t7 X( B                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
$ M, @! i+ o* b- G4 Y8 Y& q                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
# F! N% T  G4 V% ^2 O% Y: V/ y                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
9 h5 U% Q6 ^* B: q, b                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
: F2 _0 Z2 v- L, Y                        y_max:=y_max+dy;
! T$ p7 r5 \- F% \                        dx:=0;
% O& Q( H7 g$ U# `" V! O3 y  w* L5 J( K                dy:=0;
* y$ x1 d1 J( C/ m) W                        --end;
/ M  Y$ t0 I8 ?, Z3 @                end;
0 I3 H& I. Z( k; c' Y& a3 s$ c                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
* e3 Q  n3 `. |( }; B                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
6 Y' I0 J* d; g- _            if activityspace[2,rows]>dy then
; [6 K  z4 w% |. a/ y7 @+ F' V                        dy:=activityspace[2,rows];
* J" P+ F, i0 U# d( T                end;
. K. [) Y2 R/ V/ Z4 Q6 c9 q                dx:=dx+activityspace[1,rows];
6 z( ]. m  Z$ Q- u* {# b6 ^. S                /*if mark=true then
                ct:=activityspace[2,rows];
* R: _1 B5 M1 K( h+ f" m                        activityspace[2,rows]:=activityspace[1,rows];
, Z" }& H+ k7 @9 B% \0 P                        activityspace[1,rows]:=ct;
                        end;*/
; @/ m! y  K7 y% N* ]        next;
' N" z4 Q, R, [        y_max:=y_max+dy;
) [5 ?2 ?6 E8 |2 ~8 d5 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);
       
5 U4 l% P+ B$ |9 r5 u0 ?$ g$ t        rows:=0;
9 B4 \0 X6 m$ d        lines:=0;
! l9 k* ~* B# ]3 ^  g  _: A        for i:=1 to number_of_machine loop
: a4 X7 _+ G7 ]& P2 [                for j:=1 to number_of_machine loop
: e3 I% @/ |. }& {9 V                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
5 `; C6 W; h) S8 m) y                                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];
, B" q- g% ?9 g! i& @( A                                d_from_to_chart[j,i]:=abs(dx-dy);
4 J, D5 e! p9 ]6 n: \7 z; k                        end;
                next;
1 I+ M' b. o% c. d9 M" U. r        next;
* ?# c4 u5 p8 g) e3 B8 Z       
7 ?, r( f, |9 h        lines:=0;
! o: R) T( v* I( p, v2 h! j  D        partstable.delete;
       
% @8 a. _, ?' p* Q% e# B        for i:=1 to number_of_machine loop
: Q: i- d% z/ B4 }                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
/ j  J) V+ r% ?1 p- U$ @  e( m                        if w_from_to_chart[j,rows]>0 then
7 I! p; N2 E, P, B# C: y9 }                        lines:=lines+1;
$ q  t) Z5 |3 z- I5 |5 w+ B. H5 K                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
: k) j( ^* B  ^+ c' a                        partstable[6,lines]:=j;
' o" L' c- a" K0 r+ ]5 V                end;
        next;
& J: E  @2 q  I7 B8 w, f+ I6 g% W7 D        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;标识符未知
3 R. m1 W2 d' F$ q: u        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
" u  B/ d: `% A) G& s       
        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;
3 W# F' g  Q5 _- Y; _        buf.capacity:=5000;
        buf.proctime:=0;
8 t7 Q3 Q# U7 p- c6 D; A! D        .materialflow.connector.connect(buf,machine);
       
        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;
" s$ T" ?0 _+ \, mcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
$ N& e7 L& A$ G5 O( O2 j( ^end;