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

zooey

is
        mark:boolean;
8 V5 K; m; g% y- [% C/ \$ S1 h/ Q3 W        dx,dy,ct:real;
7 g1 l. v- S7 t5 T2 x4 z0 T    i,j,rows,lines:integer;
- y' N4 U1 o( B5 O& o- ]    machinename,bufname:string;
; |- _8 G3 j. |    machine,buf:object;
( h2 a% }1 t5 o. `- {do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
3 `- i1 E, S" V2 A                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
; ?4 {7 r0 ~2 z5 U                when 32 then
! z' k/ V: |0 z) ?: A# {+ p                        print"no";
% V7 O8 q/ P3 ^& }* z4 h                else
                        print"cancel";
& g2 a0 z0 J3 B) h- r                end;
                eventcontroller.stop;
3 a1 {! o+ J  J# l2 I9 A1 J        end;
. B  G; B( q) X* L" z; v4 {: p' P       
* V( @% ~2 M! {2 b  [9 p$ Y/ ]1 }        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
2 C: G  g( `9 v: ?  J4 h        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
; I& X/ O2 t0 }+ W% e/ M7 c* C                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
( B. b3 x3 g8 B+ `        end;
        next;
1 N# ?8 [; g9 B' d7 Y" `- k       
, a8 f% ?7 @4 B  }& d3 s        dx:=0;
$ D' b( m! ~6 ~7 H        dy:=0;
: f1 ~7 M0 F$ B        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
  n6 A4 K- _. T                --mark:=false;
2 m8 b' e6 h1 l4 M                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
, V& m3 l; }* y8 Y0 t                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
3 H6 @# A1 ]3 W# F9 ^+ k' ^' t) u                        print activityspace[1,rows],",",activityspace[2,rows];
- ?; d! r6 a6 R" R$ T                        ct:=activityspace[2,rows];
* ]: c* g1 z% B& i  |6 x( n0 ^8 s                        activityspace[2,rows]:=activityspace[1,rows];
) n% e; b0 i" u1 h# e                        activityspace[1,rows]:=ct;
" n" Y8 n2 W" [9 }3 i9 Y$ S- [7 E" I                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
* ]! ^' F% f) b. Z; L' W$ d                        dx:=0;
1 C& f) G0 H6 }$ @                dy:=0;
                        --end;
$ y: {7 m) M$ p0 l! ^; q                end;
+ y% ^9 U: l* ^# t& p- R$ E9 j                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;
            if activityspace[2,rows]>dy then
1 Q6 V8 U' v5 ~. z6 g  U1 N: a                        dy:=activityspace[2,rows];
, W( K3 ^8 D& c! O8 k& e                end;
8 ?/ p6 c) c9 j( m" P* Z% ^                dx:=dx+activityspace[1,rows];
7 i: T0 K" S1 m5 |9 c$ v9 x                /*if mark=true then
: ^2 k+ A3 g9 ]; u2 l' H                ct:=activityspace[2,rows];
. M+ q, x- k, D                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
" Y" n) a, c  z" ^* i                        end;*/
, _& X4 k9 E8 w: J/ y1 n6 e; K% N        next;
        y_max:=y_max+dy;
- a1 g( M" u, L6 f; R: N# @        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);
       
3 s6 R7 w, a9 A" B5 Z        rows:=0;
! t0 o! ?. |: N3 ~        lines:=0;
        for i:=1 to number_of_machine loop
' g) O5 \: w' z                for j:=1 to number_of_machine loop
1 \8 v! ^+ R. R9 |+ J( `9 N                        if j=i then
" P6 B) }5 q2 I% @- T# ?                                d_from_to_chart[j,i]:=0;
& p$ z4 W6 d8 p( A                        else
1 C0 V. T5 Y' M0 w' [0 v                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
- m' {8 P3 t# O4 _- ~! p' m, w: T                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
* W0 ^4 v) O8 ^; |! _* j                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
1 ]; Z" J( \- r+ a( `! e' i6 s. ]                next;
        next;
  q3 D4 l3 N! |$ w# @1 P8 t       
        lines:=0;
        partstable.delete;
* L3 x/ U0 X& g0 S       
        for i:=1 to number_of_machine loop
" p( q3 V2 n7 Q  X- c                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
' H2 W" q$ {0 p9 e) y5 i  _- B) }                        if w_from_to_chart[j,rows]>0 then
7 L7 _& I/ W) J. r                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
) r) |) C9 [' v6 s" f$ @0 e                        partstable[3,lines]:=sprint("parts");
; u) u  \8 }; y3 }+ a( X                        partstable[5,lines]:=rows;
' _+ |- o+ ]! {# E, C                        partstable[6,lines]:=j;
/ k2 b$ f  s& L4 V0 k& ~                end;
        next;
        machinename:=sprint("M",rows);
/ D* H* S: K* K" u* r7 x; h) T& _        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]);
' I5 x2 i, e0 x4 K" B        machine.name:=machinename;标识符未知
        machine.proctime:=5;
% ~% ?, {) F% Y' G9 K6 l: ^        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
' F4 S0 g! O& |, }& P       
        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]);
        buf.name:=bufname;
5 C% s$ @: u$ i* ^6 B        buf.capacity:=5000;
        buf.proctime:=0;
5 y5 a7 L# x' V8 h. E' o" ~        .materialflow.connector.connect(buf,machine);
1 D: f% a) s( j& I2 y8 f# O, I  t       
8 }# R2 }" h; p& V) `        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;
' N3 \* U8 `* p$ i/ ucurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
# P& j) {7 i" \1 o3 Vend;
: h$ K. C& w$ M+ i