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

zooey

is
/ ~9 o2 L' Y7 b        mark:boolean;
        dx,dy,ct:real;
( e% n; f! Y. q# m1 w    i,j,rows,lines:integer;
8 B7 R0 M0 Q8 g" N. r4 W    machinename,bufname:string;
    machine,buf:object;
; ]& i; j, t$ Y3 u; ~; Vdo
# ^& W& T+ F1 t) k; I( |' ^5 }        current.eraselayer(1);
: G8 c6 F4 z: Q6 T  R4 n       
' H+ ~) Z3 p7 J' i9 M7 P, }2 a        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
% {# C' b% E) f2 P3 Z                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
6 T* q, H# c' Y! F8 t- h                when 32 then
                        print"no";
& ~# F( ~" T( @1 V! R6 l9 J( j                else
" x1 F' Q) N( I* \3 m                        print"cancel";
                end;
                eventcontroller.stop;
/ \+ ^# D' d" F) k1 \        end;
+ l! s+ [# C" r+ H: Z       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
' {3 H2 c+ Q% N1 Q0 a/ l        if existsobject(machinename) then
/ r- T2 h  e  y# E8 c; U5 [/ r' a                machine:=str_to_obj(machinename);
& _; e9 e: E+ U' h- o' n  G                machine.deleteobject;
        end;
6 N7 E7 s) q7 g6 D3 [% w        bufname:=sprint("BF",i);
7 ]: n$ x# f$ I' S        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
# ?% q. x+ W' C- w& c' L                buf.deleteobject;
        end;
        next;
+ b& j' u5 Y5 N. I! D6 |; i! u       
, Q0 G4 V! `8 A        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) t( l, Y9 `/ L) r% E% w; E                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
; F* J- Q, {2 i# l3 U8 R! q; Z                then
6 \- p' r* A' B) G2 a3 N                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
9 H% k1 F8 z. t% O! t2 \- \                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
( ^: q/ w4 b0 e                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
. t/ J3 R& J4 K+ u                        activityspace[1,rows]:=ct;
2 A( W6 H2 w# C; h% \! a9 ]4 t                        mark:=true;
2 Z2 }+ s+ F6 |/ x% g                        else*/
                        y_max:=y_max+dy;
& d) u7 z- D6 p* ~" z1 H9 h                        dx:=0;
                dy:=0;
' I& t1 `1 r8 c6 ]- Q) ?# t                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
- _9 |* w7 ~- E  s; y                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
$ ]; s/ V/ {; C, B) t$ v$ [            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
  P" Z/ I: A- T- y                end;
                dx:=dx+activityspace[1,rows];
. h4 T9 d* b# \, h8 v/ ]$ W. m7 t                /*if mark=true then
                ct:=activityspace[2,rows];
5 g; W4 w3 _; u5 T: d) m  K7 C                        activityspace[2,rows]:=activityspace[1,rows];
/ p1 W1 p1 _" }* z% m                        activityspace[1,rows]:=ct;
4 v1 m6 L# p- y+ e5 k( A                        end;*/
        next;
        y_max:=y_max+dy;
  Q' |0 P" r9 w/ q5 D$ 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);
        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);
6 C& \$ F* ^% k       
, C% z) W" j) M. r% O: M0 m        rows:=0;
7 O8 m& }/ I: F! |        lines:=0;
, B% L: C& j1 T& p; q/ g: d        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
0 _# V0 q4 l* c# V) J3 r6 ?                        if j=i then
3 d3 B4 {5 Y" Q4 k                                d_from_to_chart[j,i]:=0;
5 T0 i! p7 D; l2 P% p3 M* }                        else
+ x7 {. k7 C" ?4 s+ r! g9 u                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
( y# A+ a, ?0 W7 Q7 @                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
' k: f6 `/ B- M) S- o& ?                                d_from_to_chart[j,i]:=abs(dx-dy);
( Y/ D; g7 Y, O+ \0 t                        end;
; Q; C0 j# Q& m4 s, f5 Z                next;
        next;
       
. j# K2 {6 \" L8 i: {; J, Q2 n        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
0 a" K! l, C7 R% }' r( ?$ l                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 l' t" y+ Q! H7 v/ C$ }                machinesequence[2,i]:=rows;
( c/ D4 J) ]- s" u                for j:=1 to number_of_machine loop
9 N2 ^; F* _. t* S% s+ G# Q/ c2 r                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        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;
& X5 G1 u( I+ h( e% o6 s1 v! K$ C- x                        partstable[6,lines]:=j;
                end;
. [2 Y- z: \; P8 ]1 }& B, H        next;
' w) k! s: P: x  K        machinename:=sprint("M",rows);
0 D* d: ^6 Y  S        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% l2 x0 z- V4 _, N0 G        machine.name:=machinename;标识符未知
        machine.proctime:=5;
0 O% p3 Z: ~, {0 A        machine.label:=activityspace[0,rows];
7 J# N# i$ [5 k1 v/ o7 ]% d        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
1 S, z2 l1 |3 a3 i# M+ s        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;
7 r" W: s) u. I8 i) y        buf.proctime:=0;
+ o0 A$ U. H* b2 c2 l; f9 D) y5 s        .materialflow.connector.connect(buf,machine);
       
7 o% d- e1 W6 |  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);
) T" e: n. `! {9 y+ r  D1 D  C% inext;
, A4 i/ q$ f. c, {: ?- Dend;