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

zooey

is
. \+ j# O" Q1 O        mark:boolean;
        dx,dy,ct:real;
% X4 g6 Y+ _9 s8 |6 q9 Z1 D    i,j,rows,lines:integer;
: O* u6 c' c! Z/ k6 J    machinename,bufname:string;
* ]. I: [' |6 E: K4 t    machine,buf:object;
( |- H! n. q* m% m$ y; f8 S3 v& r  }6 W" wdo
/ T) q5 {  D8 s4 M        current.eraselayer(1);
$ w* E9 ?2 t' d2 \2 L! Y  I; n       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
2 x' n" `2 e# z9 L                when 16 then
+ W$ s9 t0 L( o1 C$ W                        print"yes";
* f/ I% T" `" h                when 32 then
                        print"no";
                else
  `3 A$ l! G. x3 @) L  l4 h                        print"cancel";
                end;
                eventcontroller.stop;
# W6 ^2 w8 C. {# I        end;
9 Q$ f( Y6 e/ s# v% R: Q       
        for i:=1 to number_of_machine loop
) H3 o; ~; n: e* t; w        machinename:=sprint("M",i);
: C" b3 m, x$ h  g, f& V! r2 S+ _        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
- ^: ?, j. P2 C        bufname:=sprint("BF",i);
2 E7 j+ J  s: f/ a  [( E; Q        if existsobject(bufname) then
. z. c& W* W6 q' O2 i" f; B' ~                buf:=str_to_obj(bufname);
1 x' J9 W! H8 K# i+ |2 }! r                buf.deleteobject;
1 K5 k& j: @9 t$ n3 ]0 R, R; o        end;
! K$ u: w. F7 x" A' B6 c        next;
6 v4 N3 U& F9 g4 |$ N) T       
) }; V" _- ]# w. h        dx:=0;
) ?; K2 g- Y' n1 Y- {/ _9 Z        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 U6 T% s+ h. N4 q9 R                --mark:=false;
$ k; r# f2 m) P  j/ @/ b9 J+ d                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
. c% Z/ F  m0 C5 Y9 z0 O                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
' \. S8 Z* ~: W* a" J6 A                        print activityspace[1,rows],",",activityspace[2,rows];
% G* @. U' p) X                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
* G3 {" ^7 B, ]* V$ g  l                        else*/
                        y_max:=y_max+dy;
& I  G% z7 j7 Y- B                        dx:=0;
& s) w8 C8 v, X+ S                dy:=0;
                        --end;
                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;
' |9 _* L; g, ~% c* B6 E            if activityspace[2,rows]>dy then
- e2 N: ]) i! H9 |( Q( f8 F+ {                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
+ E$ D: m. {" y$ |7 N2 R        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);
. i0 G; R9 B4 E# s        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);
; b; ?5 n0 x& y5 J; }4 r       
: Q- M& N8 \8 O+ l0 ^7 Z6 R        rows:=0;
" D' ?* P+ e3 C" {        lines:=0;
        for i:=1 to number_of_machine loop
4 o; l: M% y2 y8 D' m+ l                for j:=1 to number_of_machine loop
0 E, n8 P) v) l( w0 \                        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];
* F) R8 B+ H' P* i                                d_from_to_chart[j,i]:=abs(dx-dy);
; g7 `3 t' D0 A# l& m  z, h6 }                        end;
                next;
9 P" ^# ~1 `! J        next;
2 N. O% g9 f5 e3 G# E9 b0 C$ y- h2 V       
2 h" j- z# A2 I7 |        lines:=0;
7 y' Z# t  P. O. j5 w! e& n  w        partstable.delete;
       
        for i:=1 to number_of_machine loop
% r2 D0 U# c' d; |; i, b                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 a0 \1 s+ P; s  L                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
+ V4 }+ e3 c. W2 B0 S+ |) d5 I                        lines:=lines+1;
- Z8 n2 s' k) v& q8 U                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
* E* p, t2 y7 Q8 `- E                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
" F" q, J% p; k: M) U" J" J6 A        machinename:=sprint("M",rows);
( h3 M6 f% n$ z& E        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]);
" @: z- s* a' M2 L        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
- j& q8 b, Z% A        machine.exitctrl:=ref(leave);
       
; k1 |* B, ?9 [$ h        bufname:=sprint("BF",rows);
) _- G( C) ^  i* H* n$ L( o        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]);
% y2 J- v3 J1 b        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
! }5 W9 Q% @( O& p- G        .materialflow.connector.connect(buf,machine);
' c. M2 ^: J# @/ \! r' \       
        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;
4 n2 H1 \% x8 w$ f, pcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
4 V# d: ]* y! z" K) Hnext;
end;