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

zooey

is
, X! Y! ^* D9 w        mark:boolean;
        dx,dy,ct:real;
4 Q0 O& Y8 ^; R# F( U+ `1 W    i,j,rows,lines:integer;
! M5 P6 X! \/ M' P+ z# d    machinename,bufname:string;
2 {) E. [" b6 m' E1 m# K& o    machine,buf:object;
+ {& T; i3 r. p) `/ u/ _do
0 I2 W# e5 ^6 P2 f        current.eraselayer(1);
6 L% ^5 n5 p5 R, |       
# e6 [$ E: v4 P. s( d9 W        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
$ }3 [; h8 U8 J0 J* W" P' s                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
2 }, ^  e& \0 K) h+ g+ q                        print"yes";
1 F. }( c, \3 v0 |7 t  u$ x                when 32 then
. X& C! q5 K8 ]+ ^1 d/ L( ~; c                        print"no";
* I# N. P& Z; y4 c                else
2 ~0 x/ C5 f% M4 n                        print"cancel";
" w9 v6 c* h3 s3 g9 U3 g/ Q! l                end;
7 a% d& s  l7 p                eventcontroller.stop;
        end;
       
" Y- K. P+ L! w- V6 c        for i:=1 to number_of_machine loop
8 s, Y8 |  `5 F; }$ r5 v3 T        machinename:=sprint("M",i);
8 w6 v+ d! S9 `/ v# S: y% I7 e        if existsobject(machinename) then
! u  F  x, O8 R; V- o                machine:=str_to_obj(machinename);
' ]' I' t/ T, r# Z/ g; [& \                machine.deleteobject;
        end;
7 L, C  z; P: U8 G3 W9 X        bufname:=sprint("BF",i);
* p& T; u- w: O# `        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
2 t: ]0 Z$ X- z' @6 i# {' B2 u6 T2 x. E                buf.deleteobject;
        end;
        next;
3 u: r/ x' W& Q+ P7 j; e       
        dx:=0;
( c) Y8 R% _* Z8 {$ C        dy:=0;
$ }5 m6 o3 z+ o  h# b3 J        for i:=1 to number_of_machine loop
/ M, f0 t+ `9 p$ w, ^9 \6 j; q                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 O' _# U: J5 H3 J# S* f                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
. S- u0 G$ q8 z& q7 w+ g, V                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
- B4 u8 j1 q9 w6 A2 Z                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
) P2 m# |+ S% [8 P8 E; `; [$ y) _                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
1 ]' z4 t9 V0 w  u                        mark:=true;
                        else*/
+ j% t* M' z% s2 W% C' R                        y_max:=y_max+dy;
! {& i) u& k( q3 Q  A) }                        dx:=0;
6 d9 n4 x' N1 n3 U5 i                dy:=0;
! J9 r# ~% |) ], ^                        --end;
* x/ }' c: A' m  X2 @                end;
& Y; y- s7 W! i, ?; \: D  X                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
7 x, ]7 r2 J+ 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];
6 U7 o/ j5 i+ f9 [0 j, x4 K) X                end;
$ j1 t% |/ ^; K: J( G5 r( D' x0 A. Z                dx:=dx+activityspace[1,rows];
0 i! T+ e0 R3 K4 e                /*if mark=true then
0 {" o0 C, ]- l! S/ ~7 k3 E                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
( s9 |" [2 h# V& Y$ G4 H. Y                        activityspace[1,rows]:=ct;
                        end;*/
        next;
; l- |3 e! f% C- o  v        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+ f( e8 T( F! b3 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);
  J1 P5 Y; w! d  J  [! E+ F/ _7 N       
        rows:=0;
  K) C: A2 o8 Y" w1 l        lines:=0;
        for i:=1 to number_of_machine loop
) D, N# ], f+ F+ \" `. ^& N# A                for j:=1 to number_of_machine loop
                        if j=i then
& I( ]" C+ Q! H# _4 M* {                                d_from_to_chart[j,i]:=0;
, k9 i* o1 o0 Z; _! }+ y4 }) h                        else
0 T8 @7 D$ |( M* |! ~7 N                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
3 T+ _8 j  O5 m; z5 Z2 n' l9 E                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
# j4 o+ b7 s3 Q/ O8 S7 }( W                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
+ p+ s# a# n* y! _' F* @" ]7 g/ f                next;
        next;
       
, h2 F- X! ]) U& z4 [        lines:=0;
5 g" \1 x0 O; t2 h# j6 H        partstable.delete;
5 R" ^. I  M" ]4 e" W       
        for i:=1 to number_of_machine loop
  L4 j! a8 _6 w6 I0 d" p/ \  e                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
4 i  v, h/ `2 ?& [                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
$ M% _# b  q; c( a' Z8 u                        partstable[3,lines]:=sprint("parts");
& R: I& ?1 U5 t. F" q                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
: ^! |6 `( y2 ^* O% u$ Y+ [& B        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]);
: }' L( ~( @  s! z        machine.name:=machinename;标识符未知
        machine.proctime:=5;
% T$ ]6 q) m1 G& A: x        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
/ F' a6 H# P6 I, c. z       
* y1 m- }8 U+ r( r        bufname:=sprint("BF",rows);
) H" `* ]2 k9 ?$ q' a( M% J& o        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]);
  O+ G: k5 I$ c6 ~' D9 f% y9 U, B        buf.name:=bufname;
& n; S" B+ g+ q        buf.capacity:=5000;
        buf.proctime:=0;
1 D% U0 B1 L+ @! q& s  C" n# I% a        .materialflow.connector.connect(buf,machine);
* i/ O* r5 P; l       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
+ Z5 Y7 B" E* S2 g5 B* L+ @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;
% @, ?- f7 _- s4 Y5 Uend;
" A) a1 @8 y! O6 u! R7 }) [