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

zooey

is
) S- s2 G% z, h" ?9 X) u( o        mark:boolean;
        dx,dy,ct:real;
& U  ?5 N% W6 A% u0 U( A3 ^    i,j,rows,lines:integer;
3 v  q& [; w; B( `, @0 U) R    machinename,bufname:string;
$ z8 m+ J+ v" E- n. W9 N    machine,buf:object;
: l" D. j- C3 m3 Jdo
        current.eraselayer(1);
/ F% {2 n( M, `       
+ v" Z& l) e- D        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
4 L4 f5 u) E9 Q) }                when 16 then
                        print"yes";
                when 32 then
0 u, q0 z% R+ S+ n                        print"no";
) g& z# V$ q5 W# e                else
/ K3 S' o( B$ g4 D                        print"cancel";
+ C- e* o3 h7 x9 L; L; L7 F                end;
" q+ w0 M7 z* E3 g* q1 L                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
) E, D6 `! {" x        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
: [$ D" W$ s% }9 u        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
: [$ c3 t: c2 A4 D+ h                buf.deleteobject;
5 A: _, i( H' [# c        end;
5 l8 f: J& ^; k. M# E3 R6 p4 A        next;
8 u4 K; n2 T0 w( d       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
, v! p) l' Y9 h7 q) y6 B# l                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
; z, W" b. H. \1 d& Y                        print activityspace[1,rows],",",activityspace[2,rows];
5 H& ~, u' p) @/ Y1 S                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
# f) |$ M- n5 Z                        dx:=0;
$ s: j+ w. Z0 F; h                dy:=0;
2 W5 L+ w7 E9 U2 Y                        --end;
! K" k8 h" k" ]! B% A( V- I/ u                end;
4 Q' e& T! ~7 T( O- R                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
8 i0 A4 B% X+ c0 R3 Z$ L2 U& B+ D+ X                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
$ ], s8 n4 ~% x, h- @            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
2 \" l1 O% a) j' J( _" O  P- E                dx:=dx+activityspace[1,rows];
6 X. m" n  I' y) p                /*if mark=true then
2 M' h6 P, U, v& _" d! K* S4 k                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ I& ~9 {' I; u" @* R+ p5 I4 S                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
0 k: p9 X" c" I  z+ g. o* L) m        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);
& B7 E, R; A# `+ b" b7 T, H        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);
+ L2 k8 H0 g- b2 K( H       
        rows:=0;
3 k9 t+ d3 e" n% L        lines:=0;
        for i:=1 to number_of_machine loop
/ D  R, U- |* e# s8 a                for j:=1 to number_of_machine loop
) b, M3 J( s5 t, p% O                        if j=i then
6 `4 O/ b6 z. r                                d_from_to_chart[j,i]:=0;
                        else
* G8 K8 o2 i' Z7 V                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
- t! f6 E2 c8 S% W                                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);
5 Y& l) X2 [8 d. {7 [# K7 f                        end;
                next;
        next;
       
5 Q0 H0 L0 ?' h% ?8 r3 y# a        lines:=0;
  h3 g; e" N' F; R        partstable.delete;
  U3 }2 V: L; Y+ Z9 i       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" o7 X; _9 E" B% t( X3 Z6 l8 b                machinesequence[2,i]:=rows;
& H% V! V/ ?* g9 }, U                for j:=1 to number_of_machine loop
' R9 r- C" G. C' ?7 }  b                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
6 c4 K) C2 G2 l& U; o" e9 g                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
& V+ h7 h. U0 o( Z                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
; m" n  h2 [/ ~8 h0 X: l                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        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]);
. y2 }1 v2 \+ J- E+ y) }- y        machine.name:=machinename;标识符未知
        machine.proctime:=5;
/ O; X. r1 k4 t3 @8 j        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
( i$ }1 O( F6 \' N" v7 i       
! ~/ n( L) {' t* }0 L        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
6 e  q3 f+ D! M0 m8 |) ?4 h, S9 [: U! |        buf.proctime:=0;
' `$ A1 N/ G( P) W: ]" t& E! e        .materialflow.connector.connect(buf,machine);
$ r  C" Z0 M# E5 z8 o; E6 k       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
4 ^, u, ~$ D  l  U$ vdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
- l- g) N* T% C1 Mcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;