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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
- v# p/ _4 d/ J. S0 r6 p: y2 F- n    machine,buf:object;
do
' W4 q9 Z1 ?& n* Y3 [* F        current.eraselayer(1);
9 G( Z0 b) ?7 d9 @8 N, s  \       
4 O( o# r  ]# @: l0 c: h        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
7 s, Y/ k, F3 {) j9 }                inspect messagebox("设施数目不对！请核查...,",50,13)
# h8 V" x/ @; `) d0 |  o" o  ^2 {, k                when 16 then
* @+ r9 }7 U: }/ _, M$ j                        print"yes";
                when 32 then
                        print"no";
* k) R$ t% E! G, d                else
                        print"cancel";
/ G1 [7 @% C. f- E, m) w/ S& E                end;
                eventcontroller.stop;
        end;
' r  w) e/ y* t0 z0 @* c# U- \/ v) v9 I       
" r, B% \7 C$ W$ ]* U        for i:=1 to number_of_machine loop
3 w4 ]  x$ _7 W9 H; _- y, D5 E! k        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
( u' p8 k, v- o, v" i        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
& J7 f7 u7 V% B' u3 I                buf.deleteobject;
: Z0 f* r, ^3 T. ]' _        end;
        next;
  f7 n; t8 h) Z  P! R* t5 M& r* @1 u       
2 S; I: f* n  ?6 t  H+ E$ z        dx:=0;
# J8 F: U) H5 s; j* j- p0 j        dy:=0;
        for i:=1 to number_of_machine loop
+ y+ l' B! T. ~8 ?* w                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' j7 K2 A  |+ m1 G                --mark:=false;
4 K  w6 d$ t4 R6 X                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
/ g% l" c( C2 c6 e" T                        print activityspace[1,rows],",",activityspace[2,rows];
3 e; W0 m3 G( g; h9 s* m0 E                        ct:=activityspace[2,rows];
' B, _' P% g0 }+ \6 _5 `; A                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
8 [$ u( J3 @4 F% l% F7 q                        mark:=true;
6 Z' J; g4 U+ a4 h  r6 ]9 }                        else*/
4 y" H4 T7 D/ O8 d* K% T1 ?6 z1 r# D) \                        y_max:=y_max+dy;
' B$ I+ U4 s% `                        dx:=0;
                dy:=0;
0 R' _  j' G4 t8 \                        --end;
  X# b; J  R6 @# {" r, V0 J/ x                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
1 w" [& V9 Y/ x) `' m) a1 Q                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];
1 I/ U# {7 L  m" Z* U* @8 W                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
. k) J  j% _4 v+ u7 c! b                ct:=activityspace[2,rows];
! t5 g4 Q  r# L                        activityspace[2,rows]:=activityspace[1,rows];
6 d! c6 F( \9 s: S                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
4 j& I( P) W8 }8 c2 w. J0 Q6 d4 @        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);
1 @7 z8 v$ l5 Z* N8 u       
        rows:=0;
        lines:=0;
8 `- J' o; ^  r        for i:=1 to number_of_machine loop
5 ~1 S$ ?- K% T0 V; w4 o7 _& d/ {" ]                for j:=1 to number_of_machine loop
  a  O2 ?  h8 i  S                        if j=i then
                                d_from_to_chart[j,i]:=0;
% U% X% S6 O% J! I                        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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
& M% y" N6 |3 B        next;
/ t" Y0 @9 U4 |- y6 x. P       
        lines:=0;
9 u1 q1 ~% F( O8 @! `$ i7 S        partstable.delete;
1 p; V$ Q5 `) v5 M9 V: {$ [  m       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 q  I' R9 ~5 M5 ]) h8 D" q7 P* |                machinesequence[2,i]:=rows;
% d! b; u5 v% F2 L4 Q0 y) ^2 \                for j:=1 to number_of_machine loop
2 I" k' R) [6 m" h+ k                        if w_from_to_chart[j,rows]>0 then
8 v3 D% c  D/ }, E; m+ `                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
# H2 q' P( k+ o. t6 l% k) |8 J" K                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
; H# n0 j1 u7 \6 u  U4 K' r0 ~                end;
        next;
$ I3 K; [$ U0 E; J7 O' D1 V* `        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]);
5 D) n9 o' a) ~  l% y% g% E8 g        machine.name:=machinename;标识符未知
        machine.proctime:=5;
# v! [  ?2 b+ D        machine.label:=activityspace[0,rows];
* R% x8 O) w0 e. m( r1 w        machine.exitctrl:=ref(leave);
       
  L" F4 _* A. R, d        bufname:=sprint("BF",rows);
8 ?7 ?8 M1 [6 i        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;
+ R# K6 W8 V+ c* l8 ]/ ?* B; L        buf.capacity:=5000;
        buf.proctime:=0;
  S% T0 G- z4 X: Y  L. w# n        .materialflow.connector.connect(buf,machine);
4 ]7 s- @7 d& U0 V3 y, e7 ^% ]4 N       
5 d! n+ U% x2 }        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
3 x5 Q& a$ ~' U! |  n5 ady:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
4 \( ~+ j6 C/ [+ \4 T/ }  Gcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
1 k+ G4 R% `$ Y' B& enext;
end;