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

zooey

is
: z+ O  H  }9 t2 Q- q/ r5 `% E7 D1 J/ g        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
5 I2 H8 [! I/ A# n8 o    machinename,bufname:string;
    machine,buf:object;
- i8 r% q- U# i+ ]do
/ K9 L# T, w! t9 Y/ I        current.eraselayer(1);
       
1 S& R! e; E9 y, i% R0 ]9 q! i7 N        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
$ x: D- a6 g% F# X, v: Q& ^                when 16 then
                        print"yes";
' C/ q2 f4 K: u+ X# s% K                when 32 then
                        print"no";
                else
- {. P( B+ s7 z2 D' B                        print"cancel";
                end;
                eventcontroller.stop;
  {9 S5 a" W' Y$ Z) ]- p        end;
       
! }4 o' t# p+ k- Y6 h5 x' ^9 ~        for i:=1 to number_of_machine loop
; N. C* h$ \- H& ~' ?        machinename:=sprint("M",i);
        if existsobject(machinename) then
2 c5 H" |4 x" [  K                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
3 U" }# U! W# x& x1 s* u% z        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
$ d1 l) p% n" D; B! ]7 m3 z+ x        end;
* l7 T( F& r$ @6 Q        next;
7 U! u9 G  W7 W9 h5 [' x* i) N       
3 a6 B  |  X2 g( `8 c        dx:=0;
- l0 [* M* U% j* t2 i# z6 r; f* X0 \        dy:=0;
( O  x/ X# G5 b# d' R. |) s$ w$ V        for i:=1 to number_of_machine loop
% @7 [. \. Z: C& [5 A                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) M' h4 d( C, R) V) G% E                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
  w& I: g  U6 G8 f5 l5 W* g, k                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        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];
                        activityspace[1,rows]:=ct;
9 i" u* i: ?# I3 s& m                        mark:=true;
5 n) S1 ?3 C3 E+ l( Q1 O# L                        else*/
+ \/ ]$ {  D4 Z% T  C2 @$ t- W7 s                        y_max:=y_max+dy;
4 @4 D9 e$ w7 c& o                        dx:=0;
1 }( B: j# c4 W7 _3 q! D                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 i; ~9 B& l0 F' L. q% s                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
. Z8 ~6 z+ ?4 U' T) a) j; {6 o                        dy:=activityspace[2,rows];
+ I9 y8 s/ b* Q2 l4 c& a( n                end;
) O* v) J( c/ i" G* ~                dx:=dx+activityspace[1,rows];
9 i1 c5 c( e# o; M                /*if mark=true then
7 R; b) @. T5 c                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
" K1 D, s$ x3 W4 u! s. ^4 V                        end;*/
        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);
' ]2 ^; F/ {- u3 g7 j7 b9 [        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);
       
( X0 }) f6 A. y- S9 i# o4 i  k        rows:=0;
9 K, @7 g5 y# x  _        lines:=0;
" T4 a" X/ Q9 m, f1 P        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
6 y( G7 {8 _' Z- G  x- P6 e                                d_from_to_chart[j,i]:=0;
$ P* g+ _* N9 B- h& Q' w0 E/ y1 v                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
' Q$ G" o  E7 E+ {# v9 q                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
3 L: j" M* [9 @3 ~4 \/ I# A                                d_from_to_chart[j,i]:=abs(dx-dy);
1 N) X9 h. p5 r! d3 [                        end;
                next;
        next;
5 @7 o+ \) ~; q# ^       
- \' R. F4 `. f3 S$ C6 L        lines:=0;
% u' i# S: W2 P1 ]. Q' G0 R        partstable.delete;
) |* Q  t( f. z2 q       
! i2 I8 J6 V% h! L. G+ f# h        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 R) h0 j  N8 T5 i                machinesequence[2,i]:=rows;
7 A8 ^: f* G0 o- O7 {                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"));
3 d$ s) o1 y2 x! O, h3 m                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
0 s- V+ z# {7 [* B: B( s. A                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
: B2 N5 [; g+ y/ G  q0 k/ H        next;
( M2 p2 V1 B' C/ E6 B1 T        machinename:=sprint("M",rows);
( i8 t) G. c8 @        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]);
& @: H$ _  _8 R% ?        machine.name:=machinename;标识符未知
4 z+ ^# v' ^, k: c7 B* O        machine.proctime:=5;
. b" F8 C  W4 i- j        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
" ~0 ]' D6 {& v1 U. ?        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]);
; q+ p$ `3 n' R4 j5 L; O8 y        buf.name:=bufname;
        buf.capacity:=5000;
        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;
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;
end;