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

zooey

is
        mark:boolean;
, }' J- x4 [, e: d& c! _$ `4 K+ D        dx,dy,ct:real;
! M) p& X0 S, F" e# B0 ?9 ]7 m    i,j,rows,lines:integer;
    machinename,bufname:string;
9 K7 s& f* W0 K    machine,buf:object;
do
' c. X+ @4 j) o# N4 U# N( \        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
0 p( M8 c# x) x3 U% m; a                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
  j, j: h8 R% h& a, H                        print"yes";
                when 32 then
$ I; `5 V& e8 a+ R1 s6 @/ [                        print"no";
# y) N: f: r* F- Z  O, ?7 Y( [$ M" Q                else
1 |/ |2 [& k. j* h- R                        print"cancel";
  d0 o5 ]  Q; [3 {9 ?! S! H                end;
                eventcontroller.stop;
        end;
8 n0 k) n% g# \, {/ o       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
; C: W6 R" |$ v& m4 K                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
' k& y# y5 t+ C# ^  t4 n2 v- I                buf.deleteobject;
        end;
        next;
: T# c% V2 N, X) \& Y0 }  m& [2 o       
        dx:=0;
+ k6 P/ p& b' A' n9 E' c+ p/ \        dy:=0;
        for i:=1 to number_of_machine loop
. e2 g5 g/ p. Y" |" z  u                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
. T- m2 R& L) f7 G/ a2 G6 a$ Z                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
) p$ {! Z1 \% p# v& l                        print activityspace[1,rows],",",activityspace[2,rows];
5 w2 t) b0 \+ q                        ct:=activityspace[2,rows];
/ ]6 H/ K7 Y; n* v                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
) f3 n' h: m$ o4 x- c( J! F, \                        mark:=true;
                        else*/
  H4 I8 b6 o# p                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
; x: f9 f9 A) d                end;
! Z8 v8 _0 V# D% }+ R                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
" Z3 ?" y: i  ?$ f$ q0 m                        dy:=activityspace[2,rows];
                end;
8 z' G' o4 Q) G5 h: d1 c* k                dx:=dx+activityspace[1,rows];
                /*if mark=true then
2 H: V2 y( \& r* I# F8 J                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
+ R. v2 v' [# u; @' T% p! W        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);
1 ?) D9 `* x4 V# s& i& |3 S* j1 Z        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);
/ u% f3 h( x' v' K2 x       
7 O9 ~3 ]3 A% Q0 N( y        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
: {3 c1 A/ t0 C! x. V% p9 i                        if j=i then
                                d_from_to_chart[j,i]:=0;
* D. Y( j/ d) E& f2 R: x                        else
                                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];
3 m( @; J; f! b0 o                                d_from_to_chart[j,i]:=abs(dx-dy);
6 P6 ^/ `& v8 I" `5 L) Q/ i3 c                        end;
                next;
4 O7 Z# q- s1 Z" c  r! H        next;
       
        lines:=0;
! c3 u9 @- q! _- f* T7 c        partstable.delete;
       
/ _4 T* Z5 E; ^5 F7 u        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
& w, w' a7 `7 o2 s; d( O                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
- s: G# L; ~% J/ }) C9 g                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
+ T" o  T8 a* b2 H/ |/ Y) S+ C$ P2 x        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;标识符未知
        machine.proctime:=5;
# H: I, U1 N9 w/ P( R( A+ G        machine.label:=activityspace[0,rows];
* ^1 Y3 W5 c+ }) }7 t        machine.exitctrl:=ref(leave);
( c# d7 U" Z; h8 j" c       
' [8 v4 n" H2 J( g, {. x4 y- J        bufname:=sprint("BF",rows);
) x7 g8 j1 i3 e$ g& J+ p' p: T        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;
2 Q5 X+ p: ~& t3 B& b. ], ^, N        buf.capacity:=5000;
, i+ U. P6 u' O; @. w        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
+ q! C# v' x) @' [9 L       
        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;