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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
8 B5 ?8 ]8 T" r2 }/ T1 `    i,j,rows,lines:integer;
6 J* y- S/ K0 q$ c, }7 M    machinename,bufname:string;
    machine,buf:object;
do
0 ~3 e2 Z# C( b- y; b: ~        current.eraselayer(1);
       
$ [' X2 c. c" z9 d- g3 K        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
! `1 n$ s- C' ?' ]                inspect messagebox("设施数目不对！请核查...,",50,13)
; t) V6 k3 R" G2 Z2 M' x                when 16 then
, n7 a* }$ }& |0 o                        print"yes";
1 I* J* {$ U* P1 g! K( d  G% ]8 q+ l                when 32 then
( c: F5 [: M  V! @8 q6 F                        print"no";
" V7 e& y/ i1 H; q4 ]% q2 U& I                else
                        print"cancel";
: h2 G; o1 S4 v$ i& Y                end;
) X7 o, i* }' Y9 R; |+ L; x1 e                eventcontroller.stop;
( O6 R8 f! S" H7 w. u        end;
' ~3 x4 q3 K0 r% s       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
; a( @" \$ P/ M, q4 W* I                machine:=str_to_obj(machinename);
                machine.deleteobject;
5 y( [% N# T+ w9 P+ p        end;
0 b" k% M# F3 g, s' j        bufname:=sprint("BF",i);
6 C, ]3 N& e' ^% \" k& M7 j2 T8 K9 H        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
8 J  z! x, M; i       
* ]5 {' V* y# M/ b4 X3 e3 e        dx:=0;
        dy:=0;
: q% r1 L8 e, k$ Z        for i:=1 to number_of_machine loop
( y( ^7 e0 y2 d$ z+ }4 j                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
7 ?  f$ `, ^9 i+ n                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
% i( c- y6 Y* w% @                        activityspace[2,rows]:=activityspace[1,rows];
0 B4 |# s  D% v                        activityspace[1,rows]:=ct;
5 I% H7 H1 @% Q9 X                        mark:=true;
* m. ]* h6 U0 J, a7 x5 Y                        else*/
                        y_max:=y_max+dy;
  }1 M6 F& r- z8 Z- o% e% T- F                        dx:=0;
8 V6 N% P5 l2 n" H$ f/ i; h9 S                dy:=0;
. A: T7 [+ v- {$ W  z% e1 Y, j                        --end;
4 U) I' b; F- y! F5 d                end;
. z* v3 O2 `& Y& T( i* \! |                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
; M, E1 w2 W: n( t1 ?                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
0 t$ ~1 n' G; u8 T7 G                /*if mark=true then
* @' Y+ V9 m; h# i4 Y1 c2 T                ct:=activityspace[2,rows];
/ k) l: L2 I8 w9 t3 f* u                        activityspace[2,rows]:=activityspace[1,rows];
1 I0 V/ ]) T2 j0 _" \                        activityspace[1,rows]:=ct;
" c+ N" v& g7 o                        end;*/
        next;
        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);
8 Z( M5 s" }8 G5 Q        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$ Q( Q6 K* V1 x       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
# Z) W6 Y, N+ s4 m                                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];
  e  g0 |0 p8 {                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
" Y$ j" b) o! T; U, c- G4 p        lines:=0;
7 K# [& c* }! d+ G7 d        partstable.delete;
1 ^7 h" t3 @" N' [" W4 r       
. f- j4 `9 u. j3 v* w: W% ?) b        for i:=1 to number_of_machine loop
( Q; V# E8 F1 f! `5 {                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
. ^7 P1 k) L. E& w* K* ]  ~                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
7 P! }( h  |% H. x! }0 D; i                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
  V4 s0 p2 X& H- E- y) J2 u! U                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
0 [8 C7 r7 N+ Z                end;
& l2 ]' G! p5 P        next;
9 o' Z. M+ I8 w4 [) h! W" Y+ y# b2 L        machinename:=sprint("M",rows);
4 P# L9 ~7 H- R! ~        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;标识符未知
% Y5 \; T, \5 c- ]! i' c) J8 l" C        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
7 c3 p# h" r# `' |$ f# i        machine.exitctrl:=ref(leave);
       
" A0 X3 I3 Y! f: z  @        bufname:=sprint("BF",rows);
/ e6 W* C$ B5 K1 Q        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;
' F: z) m7 c/ k( ^        buf.proctime:=0;
. e; p7 d6 r# B: \* N' y* A        .materialflow.connector.connect(buf,machine);
) Q' ~; `2 y3 L. _       
) K6 h& q* z  m* }9 p( y        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);
next;
. O( y' k! {: R$ t+ H' ?end;
0 ~/ A% N$ U& Z* |