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

zooey

is
7 K* G8 |% T* ^+ K* r8 a: C        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
0 E# a$ a5 N5 b    machinename,bufname:string;
$ X8 s+ W, f, \/ B    machine,buf:object;
do
( z, {/ d) X$ v        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
% \" I/ Z4 C+ }* i' J                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
+ e& B% o6 v7 o9 \1 ?/ c                        print"yes";
                when 32 then
1 r7 K/ B3 h2 }; p/ ~                        print"no";
" {- X  b6 a* _# R2 U: S* q                else
: _) E3 Y# i0 f) F! n/ Q" B7 O; V                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
  B6 J" }5 }/ q; B- E% X                machine.deleteobject;
$ ~! Z$ P% s1 {9 r- |        end;
; N  N  O6 c( L        bufname:=sprint("BF",i);
  `) [0 J) [. V, e0 b, O8 T! |        if existsobject(bufname) then
$ |+ C, j7 L1 v% B$ X8 Z. q7 ^                buf:=str_to_obj(bufname);
* _+ R2 F* I$ D# y                buf.deleteobject;
1 P8 R% I' x9 f3 F  [, J# y( e        end;
+ }. H) \+ n6 c& X! J9 n# z% S        next;
" K2 m: U8 k, }$ E+ }1 c       
6 A) o- [9 T/ G        dx:=0;
        dy:=0;
" B: s; {! s; R# x+ \" J        for i:=1 to number_of_machine loop
2 j- v, _0 F/ }4 e% A7 A                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ _; n6 F1 X' |- Z6 `1 r: ^                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
$ M  Y9 @0 a* L/ ]                then
9 @% H) b( `2 c( X                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
, l: `9 g' c2 l- {2 A                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
' N0 Q. V5 p! s! p" E  _/ ]* m                        ct:=activityspace[2,rows];
0 `) A0 t( o+ P4 o! t6 I" C; @                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
9 R: e1 p0 G: |5 ^$ C/ S8 K& ^( S+ e- t                        mark:=true;
: r6 u, }& [1 p                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
; \5 S- n" g- A- [+ g/ z# g0 I                        --end;
( m/ p5 e" ~. ?' H/ ~                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
6 S2 I2 \+ [7 {5 e  G5 A2 B                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
# X* K6 {4 K% M                        dy:=activityspace[2,rows];
' [1 O; a; D7 q                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
5 W" L5 A/ S- E                        activityspace[1,rows]:=ct;
+ V9 B8 h3 \4 a4 [" g                        end;*/
        next;
6 d  e8 i7 P8 R6 r( t) F        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);
0 X9 c0 y7 N1 P9 d        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;
1 {9 D* G1 B& _& P8 v        lines:=0;
        for i:=1 to number_of_machine loop
2 z' i5 z* ]1 W  a0 s! X                for j:=1 to number_of_machine loop
+ D' _. c$ H3 \6 T( Y9 J                        if j=i then
- D1 a# D  y; ]( E/ S. L                                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];
8 g0 W3 V! o  [/ ?- V* `& _                                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);
- j! D0 B3 Y3 P, x6 G& S. h( ~                        end;
# T# s; V7 t2 x% }! R                next;
8 d2 l  w1 Q' @' T. |" `        next;
) g. }+ d6 e' Y+ P* t4 W+ b       
        lines:=0;
8 G: g! S7 M9 [: k/ G; {) Z        partstable.delete;
       
        for i:=1 to number_of_machine loop
! t1 R# r% s7 I6 a                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
: f2 c  d* }% q5 h0 w! V& I* N                        if w_from_to_chart[j,rows]>0 then
" B" S( i3 ]' j) {                        lines:=lines+1;
: D# {8 O6 S' c" \  z0 o. ~                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
8 t0 D- E' ^0 q* ~4 h                        partstable[2,lines]:=w_from_to_chart[j,rows];
2 D, o9 Z: P( _! B- [% x                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
( X! y' y# \" Z4 f5 t8 q) m3 k* X                        partstable[6,lines]:=j;
* f% ]. J& _6 ~& R( V                end;
        next;
        machinename:=sprint("M",rows);
1 ^! k% R; Q" w& K" U7 r1 H9 C        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]);
: z5 @, V5 Z# H; d        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
- n. g: \9 {1 C: W        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;
. Y. k7 P* W" ^. G1 z, [$ H        buf.capacity:=5000;
. G7 z9 b  p5 S; B& @* B2 S        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;
4 _! J9 Q5 _& }+ ~  xdy:=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);
next;
end;