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

zooey

is
        mark:boolean;
- T$ U* f" E) n        dx,dy,ct:real;
7 l7 C3 M2 B. @( Q5 c    i,j,rows,lines:integer;
% M. C, E! t4 A5 v$ ~    machinename,bufname:string;
) s. {; S3 N  K- j; ]    machine,buf:object;
# u, ~7 k" z2 Kdo
        current.eraselayer(1);
7 o6 a8 G6 P' G       
/ C2 \9 T( l" A8 }3 l. T        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
& x1 ?8 w" \( ^0 p                when 16 then
5 H9 ]( k4 n  s3 {9 p8 c5 Z                        print"yes";
0 D. K& J3 _8 l& J! N2 M0 F8 g- O                when 32 then
' P& R- [, ]7 @1 ?9 S! v                        print"no";
                else
2 P# |2 h6 m+ G: {                        print"cancel";
7 H3 L7 \# v: t% d5 H; s3 l9 g" \                end;
                eventcontroller.stop;
8 e; T& I' A6 d; }' c3 B. g        end;
       
        for i:=1 to number_of_machine loop
4 p, B& [* ^" }+ S$ [# K  d, j        machinename:=sprint("M",i);
4 Z2 H8 G* a) r+ p' m0 Q        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
, K; }- m/ R5 J                machine.deleteobject;
$ s7 ?4 y: c; f' }4 f' o. s6 W        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
* e* c( c4 _9 J, v        end;
        next;
7 j: ?$ l) r! w2 @2 i' X       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
2 }# a; @2 l! A5 S0 |                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
2 j$ q4 J0 ]- L; H# Y& Z                then
  P/ s+ Y5 \- X  J$ L, M                        /*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];
9 ~1 D% S5 Z# h1 h. A9 G! F                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
" M: v3 Q) P( H1 Y2 B$ o                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
5 X  B2 d) H& u' H! x, J7 g9 s* ^                        dx:=0;
9 G- d5 E4 T9 `                dy:=0;
% ?( Y$ b5 _0 g( O: `! M) F4 h/ w                        --end;
                end;
1 X: ?$ L9 [( [, l0 E                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
/ E- I" Z7 I7 S1 |8 }* ?" ]7 O                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];
  }( a3 B5 P! k, e                end;
* E- X9 o1 g/ l# Z, y8 @0 J                dx:=dx+activityspace[1,rows];
                /*if mark=true then
2 \7 W& f) p. s& F+ F" `+ _/ c                ct:=activityspace[2,rows];
: A; M- W) p/ d! \3 j% X# _. `                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
5 u( L! [' k, o4 Q; o                        end;*/
        next;
        y_max:=y_max+dy;
6 Q3 t+ a: G; o! ~* e        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);
) v+ I8 i9 j% S8 q: v" K" M       
* m  y- D% K- j6 o        rows:=0;
' s: X; c4 H: D% t& \        lines:=0;
        for i:=1 to number_of_machine loop
* d4 u, m+ r4 a' [4 L8 H                for j:=1 to number_of_machine loop
4 e) P& M0 V/ W; i- s                        if j=i then
# E7 I, A" Y' j0 _                                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];
                                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);
( w+ m% t: T/ n6 B8 [1 Y                        end;
6 p  x; c( ^1 f* P* [0 s                next;
        next;
2 ?1 ~( m0 D' T1 u- P4 J1 a' ^       
: V# R* u' h9 t        lines:=0;
        partstable.delete;
       
0 M1 O5 Z" W2 _7 ^        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
8 j& T- `/ F6 S                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
, R/ H4 o4 g" Z& h8 k& E                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
! k1 {4 S1 N7 l9 A* A% Q                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
: p9 p6 H  m# |% n4 }" |                        partstable[6,lines]:=j;
                end;
9 B* n1 f8 @5 {  R1 f. R; o( p        next;
        machinename:=sprint("M",rows);
6 x  D6 V% G. s+ G, R        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]);
% `) d- t+ P9 [" O/ \) T5 O        machine.name:=machinename;标识符未知
. |& M& ^$ \) `# x        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
  z/ g" r6 W  k  V6 D; k        bufname:=sprint("BF",rows);
: Y, |% {& f$ d        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;
; ?3 J5 t# M! H/ e3 o0 |/ @        buf.capacity:=5000;
* j, x. {6 y+ V        buf.proctime:=0;
' l- J2 h$ U! b) h0 d        .materialflow.connector.connect(buf,machine);
- v" o0 [5 E- C9 Q2 g: i       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
2 y, m4 K  r$ K# O) Hdy:=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);
! Q6 N$ ^- H3 j. S9 R: Jnext;
( M: l7 u( q1 Y+ t8 ~end;