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

zooey

is
        mark:boolean;
5 X% W( T: ~4 n; O5 C        dx,dy,ct:real;
    i,j,rows,lines:integer;
1 n7 W) E. Q6 F    machinename,bufname:string;
' i( |9 s% D/ x7 Q    machine,buf:object;
% F6 X: a; K8 O* K9 ^7 edo
        current.eraselayer(1);
       
  w$ v4 O: F' }; T# \, w3 _* J        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
8 G1 @+ N( ?% h1 z) i# o. |9 v. M5 O                when 16 then
                        print"yes";
                when 32 then
6 U- d, h" S+ d4 e; t, J                        print"no";
5 |" o1 u% ~% ^, y                else
                        print"cancel";
* P! C' ?4 E# Q8 s2 @( P, k                end;
                eventcontroller.stop;
& L( v$ y8 W1 L3 ?, j( y. f        end;
9 A/ k% i' ~1 R/ g       
, f. C# F! e. G* `( {        for i:=1 to number_of_machine loop
* `, x7 Q, Q( k" ?' v' [9 J& ^        machinename:=sprint("M",i);
  v* B- z0 k$ T' ]        if existsobject(machinename) then
1 s) I3 K  ?3 C' u/ V+ T                machine:=str_to_obj(machinename);
5 F6 u& g& ^/ ?) q                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
$ d* s& i/ l9 A: M2 z        if existsobject(bufname) then
1 y6 U5 M3 ]. r, }$ ~) |                buf:=str_to_obj(bufname);
  T4 m7 L2 F) O1 i: ]$ N4 a" [                buf.deleteobject;
+ A* j# T, ^5 X7 l        end;
# R- q; L- |8 c1 z. L0 f9 w; @        next;
1 P4 b) H. \6 m5 f       
        dx:=0;
  \7 P# I6 P7 v5 j; N2 O2 b. L        dy:=0;
- S" Z5 f; D1 x& m4 e% v' c        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 f$ c5 _) w7 Z8 a                --mark:=false;
% G$ ]% B% A$ z+ Z& J                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
  i" x7 Y/ w' ~0 w                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
) `+ J* o2 c# I2 M9 k& M- B                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
7 ?3 K( o* f0 ]  z                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
  N( h+ s" O, t* _! d7 H& b" |; c5 o                        else*/
                        y_max:=y_max+dy;
) p3 O3 W/ K5 B" y% Q& A+ D: B                        dx:=0;
                dy:=0;
                        --end;
                end;
' m+ O' N# j, M% S8 X$ x+ F                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
( F" q3 E: f7 ], A                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
/ v& }9 w# e6 t# X( q            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
4 T! ]! x* r/ t7 p! M. J                end;
. U: ]) [: g8 t+ ]7 j                dx:=dx+activityspace[1,rows];
5 a9 r0 Y* `/ _& q: q                /*if mark=true then
1 C/ q. m6 U2 @( \, J, v                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
* N, [, J: D. e4 ^; n  V/ V                        activityspace[1,rows]:=ct;
! D+ U2 K0 Y+ U4 P; _! K                        end;*/
: Y1 g4 R+ v9 r2 B+ o1 Y        next;
        y_max:=y_max+dy;
! w" r/ K% q, V7 `' K. J  N# e6 X5 S        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);
! d! t9 ?9 S# k3 @- ~        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);
/ e5 U/ m' Y7 [% _0 c$ w       
        rows:=0;
2 p% |' j' h0 ]7 x        lines:=0;
: a% I! |+ K7 y* Y5 N( o6 i        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
! X$ B# M7 q7 S+ P& _- @                        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];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
4 K& N4 x* V! F9 O0 ^% v                                d_from_to_chart[j,i]:=abs(dx-dy);
+ u" D6 c5 S4 b' |0 E* B: m0 x                        end;
  T5 c5 ?! d7 ]& D/ s                next;
        next;
& s, q4 V* _) E  {3 _! H$ q2 `       
        lines:=0;
/ k. m! n: n1 y& ~0 y$ @& ]        partstable.delete;
$ R2 h7 r. z) W9 y- p3 R       
; m: T$ M9 _# k' X9 t/ Y2 E# s3 K        for i:=1 to number_of_machine loop
3 P: o* s& N) o+ r                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; [- Y" _  Y2 s/ }                machinesequence[2,i]:=rows;
/ R9 A6 ^" Z7 c) `                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
- H- W' a& @, K; h, J3 u9 R7 x                        partstable[2,lines]:=w_from_to_chart[j,rows];
% Y) b1 {1 l* C4 @! J; s6 y9 @                        partstable[3,lines]:=sprint("parts");
. A& n3 w/ B8 o! Y                        partstable[5,lines]:=rows;
- a9 H1 C$ s8 N( z& }4 J7 S                        partstable[6,lines]:=j;
                end;
        next;
8 {. d1 z6 C, R  J7 k) m        machinename:=sprint("M",rows);
9 p7 @3 f3 g- R8 Y8 a1 m/ m        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];
        machine.exitctrl:=ref(leave);
       
0 _5 r/ F* z: c- V* b        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]);
  X" O( u$ N- I5 i( c  k        buf.name:=bufname;
: u2 @0 d8 Q+ C, W8 L$ b        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
2 H. l9 T( p1 n4 _1 f& j& z# d4 }0 H        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;
' j& R+ g: {. j' p- Icurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
. {; i- v9 M& B3 T4 k' @# E+ l, S) Ynext;
end;
$ ?( }: I5 Z- ~! f* W+ P2 E