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

zooey

is
        mark:boolean;
' t2 y5 R% D1 T& B( F        dx,dy,ct:real;
7 c+ p3 U% j# Q; ]6 @1 [: O    i,j,rows,lines:integer;
; [( y2 j! o- O8 G/ E    machinename,bufname:string;
+ j1 d! G, K4 P" ~    machine,buf:object;
do
9 d+ u7 T0 V% Y6 u8 K        current.eraselayer(1);
9 B* g+ |8 }2 ~       
0 N7 z! h( f+ n/ Z7 `        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
* ]0 t3 r! C: V* V                        print"yes";
                when 32 then
8 c/ O/ i. Z: y& _4 p7 n0 w$ ]                        print"no";
                else
                        print"cancel";
                end;
' u" S, X# d5 A6 l                eventcontroller.stop;
1 h# V" W( T# I& r2 ~+ y        end;
/ ~1 L" _$ }5 w1 j: j- R( o% ]9 |       
1 I; u5 @2 r; p5 c0 k( h        for i:=1 to number_of_machine loop
9 I( X. A4 A, h0 E: ~3 c* C: i        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
: b9 t( T2 u/ i+ G- z: F, ^        dx:=0;
        dy:=0;
, Z, V' j4 \4 Y* _4 w0 n        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
% |: ^) G" d2 `9 M                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
' C# x0 i% i! U3 k                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
2 s+ Q% H3 K  l4 _* s                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
' N5 V3 t8 N  i2 h) [                dy:=0;
                        --end;
                end;
+ s3 ^2 [5 b5 k                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
3 W) E7 b4 f. ^                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
- J% q$ ~  M+ u( [, f            if activityspace[2,rows]>dy then
1 Z9 \7 {: w: e! o; E3 f1 X! ^9 }                        dy:=activityspace[2,rows];
                end;
' t" k7 Y  W4 W+ i+ z                dx:=dx+activityspace[1,rows];
- \& A# g) e2 k1 _( B% x                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
1 w$ f  U" _  B( y% x2 H) E4 v9 ?% K: w                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
+ r) A) ]- a3 A; B: R        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);
! o+ l) L& l' U* a        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);
       
        rows:=0;
        lines:=0;
& `4 l0 t9 d) A" p  ~8 B# i2 D        for i:=1 to number_of_machine loop
  K& ?* x1 p/ J) `                for j:=1 to number_of_machine loop
- w3 A5 S5 K/ Q. q0 B                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
1 O& ?6 u# O6 b% j) _  v                                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);
) j! C& y( e/ L4 t# H1 K- E                        end;
8 W: L+ x' E$ I9 c. A3 @! t# K# A                next;
        next;
       
        lines:=0;
  `" }( `" o+ c5 P$ ~        partstable.delete;
       
5 C1 q) _9 Y  r+ J; N* m5 s+ _        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 l7 ~/ e- s6 `' N- V4 w3 T                machinesequence[2,i]:=rows;
- Y$ i3 Q& b. W- _1 P1 }$ A! m                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
1 G" \, W+ M" X3 f" v9 ^                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
2 c' E8 V$ f! i2 f0 J; R6 Z3 D, k                        partstable[5,lines]:=rows;
1 J2 ^: z2 |+ z- ~3 j                        partstable[6,lines]:=j;
                end;
7 N0 d, y5 Y7 N: `, b5 q        next;
        machinename:=sprint("M",rows);
) @! D: V, M+ T' e( N. H4 P        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;标识符未知
8 r- b/ f! T* j0 f# i        machine.proctime:=5;
5 R" c) t% t4 x3 h+ ?* j6 ?        machine.label:=activityspace[0,rows];
  _2 y6 R2 ]; l" l4 T        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
+ s$ h; D, c  i0 b. \        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]);
7 P; V: i. c  L3 f1 x1 U        buf.name:=bufname;
        buf.capacity:=5000;
5 i9 O$ T. X) l5 _        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
: ?5 [: S4 Y/ S0 Q3 e- p! F        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
$ y5 ?# K/ a8 @5 {end;