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

zooey

is
- D, r3 T5 l4 q1 Z) G        mark:boolean;
        dx,dy,ct:real;
! [0 U; l8 a) [" g2 ^    i,j,rows,lines:integer;
0 ], j. k4 r& Y8 |% l    machinename,bufname:string;
& e/ H8 H2 F6 L1 e* g    machine,buf:object;
do
: t. C* V3 C. B7 v, Q+ W- l        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
+ h% `/ a1 ?. L7 B                inspect messagebox("设施数目不对！请核查...,",50,13)
" h: X3 F* D7 Q) v% p- u                when 16 then
                        print"yes";
. p! h* ^. l( ]% }. `/ C: ~                when 32 then
( }/ X7 D* v5 {1 D3 X                        print"no";
* Q- m1 {, X* q# q! q. @9 Q2 \                else
* C% h! B; h1 Q8 O0 @8 q7 o3 R                        print"cancel";
                end;
' ~4 [8 V1 q0 n  }                eventcontroller.stop;
6 Y+ a/ e7 G& M  U        end;
       
: M2 o7 _5 g; s8 Z& Y/ ^        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
. T1 i; T8 ]9 I0 @0 }+ @4 S7 k        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
" J; j5 e- {8 F, K                machine.deleteobject;
  Z6 m* a  n2 p        end;
        bufname:=sprint("BF",i);
# G) v" c! m7 R4 e! m& n        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
* q% [1 V# q* r0 u& l# z# Z# X7 E2 E' a        next;
: n, \: @: F# Q       
        dx:=0;
        dy:=0;
9 Q0 j1 a" U$ [& b. O& h1 V: H        for i:=1 to number_of_machine loop
* A( f2 C" x* O3 \. F                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ H( g" r- y( V0 H                --mark:=false;
6 l1 X+ e. O4 W8 |1 p8 B) V8 n2 n                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
7 @  x# A7 j+ ]                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
: L/ W. P) n, A7 ?' b8 U, H                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
% L$ r# n  K' M4 C                        activityspace[2,rows]:=activityspace[1,rows];
7 s5 U; ?) N5 Y7 Q6 D                        activityspace[1,rows]:=ct;
0 m" [! o) n2 ]                        mark:=true;
                        else*/
/ h+ ], l- M( L% Y) h                        y_max:=y_max+dy;
                        dx:=0;
' x9 Z+ m8 h. }7 [9 g+ R                dy:=0;
                        --end;
9 n2 ]  X' H# q! N( x; r5 d                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
7 w* G* M: [! z; |' b                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
, p) A, q: x5 H5 c7 U' T            if activityspace[2,rows]>dy then
% g  s; n4 z5 F+ z% S7 x                        dy:=activityspace[2,rows];
9 c( B) o8 U- x* j                end;
                dx:=dx+activityspace[1,rows];
' E# t8 w3 I5 ?+ }+ i% F# V                /*if mark=true then
) [* C: d+ m: f* ^7 I$ y                ct:=activityspace[2,rows];
5 [6 M, A  T- m$ W, r2 _9 B                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
4 @! ~! F1 }+ L/ ~) f                        end;*/
        next;
        y_max:=y_max+dy;
/ {* c# p( p7 ]+ ]- L, J; m$ U: P* l. E" O        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);
% p& h# s- V! S" e4 ^        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);
       
7 {, n- T7 z* ?" G4 n        rows:=0;
" c' \$ e6 Y: j: Y9 a7 ^- L        lines:=0;
) y, A4 _" K5 O; L7 r4 @: v/ Y        for i:=1 to number_of_machine loop
1 h3 n1 }( ?6 C                for j:=1 to number_of_machine loop
                        if j=i then
- l, V' \0 M3 \8 J                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
2 ~  G$ |: N& A* O) {8 C  Q6 X                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
' K1 x5 E4 o; R% s' W' J                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
$ U) D* I, C% K* U$ F' H% j                next;
        next;
, K0 s% c( D" X* {       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
* O5 ]% M! Z- b* b                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* ]# r: t- W4 ]& w* H$ g                machinesequence[2,i]:=rows;
0 j/ s% _/ [) Q& s                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
; O$ `# X# u+ H6 [8 g& X1 G/ x                        partstable[2,lines]:=w_from_to_chart[j,rows];
: t% i# W1 i! r/ x                        partstable[3,lines]:=sprint("parts");
! `5 b$ m7 D; h, Q( Z                        partstable[5,lines]:=rows;
! {" y; z' t* B. |( Y. L  x2 f* y4 }                        partstable[6,lines]:=j;
. r. ^# \/ p& i, v; x) f                end;
        next;
        machinename:=sprint("M",rows);
8 }: h. W0 _& G2 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]);
, ?) ~: V6 |4 A' K/ |, H  P        machine.name:=machinename;标识符未知
( C0 r1 y. s5 o/ |' F1 x3 s        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
5 ~: ^" u7 X3 g$ O* ~$ y0 r% v+ A        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]);
7 @* e8 |9 m% V+ l. Y# k& x0 g        buf.name:=bufname;
0 k( d1 }  k) }/ s/ |) |        buf.capacity:=5000;
. u+ s* b2 G5 O+ o9 s- Q( h  {        buf.proctime:=0;
6 b7 N7 Q- ~. v. N9 m        .materialflow.connector.connect(buf,machine);
! r/ b2 U- [7 |: J& p2 N, 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;
% ?' N) p: z2 i3 c2 B- }3 S: x' X- Xcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
4 G. L; q; e. P2 K- L3 Vend;
9 _( J" D+ m9 d4 `; |