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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
! z0 S" b7 I' h/ {, U& j    machine,buf:object;
do
        current.eraselayer(1);
. g: B$ t  I- R       
5 ~% `2 x" x# T6 ?" }! H4 y        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
3 b9 z+ X6 |5 a( s) S# v: d$ Z) F3 z                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
1 ~) r+ U1 `+ ?. D: g) x                        print"yes";
                when 32 then
                        print"no";
* e3 o& }( N& ~  D9 @) m                else
/ P9 o+ T, a# ?0 x  ^3 R- ~                        print"cancel";
                end;
                eventcontroller.stop;
" _: q6 }; i% v7 j9 \5 t- h9 W0 @        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
/ T* ^' b' `# a; p% l$ @        if existsobject(machinename) then
$ ^6 l% d: F. P; k# s9 M' _                machine:=str_to_obj(machinename);
' d7 C' n' l3 g# Y                machine.deleteobject;
& j  }. S8 g: {3 r6 h) v& u6 {        end;
- Y" r% Z( C$ D7 C" S/ K        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
$ l/ U3 ^% a2 \6 Z; l' j        end;
, _- K4 V3 E3 t  @) L) Y5 a        next;
       
  ], v5 d3 w  l9 d' K2 P3 ^        dx:=0;
2 i1 p; ~' D! s. p# u        dy:=0;
        for i:=1 to number_of_machine loop
8 @; j0 z' B+ h& ^, u9 M                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! m5 O, E8 r/ I                --mark:=false;
2 K+ q8 V  |: M! h- k                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
# q" X$ _( H! @, ~* Q3 m                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
, J+ e3 a' g. F* f                        and activityspace[1,rows]<(1.05*y_max) then
" c+ [& A7 t& _7 U* G/ P                        print activityspace[1,rows],",",activityspace[2,rows];
% ]/ F6 ?$ P8 C                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
# _: c* C4 g* `, O. g" W                        mark:=true;
7 i( s3 E" F4 \2 x                        else*/
                        y_max:=y_max+dy;
/ m9 r  R' [" k0 V9 Q- z                        dx:=0;
4 I3 p6 B7 c; y) D: {                dy:=0;
                        --end;
( d# @2 ?. [' N6 ?9 [6 z4 _$ K+ X                end;
$ v2 t" d( @" e                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
& \' }/ E- [, Z' A* M" K                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
: L2 b- f, B4 Q# q4 @+ ?/ L                        dy:=activityspace[2,rows];
                end;
, i: ^6 _  W" E                dx:=dx+activityspace[1,rows];
$ x0 r) p+ }; B) |3 w                /*if mark=true then
; ?+ F& \; f+ _% C& |9 l! J                ct:=activityspace[2,rows];
1 I' O3 e: c  [: ~1 x7 U, t& l                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
8 Z$ r, F4 f+ K* z                        end;*/
; j1 {* T9 F" I8 U$ N. H        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);
; e/ T" Q/ |; D% o, p; c        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);
       
9 w6 u& D- U7 b/ q* v: r# h/ K        rows:=0;
5 ~. \8 m' ?# R        lines:=0;
6 h/ c' \3 F. I" w9 J& A        for i:=1 to number_of_machine loop
" c7 F" m0 P9 [2 K1 K                for j:=1 to number_of_machine loop
3 U! ?0 D2 [9 ^+ [& a9 j7 G                        if j=i then
                                d_from_to_chart[j,i]:=0;
5 u7 z2 ?3 J/ |                        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);
! T0 q" [9 F  y! X1 J4 N! i                        end;
                next;
        next;
0 _- d- g+ a8 Q+ J       
        lines:=0;
  ~8 w' ?  T5 b2 A1 a$ m) |        partstable.delete;
: x+ P' g. s% B2 t- ^  _2 w$ a1 R       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
4 f9 n+ I  M- C; a/ S( _9 Z  F, Q                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
8 r  }! @7 t& l                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
% D: q5 W: z0 o$ a3 \% C4 t/ o4 B$ a4 I9 z                        partstable[2,lines]:=w_from_to_chart[j,rows];
  b. g$ X5 x0 y8 `# T& T0 o$ C                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
0 T# |  {1 n" @- r& r                        partstable[6,lines]:=j;
                end;
+ c1 j$ A1 t3 }9 O: V        next;
+ U# x. C+ L7 a* d) j# G        machinename:=sprint("M",rows);
0 E$ W; U8 j% Y7 C- e% Q& w        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]);
/ m4 b# p/ s# y, z! F5 l: ]        machine.name:=machinename;标识符未知
        machine.proctime:=5;
. u. }- Z- y4 G' }+ w0 t" U        machine.label:=activityspace[0,rows];
$ F& i4 [9 @3 T- {        machine.exitctrl:=ref(leave);
6 s+ v( d) }& x/ r- o       
        bufname:=sprint("BF",rows);
) M- R( J  {7 m! ]6 b! E$ l6 U        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);
; z6 \- {: H- t+ [% R6 J: {) a       
/ v7 u$ W" I" P: h0 y% r+ F        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
7 R) t! ^8 w- x+ Ndy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
6 W7 h4 Z) \" w/ y8 y3 y3 bcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
7 h6 L. q9 d' d8 @5 }next;
) \+ V2 `5 d7 m; O+ _end;