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

zooey

is
5 a2 D0 ?& T' r9 F        mark:boolean;
( N" g/ W/ M6 H* N! X2 z3 l        dx,dy,ct:real;
: `4 ?3 i4 Z- V    i,j,rows,lines:integer;
% [4 L% Y; x) Y: H    machinename,bufname:string;
    machine,buf:object;
8 Y$ ]# g- c5 Q" X* s6 Pdo
/ ?3 H8 m6 \* \        current.eraselayer(1);
       
2 e" X2 Y7 |: _" n1 e' N        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
! A% E( @1 \' L5 P0 J                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
( \" v* T. j  ~5 y$ O                        print"yes";
                when 32 then
                        print"no";
7 r) a/ N* |0 R                else
. N) H( b3 q  S. j4 e) I/ `5 `                        print"cancel";
                end;
, ]  o* R* Y2 V& P  l6 @                eventcontroller.stop;
0 z0 |4 @, l# f8 o8 ~9 G        end;
( A1 M1 I: Z1 O' M8 A0 T       
$ c- o& f4 s; F        for i:=1 to number_of_machine loop
8 N8 U& J8 R3 N9 u, Z        machinename:=sprint("M",i);
        if existsobject(machinename) then
( ]5 z7 M+ d$ A; F) o                machine:=str_to_obj(machinename);
, t. q- \; K7 F                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
4 s; Z7 Q8 L/ H8 f. A        if existsobject(bufname) then
2 V' b$ w- y  O% A" ^                buf:=str_to_obj(bufname);
                buf.deleteobject;
9 G' v6 L$ d9 ^* a6 {        end;
' J# m. |  L) P% D) F        next;
+ y; }( J  p+ G& ~+ m. @# E/ t       
- p  ^6 j' u3 ?' k- c: f6 w        dx:=0;
        dy:=0;
# m: z) |4 y8 B8 p+ q/ \% r" A" b        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]类型不匹配
/ d, i+ j2 W& }5 i. T                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
5 c% o$ I$ v# Z                        and activityspace[1,rows]<(1.05*y_max) then
# Q0 S" l( I. _                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ S. e7 O& |$ q. G                        activityspace[1,rows]:=ct;
" i* m: k# [$ p3 u                        mark:=true;
                        else*/
0 p! z4 a' L) v: S  T                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
* r3 O8 v; d3 P/ r                end;
* u. I5 E9 p. L" Y. ^                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
5 g* s% D. s; F* I! T* p                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
" G% }# c; @7 o7 \% t. i* j            if activityspace[2,rows]>dy then
6 N1 Z6 {" C& d8 r# A. |                        dy:=activityspace[2,rows];
8 h2 z( E- j8 l0 `$ h7 L6 i$ @                end;
9 E6 L- _. q( Z                dx:=dx+activityspace[1,rows];
1 o# @7 X8 Q8 W. j4 \! q" E1 i                /*if mark=true then
                ct:=activityspace[2,rows];
# E* O' \. m) V' b% U* {                        activityspace[2,rows]:=activityspace[1,rows];
  E/ Z8 s1 g$ S8 g& ^: v2 u                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
0 y3 Y2 W' y# O- Q: Y        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);
% ~" |$ {# J# `4 I6 `+ 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);
; g+ E! f2 m$ ]. J4 K       
2 w: _& |* N. p* K9 I# A        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;
0 @' p2 d. b7 |6 D                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
! f  i/ w- i6 j# u- m                                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);
) Z, Y4 A1 ]: Q: X3 [* Y& [! I                        end;
% K4 T5 h+ ?6 a4 z; Z( k& F                next;
        next;
       
        lines:=0;
# ?8 y! V: r- K( V        partstable.delete;
; T$ d- F& y; y; V" ~1 J$ r$ J       
        for i:=1 to number_of_machine loop
% x5 [& S7 @2 f                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
3 J8 K; m5 \+ B) @( l                for j:=1 to number_of_machine loop
/ o) p( N2 `4 K. `* c' A  a                        if w_from_to_chart[j,rows]>0 then
* I4 p7 @' U$ W  h7 B' F1 B                        lines:=lines+1;
: q3 y/ @* L' c* e$ n9 d5 `& x                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
* i8 o9 R* H( h: |$ L- ^                        partstable[2,lines]:=w_from_to_chart[j,rows];
7 o4 m$ ?$ k  x* m; |& x! {  @( ^                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
* ~# ?' F: \* H                end;
- w7 n, q8 Z/ d4 d2 N7 D0 j* x& K        next;
1 v7 X( G: H/ I& X, [        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]);
        machine.name:=machinename;标识符未知
! s5 F6 [4 u$ L6 |7 B        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
$ g1 {  W. O) E4 C! Y3 e        machine.exitctrl:=ref(leave);
' h: W8 ?# B( {: o1 _& h" ^: M       
. P& u! O/ q% l/ C. u" h$ ]        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
3 r3 h3 }; z& b+ a        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;
dy:=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);
, |% q1 P! G* T( F5 @3 M* a! bnext;
end;