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

zooey

is
7 u3 m- _5 r0 o; L9 G" p        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
; T& F' A: Y0 ?9 ~* I6 d" z2 v/ I    machine,buf:object;
/ a+ ]4 p# f6 c0 ldo
( f. J$ L) |- S! E. [9 D: `        current.eraselayer(1);
- M/ c, _& b- F  \, {4 T       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
) b0 S7 W, k* B8 B: O: y9 m                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
7 n# ]3 f; L' Y                        print"cancel";
                end;
/ Z2 n- m. M+ G% l                eventcontroller.stop;
3 d) L! v& |: ~        end;
( b1 T' O6 y2 s. k8 c       
        for i:=1 to number_of_machine loop
7 P5 F( J, V% m3 u& N) ]        machinename:=sprint("M",i);
        if existsobject(machinename) then
; K! a9 p( |. _0 Z9 b  c                machine:=str_to_obj(machinename);
% G/ {2 j. W" {: }* M                machine.deleteobject;
( a. u  h9 ~6 l9 e, @        end;
        bufname:=sprint("BF",i);
7 Q7 ~" J* U- v  n& \" S        if existsobject(bufname) then
# b& g! K3 ?, _( B2 u# v8 }- `                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
$ _8 p! v7 w! t. ~  ^        next;
3 t, I' u4 w  b8 ~1 X. ?4 j3 O       
1 z/ q/ m% D, \- U/ t  \        dx:=0;
. s7 |  q% k) |! [% @3 d+ n        dy:=0;
) r/ z5 g5 X7 Q% O        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
3 b  `4 `" i* G$ J% Q: U4 d5 g                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
  x$ \' J8 R5 w: }: B  {/ ^% X                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];
0 }4 H& |7 g% h  p) h/ }; X                        ct:=activityspace[2,rows];
6 n" C3 J' q% y. T" x* c& ^1 x) P                        activityspace[2,rows]:=activityspace[1,rows];
8 \' ?2 v/ G/ B7 a                        activityspace[1,rows]:=ct;
$ P; @, ~$ H! @1 l. A. p                        mark:=true;
                        else*/
, \& V3 [' U8 m* V& x                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
# Q; ^' p# j$ @! l7 s6 ?, B                        --end;
                end;
/ ~( J  ^; K1 r  D* W! V) P: k                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
6 X. F& S3 M5 Q" E                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
1 ~; |5 q  B- f/ D                        dy:=activityspace[2,rows];
                end;
' ?4 }1 d- t9 q: i/ D                dx:=dx+activityspace[1,rows];
, C: C3 m& x2 f0 X4 g- a" w* S                /*if mark=true then
* A, S3 Y( K& t" V- X! o* H! e                ct:=activityspace[2,rows];
1 ^4 o. A$ ]" K8 W# t, [" b+ j5 F                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
* e; A5 U! o1 t0 n$ r8 b                        end;*/
$ e3 R" _6 @* S        next;
9 C' \, o& i$ s% ?8 f3 P        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);
+ U' ?" C- [# x% E- C        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);
       
* X* F& \$ b& @7 Y        rows:=0;
4 a) P/ i( R2 a        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
2 i7 i3 P- l8 M( u+ G- [  k                                d_from_to_chart[j,i]:=0;
! e* A! o- j" R5 a9 {  o7 P                        else
; F7 F8 F7 f2 r  @* l: l                                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];
! a( @9 W$ y: V9 m# \, i7 N' V                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
3 O/ h! I, T# K' h' l        next;
; `6 k9 Y3 c5 N" I# a       
        lines:=0;
        partstable.delete;
       
2 _! Y/ `4 a, R  v2 {; Y        for i:=1 to number_of_machine loop
) N( i" a, T7 e; O% A+ J9 ?" V                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
, F' G' M! C) C5 [& |' N2 D# L9 P                for j:=1 to number_of_machine loop
7 w, U( q, Q0 n0 J                        if w_from_to_chart[j,rows]>0 then
' X: t+ p  S# A% V" Z                        lines:=lines+1;
" J4 t& f# q! G. }                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
0 \  |8 J& O, F9 i/ Q                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
4 X: ^9 t4 `' r7 i                end;
) P$ H1 d' x* Q8 Z! f        next;
. U; I; d' @3 ]9 H) @! f        machinename:=sprint("M",rows);
% B2 N$ t  i3 {8 ~7 ?        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;标识符未知
$ Z. T- V7 r( h- J        machine.proctime:=5;
& F9 u# ~; s& d: V3 T. P" @& q5 ^0 A        machine.label:=activityspace[0,rows];
7 ?. U/ U. t. }$ u% w7 c. i( [9 K* {        machine.exitctrl:=ref(leave);
1 G* h" {, I) [' a) R: w/ z, C& 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;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
5 @5 h) e8 ]6 }! p        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
4 f6 L+ M$ r! I7 F. U+ N8 ddy:=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);
# ^5 e8 m( g2 \6 m# `9 Nnext;
5 ]: K9 t- g. N. Jend;