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

zooey

is
1 y4 J  X, G) a3 m& ^* e8 w2 g$ e        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
( d) j# h3 s7 y  M& \    machine,buf:object;
do
" _6 t; C8 r7 O8 ]% G5 k$ \        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
% d" l! f- Q% W& q# \2 a                inspect messagebox("设施数目不对！请核查...,",50,13)
% Z  k) L4 n3 [                when 16 then
' `" Q; T" i) J) G7 b. W+ D                        print"yes";
                when 32 then
                        print"no";
                else
" z; C6 c7 v; y) L                        print"cancel";
! S& {2 U& b$ F8 R+ F4 y( {8 ^                end;
                eventcontroller.stop;
; O1 f0 b3 r! a! S  ]& R3 x6 O        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
7 F0 |  Y* p$ T  P        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
) h- v# C4 r4 |+ O- v        end;
        bufname:=sprint("BF",i);
9 f) r1 ^6 `+ \        if existsobject(bufname) then
! [( a# g! T# i/ B% P                buf:=str_to_obj(bufname);
                buf.deleteobject;
8 a; f5 W( T* {        end;
( |: ?$ B1 U& D+ k        next;
       
        dx:=0;
" D0 M) B$ g0 U) F- g        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" q5 }5 c8 Y9 P" P1 L* ^* C" H                --mark:=false;
* A) }6 H' f  }" B1 J5 z" t& s+ W                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
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
9 L  V, r/ M5 z7 _8 H- E                        mark:=true;
                        else*/
& v4 ~3 C# N4 \) l/ w                        y_max:=y_max+dy;
8 [7 W. s2 l) t: ?, W                        dx:=0;
! J* p5 ~3 W5 a& e$ _                dy:=0;
& U+ k' N5 R; F! V* G' Z                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
$ F+ N# f4 X( Q' I1 Z9 }* [                        dy:=activityspace[2,rows];
) o! J( X) n& U$ H# P$ D' i2 P* T                end;
                dx:=dx+activityspace[1,rows];
& Q3 L; P7 U! ?0 }& {* T7 S0 u                /*if mark=true then
: P& r  G. W: H! U; V* Z0 E                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
! b9 y2 O( W0 z, J7 E# `* z# }                        activityspace[1,rows]:=ct;
                        end;*/
) ~1 b  F' T4 F$ G% h        next;
        y_max:=y_max+dy;
* M* q4 c; t  B        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);
, H$ P. Z, M% N  L3 h       
0 }3 T( y0 [  W- V        rows:=0;
7 X( d, p* y! N        lines:=0;
  _* s  d6 o6 D6 N4 s        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
* D0 X% R) p& _% G                                d_from_to_chart[j,i]:=0;
; Q5 B+ b7 o5 ?- J1 d* c9 W                        else
) I6 c$ \# M" G( |$ v8 m% }                                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];
8 C% }- ]8 `3 c                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
! j4 P" a% E& J! b4 p        lines:=0;
* q* c8 |( N& ]% g        partstable.delete;
) h0 X4 N1 {& u$ z       
$ D/ N3 m7 n6 C/ z  V        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& F4 t% l1 a7 L( y3 x                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
4 h6 k1 f9 \3 m% ~, p( |                        lines:=lines+1;
6 `6 l4 a  {% r                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
8 A5 U. u4 M3 K1 N5 E                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
+ B# m& ?( d3 }2 Z4 z. |, b. L        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;标识符未知
+ B- C5 R$ ~* x- t  \5 Y7 N        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        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;
! C' j8 o) {9 e0 z        buf.proctime:=0;
0 O; Q) \% a6 Z0 p        .materialflow.connector.connect(buf,machine);
1 m: I3 g$ }% Y3 Z6 G" T: K       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
0 C7 V' d6 i( @' d7 C7 }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;
end;
3 r* R# G! i' o: T" W( W5 `