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

zooey

is
/ i+ G/ I1 o- h% c$ w6 I        mark:boolean;
1 O" }6 L  d, k9 u% g; X        dx,dy,ct:real;
7 Y1 ]0 d# e; x- }0 F' n8 v    i,j,rows,lines:integer;
+ \2 x: o9 f' W+ C- D2 {: o    machinename,bufname:string;
6 ~8 p' w. X1 i8 n" P" X    machine,buf:object;
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)
                when 16 then
                        print"yes";
: w0 ^0 Q5 p# I$ O# l3 m                when 32 then
                        print"no";
                else
1 o5 b$ Q, s$ m3 a                        print"cancel";
6 s! G8 G5 I( W" i+ i                end;
/ I3 m. ^, S) B  E7 {) d: c                eventcontroller.stop;
        end;
       
+ Z! @; ?* Z: w3 H0 }0 N2 b        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
- K) E) Z2 O: d8 U        if existsobject(machinename) then
4 {& t5 O( ^# D4 h2 A3 }: D1 \                machine:=str_to_obj(machinename);
0 \: Y9 X" f) ]) n$ }* e3 ^+ v: }                machine.deleteobject;
. f0 [5 `+ U/ h+ ^4 l, d/ [( T        end;
        bufname:=sprint("BF",i);
, z, L: A" h" m; h  p* I3 x* N) b        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
, V$ d% [: V3 }$ F1 Z+ I) e                buf.deleteobject;
, J# ^. J$ z/ ?, b6 T- r        end;
        next;
       
        dx:=0;
        dy:=0;
! @0 i7 m, Q7 x        for i:=1 to number_of_machine loop
0 z, U' z! ?7 a& v3 v7 y0 U/ P' u                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# k1 O. |1 T/ ^* p1 _) y/ a0 j! V                --mark:=false;
9 _$ {% A! X0 d- i1 B                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
5 {" T* c, z5 H: m& J                then
: ?. ~7 x* G8 b' Q4 V+ H                        /*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];
/ |" r! s4 O, g$ ?# Q1 u                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
- k: {, Q1 F/ T$ i1 F3 }+ g5 {                        activityspace[1,rows]:=ct;
                        mark:=true;
% o# Q; J& }/ `: ?2 |% a( s4 N                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
1 l; g$ ]: @( w) D/ a                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
" ]. Q; Z/ w  I: l                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
  `# r9 n" K" L+ A! a( H) W( _/ e* p                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
5 ]0 Y3 b! ?% {5 d5 T( i        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);
8 L0 Y9 v3 O9 {+ G3 q3 ~& w( c8 G        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 [4 r: f6 k! F       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
: F  C* L- }4 z' W. _! z! B                for j:=1 to number_of_machine loop
' [7 g0 ?5 H2 A  |                        if j=i then
7 X# d1 I' v6 J" T/ E0 ~1 N                                d_from_to_chart[j,i]:=0;
; @. V- v/ w, c4 c. ^8 ^4 `                        else
) T! N3 @% s1 R7 {# P' [                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
2 w0 h/ P# G4 x% n# X7 \                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
) S8 ^* f  M! \                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
! I- f+ x% Q0 E+ e        next;
% |% }$ u( f  G6 j8 E2 `5 ]/ W. w       
        lines:=0;
' E2 O: T! l+ p        partstable.delete;
       
4 @- k3 G& p" N: G( C        for i:=1 to number_of_machine loop
/ W' E+ X) W: D- m' k2 T5 O                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 p  k5 k" ^' x9 v5 U! K                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
- L, C' E$ t( t5 x) [- G6 Y                        if w_from_to_chart[j,rows]>0 then
& u, Y8 [( u, Y% @1 c                        lines:=lines+1;
' `; q3 s: _4 F& f$ I: h                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
  I; N% W: g! W. B" u- a! S  s$ \( a                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
* e. o% T- z- G- h2 q' J  b+ k) j4 @$ a                        partstable[6,lines]:=j;
! s( a8 e0 P( }: m                end;
        next;
  s1 C0 S# N' W* [        machinename:=sprint("M",rows);
        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]);
        machine.name:=machinename;标识符未知
+ D: R0 m& b' b: M/ G        machine.proctime:=5;
( t% u0 C5 P  X, C9 X: t        machine.label:=activityspace[0,rows];
' h+ L( L3 c" |& Q        machine.exitctrl:=ref(leave);
       
- G6 n, X- l$ f8 ?, i2 ?        bufname:=sprint("BF",rows);
6 ?! F5 Y/ ]" f: 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]);
' S0 l' ?& }/ s- ^: {+ I/ T) U        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
* h: r4 B2 M/ _9 e* N9 [7 _2 ?       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
/ Z# v4 l- ]( s; Kdy:=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);
: Y1 q0 h1 G/ cnext;
end;