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

zooey

is
        mark:boolean;
& @1 Y8 u$ c% {6 V9 y        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
  p" t; V, ~3 C$ K6 W0 @do
        current.eraselayer(1);
$ {9 o: x+ c) t" O2 X       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
2 I' B2 r4 L) ?                when 16 then
                        print"yes";
                when 32 then
9 w# N+ e9 v- Q( {) u1 }                        print"no";
( `, ?  r1 ?4 V( @6 A                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
+ A  t" l4 a- d! {6 y% Q6 p: t% c* p       
' s& m* O; n7 h% Q' M1 y% g$ q        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
. n# V/ j5 Z$ A- f# [        bufname:=sprint("BF",i);
, p1 [' L: A- ?        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
! H8 e0 M5 O; }        next;
       
# Z8 F) d: a+ w) z' o8 D        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
/ t5 X- j% E+ y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
! i( n+ |% v# x/ c; e8 k& E' m5 X4 ^                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
* e2 L$ S. [* t. H4 ?+ l                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
, ]& B" t. o0 e& s6 D0 v, ]8 h                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
! T4 @5 H4 g. K7 P; u6 t                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
5 J+ B$ g3 v6 x* m6 ?                        activityspace[1,rows]:=ct;
                        mark:=true;
* V& Q- V3 q  e                        else*/
                        y_max:=y_max+dy;
" \& X* f3 [6 Y; ]+ u                        dx:=0;
  U5 }, X' T8 _1 |, N4 E. \                dy:=0;
* E, }# H* q, B. T8 i( `! w* u' g                        --end;
                end;
3 U! m6 @! L1 Q! e& ^! T- I) F                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
3 _) d9 J3 d+ O9 J5 G0 G                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 Y! `. v  [, H- U3 k& z                end;
) B6 D# U4 I# l7 J5 T                dx:=dx+activityspace[1,rows];
$ \( L0 H  T1 S& j# q, i9 X0 R- u                /*if mark=true then
: z- N* ^& J/ ^, v                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ R# t5 s% Y" g3 r# A) E                        activityspace[1,rows]:=ct;
, [* t; L) J, l: I7 r/ y  R                        end;*/
        next;
9 S2 z4 z2 v3 i6 d        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);
2 P! P' E) j+ s* F1 }8 a! g) p        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);
       
: u: w  a( x7 g% Z        rows:=0;
5 e( W# ^2 J# `. B        lines:=0;
        for i:=1 to number_of_machine loop
/ k; f% F! V+ ?# K7 Q) B                for j:=1 to number_of_machine loop
                        if j=i then
, L& y3 c' G( s. b# E" q! H. \, U                                d_from_to_chart[j,i]:=0;
3 P/ H6 c0 f9 ~+ l                        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];
9 v( s' T# {/ a2 I                                d_from_to_chart[j,i]:=abs(dx-dy);
5 T3 D; J  g& ~7 i+ q$ I                        end;
                next;
( d1 ?$ o' J' Q  _        next;
9 \, Q' x' ~' n. {) Q4 M  d       
        lines:=0;
/ t  f2 @8 q+ l: |) j: z5 E        partstable.delete;
       
7 _% U6 Q' O# F6 q8 n# h" {. Z        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
4 i) m) o' x' e: ]6 d4 I                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
, p5 Z; v' C' |# E/ U; v6 p                        lines:=lines+1;
+ x# i& S$ y6 S+ {                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
$ c/ M. L1 Q. z: y) L! |  K) h                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
! [5 k. ^+ x9 u                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
" c* R& D% k- p- f/ u9 ?        next;
        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]);
: h% u& r  _  N' C4 O, ]        machine.name:=machinename;标识符未知
        machine.proctime:=5;
7 W+ W# o" ?6 X% s        machine.label:=activityspace[0,rows];
8 Y% |9 @$ P) l4 q2 D& g: X        machine.exitctrl:=ref(leave);
, T9 R- @" D8 Y3 ^1 u$ @1 q3 }) b       
1 u, u( Y7 Q) k. d# r        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]);
& ~4 S6 |5 f4 ^" U# U        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
( d* K2 w/ p+ d        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
0 ^; J, n2 u# A8 hdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
; \. G2 W! j" {9 c) w7 S* `current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
" b1 B, v& ^5 I& e/ Dnext;
2 _2 t9 f0 x% h/ }8 M5 k" M6 k! T9 Gend;