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

zooey

is
        mark:boolean;
$ z2 l+ p2 E4 _$ X6 b' {        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
        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";
                when 32 then
                        print"no";
                else
" y+ v6 K5 Y* ~, p* M- H7 j                        print"cancel";
7 ~. S3 d% O5 Y) c7 Y5 _# {                end;
3 V6 R/ }/ D1 y! c& E' N: P1 v  u                eventcontroller.stop;
+ a- T' \0 o% ?; L        end;
- V/ n) g6 F; T% C3 }2 G3 S# L       
        for i:=1 to number_of_machine loop
1 ~& A2 U+ x2 |7 V2 t8 `        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
# P: n. d# H4 k* B& J! i                machine.deleteobject;
: a3 ^$ Q1 Z4 s" }        end;
8 W3 \; t" Z( l" {0 B! f8 g7 e. [* W        bufname:=sprint("BF",i);
        if existsobject(bufname) then
, E  R  k& x! G. \2 P' y                buf:=str_to_obj(bufname);
7 e4 L8 L8 C2 y9 }: h0 o& N                buf.deleteobject;
0 X  M$ M! q' {) P- x        end;
" r' S& @% R1 g9 t, ~! [        next;
       
        dx:=0;
* \) p; x6 p( j( {        dy:=0;
. B" Y1 r( T# K        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
+ M. S+ X: N* O. A                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
) B# B; c) E: R0 l                        print activityspace[1,rows],",",activityspace[2,rows];
% a7 q' x4 v5 r; q                        ct:=activityspace[2,rows];
5 Z: W* {# l; s* q$ p* a                        activityspace[2,rows]:=activityspace[1,rows];
( C* w7 j, M$ _4 s) S/ K2 v0 J                        activityspace[1,rows]:=ct;
$ E  X) p  ?: n! b/ y. @5 l                        mark:=true;
' d4 o- T; i  R! ?                        else*/
8 V: g0 E6 J+ W6 m& G& I: t3 K. P+ G' L/ u# ~                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
$ y) I0 n# R( m! G; ~                        --end;
5 Y; W; |. P8 B8 D, S                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
4 B! o2 a2 k( t0 S. v3 F- }# ~                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
& D/ `# c  m1 F% g$ B3 n            if activityspace[2,rows]>dy then
# w- }- d7 S$ v" k! j. Y0 [2 F                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
% i/ p3 e, f3 l" L; p1 B2 W9 j0 J                        activityspace[1,rows]:=ct;
                        end;*/
$ z+ e. D& j6 D7 \5 {$ `6 y        next;
$ P5 u& U  p  E4 E/ I9 h- _3 x1 o        y_max:=y_max+dy;
) f$ d) I! V* Y" Q( f- H( [        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);
- T( W1 a- ]( U4 G0 p* ?        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);
       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
5 k$ D& X) Q& S) E                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
4 V" H4 y( D* n                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
% G/ |& r' f9 N  I# C* y: d0 |                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
9 \- e8 _% e9 \2 N  V) {2 l                next;
) X, ?" Q9 T: P* r( C        next;
       
5 }6 ^" ^4 w2 R9 B        lines:=0;
        partstable.delete;
1 h  }0 w( u5 \) r+ ^4 a% H/ q       
        for i:=1 to number_of_machine loop
) b4 G+ N" u  X3 q7 c- ~                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
, `" Y# V; @' 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"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
* R# \. I8 C3 \; B                        partstable[3,lines]:=sprint("parts");
  s# u6 `3 o5 l' U8 ]2 X8 K                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
+ I* ^6 D* }. u                end;
        next;
        machinename:=sprint("M",rows);
" j0 n# d1 `) C9 r& a6 u# o        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]);
  S1 _/ v1 F; R% P        machine.name:=machinename;标识符未知
        machine.proctime:=5;
) P( \. K5 w& O3 P        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
0 I9 G6 f% w2 [2 h( Z$ ]0 P) i: M. m        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]);
. x0 `  J" g( F' R' b        buf.name:=bufname;
        buf.capacity:=5000;
5 y9 i1 P) L" i  U        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
* w# H8 r. j/ J; o  P       
/ {4 w; H# k5 G. p& I0 E2 @        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;
6 \: e  b* F' t2 Lcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
" X" r$ B: z+ b) B$ E$ s- hnext;
* |. G9 y0 T1 P. y! t' Xend;