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

zooey

is
6 T5 y" V& |8 t4 _& l        mark:boolean;
& {/ O1 U. T! I        dx,dy,ct:real;
7 N0 B8 P3 U" r5 |) @5 E& p- z    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
- T1 w6 A$ s, w& F$ Rdo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
! B0 \4 E' x4 u7 ]! ^                inspect messagebox("设施数目不对！请核查...,",50,13)
5 u; s: e  W! }4 t+ N7 z  k                when 16 then
  J) u& X% q  p7 {+ m                        print"yes";
, g* t5 T3 u1 A/ f# |( s/ a                when 32 then
9 }/ ~# l! k/ T* _0 q5 a% p                        print"no";
# @, q  b1 c; d2 W5 N( R1 h                else
$ ^1 F  k. S) w9 r' ?                        print"cancel";
$ s  @4 F3 {7 f3 S6 S* c, b# r! F" s( R                end;
6 h5 S, t7 I+ v' Z& z7 x                eventcontroller.stop;
        end;
0 m# N" p! k6 p8 a/ p0 |+ E       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
8 N6 \  P3 }# t* q$ H        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
  l1 B$ I1 E0 L  G, A( B                machine.deleteobject;
" |: \5 \  N9 J2 O7 A$ k( e9 m) v        end;
# J8 _7 Y2 {9 s4 H  r/ V        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
2 e" c& k/ ]) K+ A& {2 d                buf.deleteobject;
        end;
        next;
       
        dx:=0;
; O( G0 C8 h! g. L        dy:=0;
6 y" j, B$ g5 S! n4 r; H/ f        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. X8 K% v! f: H  a4 E9 T' o                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
- c6 |! B4 q$ j* M; N; C4 D7 l, D                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
9 Z/ S+ S  B; V1 |                        and activityspace[1,rows]<(1.05*y_max) then
/ {) O. r; p0 s& s$ {                        print activityspace[1,rows],",",activityspace[2,rows];
- v+ |, @+ ?2 C) \  ~                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
0 E! l; d! ^: E- i" \                        mark:=true;
                        else*/
) c$ N5 J0 y/ S3 b/ e; f2 E                        y_max:=y_max+dy;
* }6 x5 q. U! K7 Q( ^                        dx:=0;
                dy:=0;
2 y$ `9 N/ E$ [2 O: a                        --end;
' q7 ^, N) A, X2 ~" l- J                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;
+ J1 I' @) V% n9 q, G* i2 S            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
2 _! Q" Q5 f5 h4 j                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
1 x5 E2 h/ [' g% C                        activityspace[1,rows]:=ct;
                        end;*/
/ h9 e' V4 v, B        next;
        y_max:=y_max+dy;
5 Y( f8 o& \+ a7 ~  T& ~& 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);
7 s4 V3 s# y: w+ T        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);
% s0 ^6 O& `3 a$ A$ A       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
; w) S( u+ w- C                for j:=1 to number_of_machine loop
# M$ B- D5 `8 O) g                        if j=i then
                                d_from_to_chart[j,i]:=0;
) _: S/ _' Y, j5 j+ e; u  E                        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];
& h8 \; u8 `9 h: H2 x                                d_from_to_chart[j,i]:=abs(dx-dy);
* a. x9 O5 E# ?+ p                        end;
4 x8 ]; w7 T/ S                next;
        next;
       
        lines:=0;
5 Q! W) w9 D4 B8 p, S        partstable.delete;
       
2 T1 J$ O5 W' ]        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
  f: v" b1 n" P2 G# _5 z                        lines:=lines+1;
% {; s% F9 g3 W( Z  u0 g                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
6 R( _: o. ?/ t( v                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
4 i1 h9 n7 R- C9 b7 t                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        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;标识符未知
# ]& |5 Z% T7 \, c4 u) X        machine.proctime:=5;
. t6 H0 b6 }6 i% Z        machine.label:=activityspace[0,rows];
, K( Y/ g# @% P* o7 D  Y! t        machine.exitctrl:=ref(leave);
$ ]" w8 }. p; R$ `  X- P+ r       
        bufname:=sprint("BF",rows);
! _' ]8 q* @2 ?/ D        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;
0 Q& q* w( V5 n, c5 Q$ G/ _% r        buf.capacity:=5000;
        buf.proctime:=0;
3 B  B' e4 R+ \9 h4 z+ ^- h+ V1 @        .materialflow.connector.connect(buf,machine);
$ a/ p) [7 g9 \0 O& p# W       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
' p* P7 q, w. g7 G* p% z+ U" bdy:=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;
. g. V4 X1 R0 O# L0 Bend;