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

zooey

is
/ g* T/ x; A" k        mark:boolean;
5 A/ s# P4 k, T. r1 t" g        dx,dy,ct:real;
$ I0 M/ j4 v5 v7 h! c4 j/ B    i,j,rows,lines:integer;
, N% }2 C  z7 V7 r! Q/ Q    machinename,bufname:string;
    machine,buf:object;
$ a* m, }8 H$ c- R) z* e  p) Bdo
6 k5 f( `: k4 \, ]; G        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
+ D$ G" U. z+ f" p                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
! }7 I. J4 e' m% R. {6 u% f1 w% X                when 32 then
* ^9 e  O4 K; m1 X2 N2 r                        print"no";
                else
5 r5 ^( g" P; f  C, K( `4 a' v                        print"cancel";
0 x! c& }. b. s! q! o                end;
                eventcontroller.stop;
        end;
8 z) k$ Y$ F2 x+ h% G  N; f1 {       
        for i:=1 to number_of_machine loop
) ~" f) M1 A/ k        machinename:=sprint("M",i);
7 E# q2 D# G; h1 W' a" x0 |        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
. h' F3 I7 X1 D# ?8 N  i) U4 n        bufname:=sprint("BF",i);
        if existsobject(bufname) then
, J6 Y: q* @6 b) A7 G# i3 ^                buf:=str_to_obj(bufname);
5 n2 P& ?- G- ~* ^8 Z1 W7 R1 a& j7 z                buf.deleteobject;
        end;
# f# y# r) a+ S) E: ~- R) F9 _# |        next;
' b. ^6 T- H; B' \) ^* u       
5 N' N4 @  v$ T, J* n        dx:=0;
        dy:=0;
9 G! a$ r) L  u. n+ Y* W        for i:=1 to number_of_machine loop
" l& }, `2 A, S3 K) P* I- z; H                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
9 t& S# @2 x7 O# y                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
' w6 `( p' w2 d( q" t- q7 f                        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];
1 B2 i1 \0 Y/ t/ V                        activityspace[1,rows]:=ct;
% V- i: h8 z( h; d+ J& B                        mark:=true;
0 J8 I7 D$ {) F4 K" s                        else*/
                        y_max:=y_max+dy;
2 f5 j& R- R& M& k/ y                        dx:=0;
# ?. j9 J4 {9 I* d6 w2 R                dy:=0;
  J: g* u2 c) `7 T; h                        --end;
                end;
7 M/ Y& ^% v4 l" f" M; h                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
. `7 `/ Y+ t! t, T- A9 o4 q7 M                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];
4 ^3 _; z9 ?% e# c: C                end;
                dx:=dx+activityspace[1,rows];
3 `5 h+ \6 f1 p  M( u; o5 B                /*if mark=true then
1 O0 R4 q# Y. [/ D5 N" y                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
" V, b" b* b2 u( B& z        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);
1 O" _3 t/ \7 U        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);
       
# a% Q( |+ k% [/ E; C* j) l        rows:=0;
0 K+ G5 R+ r$ h& K5 a5 s4 U        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
& L* m1 A6 O2 m0 o2 o. _* e                                d_from_to_chart[j,i]:=0;
4 A# Q( [6 s! ~8 E2 g                        else
+ ]; {( U$ s) V                                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];
4 `4 a$ j" u. W$ C" E                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
7 w- U/ R  G4 v0 H; p. t                next;
        next;
& b; m2 a7 X; t5 C% ]  @3 \       
        lines:=0;
        partstable.delete;
0 W7 t2 |& [: g6 P; D       
        for i:=1 to number_of_machine loop
5 L8 p* Q; X9 u8 W                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;
; e5 @) z0 y( ^8 N% {" S- W                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
! l8 Y' ]& b: L: J5 M6 y                        partstable[2,lines]:=w_from_to_chart[j,rows];
2 m+ _) C) l4 i) ]4 K* H/ I; A                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
) k* s# A2 y: r& L+ h' G                end;
/ a4 W0 L8 U5 V( R3 v' z0 h0 C3 ^& G        next;
5 {& a6 h: q4 z3 B1 h        machinename:=sprint("M",rows);
) H2 g+ _3 f, Z& L0 Y4 Q        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]);
; v$ H) L+ ^1 \0 o- I4 l        machine.name:=machinename;标识符未知
) h- D7 F0 A% A* l$ G2 d" V& P1 ]6 L% g        machine.proctime:=5;
) L/ x3 w2 J0 s$ u) H$ j. r        machine.label:=activityspace[0,rows];
  S+ F) g& y, L( I        machine.exitctrl:=ref(leave);
0 k2 h* I& d5 f! g. Z& ~1 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]);
# l; z+ y) d; }. q) T/ v/ g! U% m9 t2 u        buf.name:=bufname;
        buf.capacity:=5000;
# A7 o- `7 s0 }, X        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
: ~# `& `0 a  tdy:=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;
4 N$ ^% a# ^+ y$ Yend;
$ K, E1 l9 @, D# Z