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

zooey

is
& g/ t, ^: }7 w/ z5 M5 K        mark:boolean;
        dx,dy,ct:real;
7 e. F% J. t& f# G1 `$ j' |: a    i,j,rows,lines:integer;
    machinename,bufname:string;
; r# f1 m, w2 l* M3 }, g    machine,buf:object;
" g$ {- R' {  y( d! `do
) Q- h7 [9 ?- U. h        current.eraselayer(1);
       
" {6 d+ i( ^, T        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
/ G0 E3 x$ T5 w  n, |( M                when 16 then
                        print"yes";
                when 32 then
6 n+ e1 H: L: f1 g5 ^; m: k                        print"no";
                else
" o: h) P7 b$ i0 S6 e5 r" o                        print"cancel";
                end;
                eventcontroller.stop;
: ~  G' [1 i& ]: j( z) y# l        end;
       
        for i:=1 to number_of_machine loop
. J, q) O8 t/ D% _6 L4 K        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
' v* H- M- U/ B                machine.deleteobject;
% Q$ b) ?/ ^2 V        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
$ \+ _8 m6 s3 K4 D8 n, j; N                buf.deleteobject;
        end;
        next;
+ v' B5 ~+ S: c8 S1 d( L       
        dx:=0;
        dy:=0;
7 u" V, @9 h# c+ x2 G9 L3 N        for i:=1 to number_of_machine loop
/ F6 K0 b3 Q3 e* K' d* ]                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; e; o( m6 c/ x0 l2 U                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
8 ]9 |0 n+ O0 \: c, a5 W                then
! D/ O! w* M8 ^9 \7 H                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
; P  s0 ?( p  w: l                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
' T0 x# J  a  |) ?/ L                        activityspace[2,rows]:=activityspace[1,rows];
- }% M8 R) ?$ I' V1 k6 p! w                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
3 E6 d* c8 N! B                        --end;
                end;
) n$ o' K, T& C& T                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;
% F( V7 x8 c- t/ T  ?            if activityspace[2,rows]>dy then
) p) f; F& }3 {6 _* n- R                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
9 `* L; U$ e/ J* b$ u) ]$ m                /*if mark=true then
0 W+ G1 b6 J) L! g- P                ct:=activityspace[2,rows];
% g/ [9 x) [+ [/ G: U                        activityspace[2,rows]:=activityspace[1,rows];
4 k( a# s+ i8 r) Y                        activityspace[1,rows]:=ct;
  I& z- i" L" k! _! f' K                        end;*/
& g- n# U4 N9 ~9 f2 m. ^# _2 A        next;
        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);
: T' P; a1 N/ x: f        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);
       
) n+ ^5 D7 k0 D6 Y9 F& T        rows:=0;
- y2 n/ W  o. i) y. H+ p        lines:=0;
/ d5 y+ p+ a" O( t/ A5 C1 T        for i:=1 to number_of_machine loop
7 h1 ]9 @/ \/ n- p% ~8 f, }                for j:=1 to number_of_machine loop
/ y7 T! N+ Z) ^                        if j=i then
                                d_from_to_chart[j,i]:=0;
' ~1 p/ ]' o! s                        else
; e. |; c1 u- N/ @                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
% x1 j; d9 t" X& W3 ^6 ?. f& f5 @                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
0 ~7 q: c/ z$ n& E  ?2 O                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
- Y! V. \- A& S/ v: m                next;
        next;
       
        lines:=0;
, ^+ T' J4 F; M* n$ |: G; h% S- w        partstable.delete;
       
4 t# S2 l( t4 @        for i:=1 to number_of_machine loop
( _5 [+ v9 ]4 T* c$ k; Z& J) S# @( L                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
) @) }" Q) f8 ~- w& S2 J" d                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
5 H/ o7 r7 ]" J* L$ R4 C) y                        partstable[2,lines]:=w_from_to_chart[j,rows];
- ~! b% X% I: S                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
% P) n" u) F# t- h3 q                        partstable[6,lines]:=j;
7 n4 a+ A& X8 q( K6 w                end;
        next;
        machinename:=sprint("M",rows);
! j* A; M( K9 E! 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]);
' C, k+ w4 ~# q/ c        machine.name:=machinename;标识符未知
        machine.proctime:=5;
1 n" j: l0 ]1 E        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
4 i7 r- _. D; b* J* }/ h; u       
        bufname:=sprint("BF",rows);
) `8 l# \& U2 ^  e5 a        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]);
1 p  J; ^0 Q, E5 C        buf.name:=bufname;
) `  Z* @% ]/ g6 d# C+ t        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
4 s% I( E/ Q0 g, E- H        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);
2 L' |% Y  C& b1 G6 v+ u4 O. ynext;
end;
  x3 P9 \) ]8 F) i# @7 s, z