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

zooey

is
- g4 L2 G6 ?, {1 N$ [5 k        mark:boolean;
        dx,dy,ct:real;
* U* E; Y( u, J) X    i,j,rows,lines:integer;
3 A$ i1 E* i5 t; t( B5 Z    machinename,bufname:string;
+ @; u! C. R. {4 r$ \7 \& D    machine,buf:object;
do
: v: M) C7 W# }& h& D; w: k        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
& N1 I( b. i  u) v6 G4 U2 |0 m1 j                inspect messagebox("设施数目不对！请核查...,",50,13)
1 s7 W) x  v  ~6 a                when 16 then
1 f; T" f) e2 p' x                        print"yes";
5 H3 L, C* D* K# j7 ?: S                when 32 then
% |: J0 V  }6 [2 V( x# w  C                        print"no";
. q2 K; R  |2 j: u) K                else
                        print"cancel";
& Q2 Z$ G1 H- Z" \8 }  M                end;
                eventcontroller.stop;
4 ]* r$ M$ g' V. e- z        end;
' [( K8 @4 l1 M$ `+ q$ C( i       
        for i:=1 to number_of_machine loop
( B+ U& ?1 X# ^  x( B3 k        machinename:=sprint("M",i);
6 c3 O& }) J) h& L        if existsobject(machinename) then
6 @) z4 _4 s! |5 b7 z4 o7 v5 g5 C                machine:=str_to_obj(machinename);
, @3 k: C' W, r" P                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
" F$ A% S' D( X& _6 @5 B        if existsobject(bufname) then
5 @$ ^: `$ F8 T2 f                buf:=str_to_obj(bufname);
8 _; C6 K  Q  T) a. L7 f% G                buf.deleteobject;
7 `4 ?; [  _5 G* L; h/ K        end;
        next;
+ Y6 E* K5 g. n4 Y3 Y0 O       
! h( G, u# X+ i) q9 d        dx:=0;
! q0 ^0 d' s  n! |1 x        dy:=0;
; J3 Q( L0 U' j" D        for i:=1 to number_of_machine loop
3 U! T/ J& X& |0 D$ n( `                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
8 D3 R, Z; m* C  m                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
/ R% a* _( y# k" u9 V1 x+ M- x6 m                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
1 k" t* L8 T/ `& S                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
" L2 x  M, L) V7 e                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
, j6 @. q; k) J# [7 ^                dy:=0;
                        --end;
& [! J4 ?' |! Z# U+ |. ~                end;
8 ~; r2 Q/ f! e, u  k                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];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
8 {. j: y" @& V; s1 C                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
& y8 c3 j: E# ^* f# k  t  z        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);
6 p  X( |9 V* s6 P+ Y! T2 Q" B        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);
       
! t* r' c& ~6 }" r. H/ e        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
( j8 R4 g7 P; f7 Y6 h! I                                d_from_to_chart[j,i]:=0;
0 J; Z$ ]6 p* z! w5 B  k                        else
1 b8 Q; c/ D) N5 t5 `5 e5 s: @                                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);
                        end;
! k4 R* Q2 I5 h$ W" i* d                next;
  r: V$ X4 X( ?/ o        next;
       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
: a5 n* l8 Z0 a                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
$ u! j1 U8 N) a; n/ a                for j:=1 to number_of_machine loop
) v2 ]$ i% Y3 d: Q8 w                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
7 ~8 ?8 E' c& d% z" H! }9 R                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
! M5 s7 b# ^# P9 {% \. j& R                        partstable[2,lines]:=w_from_to_chart[j,rows];
7 D# [$ _9 v& ]1 G8 e                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
# M- H% ]. a/ j' d3 ~        next;
% i. K1 O5 O# s& _! R        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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
# x  [8 g) \3 a1 ?        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
) z' w) \' n3 c* u- t5 L        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;
7 y; s& W. V" X/ p+ D" w. Y        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
% d, ^4 z0 `; A. r- `        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;
- V* g7 A( h* P* ccurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;