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

zooey

is
1 [# g* r1 ]& |/ e1 m2 n        mark:boolean;
        dx,dy,ct:real;
, l& A  `4 w" ]6 P. M    i,j,rows,lines:integer;
    machinename,bufname:string;
8 T0 t7 x; z' _: B1 _7 I    machine,buf:object;
do
. ?3 G! @2 }6 z. q4 W( q" T        current.eraselayer(1);
: R; X6 ~( s# `9 F       
- ]; U3 o& p5 J        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
7 ?* j+ Q2 t# H! ~                when 16 then
1 y5 S: W5 h8 G( D) D7 D. S; q                        print"yes";
! S  b' q6 V* n* q- u0 x                when 32 then
" B6 V( t) @+ m                        print"no";
# x( R9 ]8 x+ ~7 y+ {6 D                else
8 {( ?$ ^# Z# k+ A8 q3 n                        print"cancel";
                end;
                eventcontroller.stop;
        end;
4 l/ e) i3 l3 j  t% N$ _6 V5 b; ^       
/ |3 J; U  ?) Z$ O- Y        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
; c6 J7 @  k2 b6 \2 K                machine:=str_to_obj(machinename);
$ D$ d3 z8 e/ P- ]. N0 d7 A& C8 e                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
  N& L; G7 s# ?1 t( U6 p. w% R        end;
# @  u' _9 |% S- f; U9 K        next;
       
, ]" v1 J8 w/ b) ?# z) J; I  ~8 Y$ P/ O        dx:=0;
, q* X  a! L: s6 J0 g7 t: I: U) N        dy:=0;
        for i:=1 to number_of_machine loop
- E4 l3 i: j& A2 E4 T" t+ Z5 ~                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
1 ]3 M7 c$ n$ q8 ^                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
, E0 i  R+ V' y" y6 |3 U                        and activityspace[1,rows]<(1.05*y_max) then
- _* x7 k! \% E+ f! [                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
% _0 I) ^% l6 P) p9 G                        activityspace[1,rows]:=ct;
                        mark:=true;
6 a# L7 B! C$ y4 k2 d- f                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
2 r* F0 p0 g+ A& v5 G/ z! h1 |/ d+ i                        --end;
) Q; C/ `/ C: |& i8 }% \. J                end;
' `0 o% y4 o3 Y! m/ F. c                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
) {" J5 M- S. e! r                /*if mark=true then
) `$ b/ P  R0 u1 c) i9 I                ct:=activityspace[2,rows];
( H" F- r; O, |% R  _6 Y6 K                        activityspace[2,rows]:=activityspace[1,rows];
" o/ l0 Q3 n8 d+ I                        activityspace[1,rows]:=ct;
, n2 m4 j! }3 A1 |: c- ]/ z8 l! z                        end;*/
6 B" W. |4 y# I  s        next;
6 t6 E+ R% F6 W1 D        y_max:=y_max+dy;
2 v2 W4 t! M1 W4 R+ 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);
        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);
       
, l; C0 k+ n0 A; |# o        rows:=0;
  U- z8 ?$ L4 f. n! L. I5 e        lines:=0;
* T; K! V" c& E. w  G0 n        for i:=1 to number_of_machine loop
" }7 v' O! {4 _1 j# E3 f& x) N                for j:=1 to number_of_machine loop
                        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];
, u* H3 X$ n3 U% X/ J! g! \/ O                                d_from_to_chart[j,i]:=abs(dx-dy);
  }5 s7 a1 S- w                        end;
                next;
; V9 c9 t9 Z! o2 l: M. C+ |        next;
2 E) a6 L2 U9 y! T" _       
  b5 Q: v1 j* Z' N, [: b6 w        lines:=0;
( M8 T* t) B& V# A3 B# c+ n( w        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
: R. @$ t% ?: h( x2 V  T9 z% w                for j:=1 to number_of_machine loop
+ r5 `9 J: F* d% b# o& e                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
/ X# q2 ^4 P) w/ i9 I4 e0 _; c                        partstable[2,lines]:=w_from_to_chart[j,rows];
9 v& U1 w+ R/ k4 w5 m$ `                        partstable[3,lines]:=sprint("parts");
: D! j7 c+ ~# b& B- j8 a                        partstable[5,lines]:=rows;
) B$ F% F1 P- n                        partstable[6,lines]:=j;
                end;
' n6 y$ L! X* h' ^$ U# O; F        next;
* ~  b8 ]. |8 X' T: ]7 z1 Z        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]);
, e; H( {2 p3 q2 C( o        machine.name:=machinename;标识符未知
5 G7 c3 D5 C7 l- `+ ^% [5 d        machine.proctime:=5;
( S( l- t7 Z* P# i; G        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
& }1 A* |! f- W# L$ E        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]);
4 Y: ?* @- i# y' h4 Q' q" p! x        buf.name:=bufname;
        buf.capacity:=5000;
3 d1 a& y; s9 O% c        buf.proctime:=0;
1 n3 P; ~' v+ N6 D        .materialflow.connector.connect(buf,machine);
       
        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;
' U7 T4 d' B& M6 m6 }3 ^9 r7 X2 rcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
0 [# \9 M: Y7 x" z0 H8 w3 A& xend;