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

zooey

is
* I: `  \: v8 q9 W        mark:boolean;
' l& [/ X2 \" u        dx,dy,ct:real;
: H* a' J7 v9 t+ J3 `, d+ \! d    i,j,rows,lines:integer;
    machinename,bufname:string;
0 R* h  y# J7 H, P8 K! F; b    machine,buf:object;
! T, b) N/ K3 ?  s1 N4 ndo
3 X, e% R3 b! s4 x% C4 [, ~        current.eraselayer(1);
/ O6 A+ H) m( {& j       
! |' a* b% e1 @: q; w        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";
* W) v, h/ B5 R" Z! T                when 32 then
) R  Z+ u7 y  _! r% ?                        print"no";
/ Z- m# D6 i; K                else
$ ?5 S0 b0 e8 b3 v; d: W# Z# I                        print"cancel";
+ |- K) p& z0 R5 ]                end;
                eventcontroller.stop;
: l- k- {+ X( l. X% U# a& ?        end;
       
, m5 z) f9 T3 F3 w* l        for i:=1 to number_of_machine loop
5 W% z8 q  N/ k2 ^' h3 ^! {( a" s        machinename:=sprint("M",i);
  l* \$ o$ J4 N+ h( q        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
- t2 |1 _& F2 C8 m. }3 ~                machine.deleteobject;
# E- p* M+ N+ I        end;
        bufname:=sprint("BF",i);
7 `7 n6 l  V' a' x9 s        if existsobject(bufname) then
: r! r1 G/ N6 b% R4 t4 V8 v                buf:=str_to_obj(bufname);
7 Q5 x1 x: p* @. e+ u. p+ }( M                buf.deleteobject;
        end;
        next;
& ]1 ?" W/ n8 z       
, J' I% E9 U1 W) C+ V( Q( G        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
* P" q# W8 _5 u  f/ k                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 }/ K+ p' h( Z0 `+ ?                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
( N5 |% t! }. V5 D6 E) t                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
5 V  Z  Q0 V( R                        print activityspace[1,rows],",",activityspace[2,rows];
5 s. Q8 a3 A9 E( n/ z1 A                        ct:=activityspace[2,rows];
! W2 b" u0 [+ M# n4 r6 }                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
: G9 C& u, W+ ]                        else*/
' C# i9 w; L  v- T                        y_max:=y_max+dy;
( c, {9 |. X6 e, }8 }                        dx:=0;
                dy:=0;
                        --end;
+ L  `- h  J. H                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
5 u: y# }* B* @2 l" _+ M                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
1 z- `, y7 N4 Z7 U; s, F8 P            if activityspace[2,rows]>dy then
- D8 C. l8 R  ]                        dy:=activityspace[2,rows];
+ v! U! Q- G, Y3 D                end;
                dx:=dx+activityspace[1,rows];
; I; X7 H+ o0 S; V                /*if mark=true then
& p( [7 [/ o. v0 u; e$ ]3 g$ }                ct:=activityspace[2,rows];
4 t9 V3 z2 }& f+ r! }. {& ?3 j. x                        activityspace[2,rows]:=activityspace[1,rows];
6 J5 F  ~& n, K! o                        activityspace[1,rows]:=ct;
- q2 q2 _  v, Q9 w/ w& j1 o2 X- o                        end;*/
        next;
$ s0 n: `7 a, z/ j: G" t% q- y! D        y_max:=y_max+dy;
) T- o8 [& j8 h* f1 g4 f0 i) t        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);
' q& ?% s3 h7 f9 d5 q5 Q% C) 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);
" e% }4 r+ l+ w- E' N1 U$ u% q       
: a6 ^0 m. @0 P. ^% O" ?        rows:=0;
3 y; J0 G3 t9 F' Z        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
. {% d1 U$ U& j. A! z2 [0 k/ Q! A                                d_from_to_chart[j,i]:=0;
( w7 e/ j: X4 Q( `  \                        else
8 N% m' H" E; s  U7 N0 N                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
6 ~+ i) ^; l  v9 y0 `0 K5 g                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
                                d_from_to_chart[j,i]:=abs(dx-dy);
" K' `* I7 C1 `$ m                        end;
( q& T3 ~, v. c% m& [* z                next;
  W- t2 H+ K% y- {9 |: k; V        next;
" j4 I6 a+ D' U. i, p- K       
        lines:=0;
# T: a: \4 H' a6 W2 A. Z* A        partstable.delete;
       
6 p+ e9 D/ G5 Y, r8 E, a& L* P        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 N2 x$ N% i  o5 G7 `4 [( L                machinesequence[2,i]:=rows;
3 B4 _" d' l  W3 {                for j:=1 to number_of_machine loop
# e7 _, [" p; D- c# k                        if w_from_to_chart[j,rows]>0 then
5 F$ T9 P( I! T: d- E& l% E2 I$ q                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
7 A3 Q: I6 y3 Z) ^) t1 l$ t                        partstable[3,lines]:=sprint("parts");
# w7 n& x& e+ }6 P9 ?' n+ [                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
3 f) Y( O: w- |5 u: X' R        next;
        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;标识符未知
        machine.proctime:=5;
+ A& k2 U* R# s        machine.label:=activityspace[0,rows];
* _. y0 _, r: G  u        machine.exitctrl:=ref(leave);
5 F$ C4 f" N3 E/ L       
        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;
        buf.capacity:=5000;
) f8 v4 Y" F5 j7 u  @        buf.proctime:=0;
+ T% j( ?0 c+ i! i% b. u$ [        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
* `8 W4 i* `5 @" ~5 Vdy:=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);
9 |( [4 a% i9 lnext;
end;