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

zooey

is
: {# W/ j& [2 y+ O        mark:boolean;
        dx,dy,ct:real;
& l) U9 s' r+ H1 }8 n9 F' d/ b    i,j,rows,lines:integer;
    machinename,bufname:string;
7 M9 `: r) x1 B    machine,buf:object;
4 N. n7 L9 j- E; j% p, P1 R, s. ~do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
8 Q! N4 R2 v, J- e/ T" E9 X+ [" I                when 16 then
# y  y- B# J* p                        print"yes";
" `& W: @$ G3 N3 k                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
5 ^9 k& |, X0 z3 u5 f* d: C. n                eventcontroller.stop;
& I: R5 n3 m( [1 ?3 o$ F# `- `        end;
       
        for i:=1 to number_of_machine loop
$ P+ e+ h1 L" k, l2 Q" E        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
* v8 S. G/ ]) q4 t% K( }        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
' d6 t& o; B8 |, b# r1 P1 P+ O! H                buf:=str_to_obj(bufname);
                buf.deleteobject;
' p  F/ r( m( w  m        end;
: d( N0 U& [  m        next;
       
5 s# ?" m. [. Q" q( u  i8 x4 {        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                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;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
' L& n& }/ R! _9 N0 v$ \                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
: D* i' B& E+ m0 U! ^% C- c            if activityspace[2,rows]>dy then
' W+ v5 G$ `2 C- g. v! ]5 U" P2 x                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
# Y; c9 H' C5 l% E- y                /*if mark=true then
                ct:=activityspace[2,rows];
+ W4 u- b! t( e+ Z7 h                        activityspace[2,rows]:=activityspace[1,rows];
$ [$ R2 I1 Y) a, W8 [                        activityspace[1,rows]:=ct;
) v3 b, X7 Y5 s                        end;*/
        next;
. z2 V9 Q9 ^: I# ^% a8 z7 L4 V        y_max:=y_max+dy;
( T; |$ j/ D* I: d& ~& d        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);
! Y% a# p/ u4 a3 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);
       
: E, i) i% i' {/ [( ]( a        rows:=0;
        lines:=0;
6 F; X6 S" \( R5 @3 U9 }: u% H        for i:=1 to number_of_machine loop
; X9 Y- M( o  h; }% t+ F2 r" [) V                for j:=1 to number_of_machine loop
- l) l/ m% M0 I8 G/ b, \0 d. E; |                        if j=i then
; a5 v) \) c1 _6 Y$ J                                d_from_to_chart[j,i]:=0;
1 ^' q7 {/ |% q" _( r' r) L* g                        else
  s# Y* K/ _& X1 a                                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];
# b7 L, P# d/ d                                d_from_to_chart[j,i]:=abs(dx-dy);
# p! _+ N) Y  I0 R9 J                        end;
# K* d0 F/ T: _+ e# |' T5 d" x8 C                next;
        next;
; q4 f0 q; Z4 r" v, i4 R+ z; w       
        lines:=0;
5 K+ F  W$ y1 a9 K; ]8 f! v; w  C        partstable.delete;
7 X5 J4 M/ M5 c7 M       
        for i:=1 to number_of_machine loop
2 M! @% ~6 s( I# A6 f                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
3 ?! X# N( R0 l+ V7 T0 a5 u7 l$ X                        if w_from_to_chart[j,rows]>0 then
" F' C3 ~: v; r/ d# p. L                        lines:=lines+1;
7 _" G% b: u7 o/ O, m                        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;
* w/ e/ e. V" w$ @+ D4 t: Z                        partstable[6,lines]:=j;
                end;
; A! p2 T6 I! I3 }1 l8 C: e        next;
        machinename:=sprint("M",rows);
: E; F6 g. v' F" d! i        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]);
% ?9 x6 q4 ]% i6 d        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
/ }9 G- `1 ~; s& t        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
5 _) p* l2 a0 t( w        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]);
2 P" Q, ^& n* ^( T' N8 v# F        buf.name:=bufname;
, O. S; G: x: T5 L        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
3 G' I: }. l+ d% s       
" d: Y3 L1 N" k* L        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
, L. N$ D: z7 W- ]2 sdy:=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;