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

zooey

is
  K% `$ b2 q4 a( |4 U4 A        mark:boolean;
        dx,dy,ct:real;
3 k6 e% {. B; ?' A1 H. L    i,j,rows,lines:integer;
    machinename,bufname:string;
4 P- g5 |- g( V* U7 w9 {    machine,buf:object;
8 B9 e8 j  p" H( C. _do
! U3 ~' r. _* `- J( _3 M        current.eraselayer(1);
       
* U+ f4 d5 Q  n: V* e% Q' I        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
+ @. ?7 d0 r- N7 y' ^) H                inspect messagebox("设施数目不对！请核查...,",50,13)
" f0 i/ c- E2 m) z1 m* f9 Z                when 16 then
                        print"yes";
& ?! q7 Z' a1 X' g5 w! _                when 32 then
                        print"no";
                else
+ u* [0 k; j" Z4 Z  M4 T7 p1 a                        print"cancel";
" G9 a) `6 o* ?$ v0 R                end;
                eventcontroller.stop;
        end;
. t2 h- O1 c: k. U& r7 ]6 Y, f       
        for i:=1 to number_of_machine loop
, k4 [6 ?: H- |6 C7 C        machinename:=sprint("M",i);
- d, |1 H) M+ ]; _        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
  T7 G. G7 H8 b                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
/ {2 L8 ^4 H9 ^. h1 v8 n% n        if existsobject(bufname) then
9 Q5 J& _) f4 \& A+ T' V                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
* B6 j6 O, o* p$ L% r        next;
* I0 d$ J6 e$ n, u9 c& E& Y3 `       
5 U' Q4 F" h  u! b' L4 j5 V        dx:=0;
        dy:=0;
: ]+ m' a; o" L6 m8 J        for i:=1 to number_of_machine loop
- ~7 Y# G& |7 @# s$ J# R                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 t6 J) k5 @& i) ~                --mark:=false;
, D% S' o+ w  v, H1 k# O$ J: w1 k                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
* Z$ M+ x' w$ m( h# {3 L                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
5 `% ~$ X* {# ]# w                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
0 K: B" j4 |! z2 a3 t" p' ]- b                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
. C2 d4 ~/ k  U3 A1 D  x0 w2 ]2 |/ c; Y                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
# d' [- [$ ^% n6 a' Q, D6 H/ G                dy:=0;
6 C# y2 \6 |, b9 \                        --end;
3 n: A9 B$ n9 Z                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;
            if activityspace[2,rows]>dy then
* s8 A2 w& z1 [) c                        dy:=activityspace[2,rows];
                end;
2 c, Q- }, O+ ^/ u, e                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
) q9 S6 g4 n" c6 Y' b8 E                        activityspace[2,rows]:=activityspace[1,rows];
4 z9 }6 w/ y/ j                        activityspace[1,rows]:=ct;
7 q4 r, \9 }: s, f4 @                        end;*/
" Q1 e0 s% F6 a5 X        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);
        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);
       
' n& T1 [+ D: ^' w) W        rows:=0;
1 k4 A- m0 m& j# R7 g, x        lines:=0;
        for i:=1 to number_of_machine loop
' N7 T$ _" n# t' l1 D# R                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
/ K1 k# |9 y: B; l- a                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
; l& }; J7 @% l; @- R  O                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
1 _, a3 L4 r, k6 q  A" ~4 K8 _1 ?                next;
        next;
  i2 r1 Z& C. J# I: k! K9 c       
        lines:=0;
7 e* j. J* V; H4 n9 s: x% c        partstable.delete;
       
        for i:=1 to number_of_machine loop
; B+ e9 w. X  [' W1 ~0 U4 y* c% g                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
* c/ e! i, H) o$ j, R" \9 l                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
$ ^" _. Q+ V8 z/ {4 w                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
# |$ l. Y3 Q  _/ C                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
5 I" [7 @# r* C                        partstable[6,lines]:=j;
                end;
        next;
- _7 N  N. H0 ~. z        machinename:=sprint("M",rows);
) {, f& Z& m. ]( K2 g        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;
        machine.label:=activityspace[0,rows];
  A9 L* E# p" ]: L: \7 e        machine.exitctrl:=ref(leave);
       
. U9 o& \  K" x" W$ f        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]);
3 @( c$ J1 A/ v' x  _3 r+ e4 s2 n+ \, p        buf.name:=bufname;
2 R( e5 @. f5 b/ }* `        buf.capacity:=5000;
        buf.proctime:=0;
- h+ k- T9 b3 \- A        .materialflow.connector.connect(buf,machine);
  h6 I) R$ M/ \$ z7 N1 l1 h       
6 N+ p- ^" Q3 R+ B! @        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);
1 x( r  J' }& Gnext;
: J8 L: S: l& k6 O# H" K- N$ lend;