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

zooey

is
5 R6 P, V% b5 s8 r        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
1 h1 r8 U: l) m" j+ i. |$ |    machinename,bufname:string;
    machine,buf:object;
' E5 f/ o. T7 _2 I( g; h) r6 _$ Zdo
  U+ c+ J/ W9 i1 H" x6 }) U  r        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)
8 U" G! D  T& d, v: {; y                when 16 then
                        print"yes";
7 ?/ m. v; C+ c8 d# C                when 32 then
$ _/ J" B3 u& t                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
9 B; r1 X; A* g: g2 A1 S, Z' V       
+ H2 G- H. o+ @        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
1 D( K! |1 U! F        if existsobject(machinename) then
, k- t9 B1 j0 M! D+ m                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
# K6 a9 ?# R: h, q        bufname:=sprint("BF",i);
        if existsobject(bufname) then
6 X- \# D& ]1 F8 {4 {& s  T7 a                buf:=str_to_obj(bufname);
: E, X7 F8 t8 {' H                buf.deleteobject;
        end;
7 u. U+ R/ j1 F# a- E: d) z% Z6 t        next;
       
: c! f# B; V9 N" U        dx:=0;
6 b: d: j; h: n% v        dy:=0;
2 s* P4 z2 ?& D7 G' U        for i:=1 to number_of_machine loop
( t6 Y* H' o( ?* |1 S' I) y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) w! u7 Z6 N& U: c, R+ k7 v. v$ @- E                --mark:=false;
5 @  r( n% l  h* {                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
* y: k! ^) ~: n+ m+ Z# D, _* y                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
/ k, }0 \# ~; ?9 B6 H                        activityspace[2,rows]:=activityspace[1,rows];
! C) x; K0 m0 b( c& ?                        activityspace[1,rows]:=ct;
7 C0 N0 d1 F( z* F% k' H: Z                        mark:=true;
( h1 j8 {' S) X1 l8 `5 Z% ~' z* |                        else*/
; g# \3 D, q  f6 k$ G1 B                        y_max:=y_max+dy;
3 o; t% x2 `) D& t1 @. E7 u9 f                        dx:=0;
                dy:=0;
( ^5 I" _. i+ _& q* k8 e                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
  B$ J- o! V& M. ~' ?: V( Q                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
; J# n/ n- W; [3 f: `  x; T            if activityspace[2,rows]>dy then
1 J6 U8 P$ j* h                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
) }( n! Z3 H/ G& A4 F6 ^) _) f                /*if mark=true then
: p, d' U3 R4 A$ i                ct:=activityspace[2,rows];
- s( q. @7 Y/ u2 h* u                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
9 }* C& T; P: C! @& |+ d0 T& F        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);
" I8 [4 J# N3 o4 D  g        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 _; _8 @& }/ h$ v0 H       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
4 l9 h3 e  A- P) c' K1 d5 [                                d_from_to_chart[j,i]:=0;
2 X/ u+ j$ p% N9 u2 D( a4 P( D                        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];
( c5 R7 k1 }' ~" a; P                                d_from_to_chart[j,i]:=abs(dx-dy);
5 p; n/ n' ]6 [- Q% T                        end;
                next;
        next;
( E) I. X% x$ R1 l* W       
        lines:=0;
        partstable.delete;
       
" X; k% z5 i' o- U8 q+ g        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% H+ b! M8 S$ Y                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
/ J2 w+ m0 V: q8 n8 s+ d8 m1 O                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
! l1 l* f, E  S. }3 M                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
) K" n4 B" q0 D; C                end;
+ ]: ]! b! @# e1 i* h  A        next;
        machinename:=sprint("M",rows);
6 f+ E0 ~7 o; \4 g' k1 d        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]);
$ {: K- N" ~" u: G2 b( Q6 ^        machine.name:=machinename;标识符未知
        machine.proctime:=5;
8 G/ Z* s" j5 r# q! U0 E9 {+ E        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
+ |4 h* s- X9 m. f        bufname:=sprint("BF",rows);
$ e0 b: _& A1 p6 B( \1 Q        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;
        buf.capacity:=5000;
8 F; A4 ]7 J1 v+ `- i$ t        buf.proctime:=0;
        .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;
! K4 Y3 x5 G! ^$ }2 a. Ucurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
  c  W1 [6 U8 d/ j3 P4 knext;
end;