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

zooey

is
* m; J' X6 H) }9 e        mark:boolean;
        dx,dy,ct:real;
8 Z0 m& s3 G' ^: t4 }8 X) A% C    i,j,rows,lines:integer;
3 @9 p" ?) a( }) v$ _    machinename,bufname:string;
    machine,buf:object;
& w0 m  w' U/ Gdo
8 l! {0 Q0 v: t& P& w        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)
8 O/ W" b4 A- b. s& S9 [                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
+ E8 Y( P9 H) o8 q6 u( c                end;
+ d( k" m6 R  B2 ]1 l& t+ s% p+ Z                eventcontroller.stop;
        end;
' h! K; d9 T4 N* c+ ^4 L       
- b" h4 a$ A; ?; H9 }1 @        for i:=1 to number_of_machine loop
' H1 P7 U( W! h' o* n) l+ s  `  \        machinename:=sprint("M",i);
0 i& g* |: `6 `        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
* n, z! T2 V9 K( V; y8 A                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
+ V/ W# t5 i0 R4 M                buf.deleteobject;
        end;
9 ]6 P4 _/ d; o! {- U6 W( X! c( ^        next;
       
        dx:=0;
2 H/ p+ I5 ~8 o8 v' n/ E% ~        dy:=0;
        for i:=1 to number_of_machine loop
: Y7 z' O; G) ]" t9 _7 U; z$ V                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- v! U! e8 j* ^3 T, O# l% ]) Z                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
6 I8 i4 g* C* i3 i* k  {( T                then
                        /*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 z9 L+ F6 Q: X( J                        ct:=activityspace[2,rows];
$ r9 E# W" l' \8 W1 e                        activityspace[2,rows]:=activityspace[1,rows];
. B  [5 c! [1 q* I' |5 q$ S                        activityspace[1,rows]:=ct;
2 R% i& k0 ?6 D: o$ Z7 k1 s  N                        mark:=true;
" \2 S2 }, N) w! O( ^; u                        else*/
                        y_max:=y_max+dy;
2 {& n) D  \" g% b1 c6 P                        dx:=0;
                dy:=0;
, p7 T" k* b8 m2 s                        --end;
& ]! @0 ^/ m2 B9 |                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;
% ?' H# P' f8 `/ s! l            if activityspace[2,rows]>dy then
  j7 R, f; }6 N) m& L4 ~                        dy:=activityspace[2,rows];
: p" u+ m- x1 B  [$ ~; A' ^- k                end;
                dx:=dx+activityspace[1,rows];
* x% Q/ y+ z' ?0 r6 W. X4 b                /*if mark=true then
                ct:=activityspace[2,rows];
; C6 x* }4 d) v/ P+ M1 H  s                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
" t& E: S* E) ?0 L8 J& W        next;
* d' c/ U- F8 V/ J7 c0 V9 Y4 W) z        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);
, S2 e# b8 |; _1 c0 W, l       
        rows:=0;
        lines:=0;
! ?2 k; R, F7 h/ g6 w5 [- [        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
& F/ h1 K0 n* ^. C' u* V0 I$ L                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
8 [" v) w8 j, _% H                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
- v; _  B% h( W8 y# `  V- R- 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);
& C1 a5 n) Q0 B6 t; g                        end;
0 r% n; k9 {. D                next;
        next;
       
9 F# P& ]1 u0 c# d3 o; s! ~+ }        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
  O, b3 U. L( d2 ]: z3 ^                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
) q  k. r  P7 g' W% \                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
! k+ d( T. k8 J' ^: |& I% H! B$ _                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
0 V% V5 ^1 H) k! R                        partstable[3,lines]:=sprint("parts");
* L* O9 R, o2 N7 _6 p* @# Q                        partstable[5,lines]:=rows;
0 \/ y4 a  c" k  e3 F                        partstable[6,lines]:=j;
                end;
  g( }. O- R8 f5 Z1 v0 u        next;
& e/ P7 U" A. r- F        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]);
' @5 w. ^  n3 N2 {# O0 \        machine.name:=machinename;标识符未知
: ^. f( N* Q3 G! [! A        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
. O- X" t* t" ~  f& X1 @0 G        machine.exitctrl:=ref(leave);
       
5 U2 d, H0 U  K- y1 g6 D8 r# I        bufname:=sprint("BF",rows);
+ m: J8 }) O( b) y        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;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
- @8 ~2 e( S2 D4 R3 Ydy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
1 \2 `' j% H5 f. bcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;