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

zooey

is
# Q: Y. L, \+ E- a        mark:boolean;
& j* }. j1 _0 D. n) \% }        dx,dy,ct:real;
# [3 z" n8 u$ h    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
/ I& F4 C  ^- R2 X$ |do
$ A3 ~" b& O/ F8 b        current.eraselayer(1);
, [6 S/ z8 ?. ]       
4 Z# E: G( G$ I: t- B% ]        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
* W0 d! j# k% z; @                        print"yes";
& l8 [- N% z: l+ K7 A. y                when 32 then
/ Y) q/ P: t( Q/ k9 m                        print"no";
! ^: p# z# T) j, p, g. y6 ~                else
                        print"cancel";
" j6 t0 d1 ^. D) c                end;
                eventcontroller.stop;
        end;
9 i" b# w. y5 ]" Y' s5 J- h       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
( M1 h* ^. ~2 A1 P: O+ B  W. h        if existsobject(machinename) then
- M) c8 k( [* k6 f$ }                machine:=str_to_obj(machinename);
8 L$ r( X: `) `2 W% O( F                machine.deleteobject;
( M; Y( D3 R5 A3 |: U( f        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
, P4 r/ k' U* m; J; f0 l                buf:=str_to_obj(bufname);
, c8 o; [* s" x$ h3 Q( _. ~                buf.deleteobject;
7 A( O. m! G! K8 d        end;
        next;
5 H7 T& J7 }( W% r3 D5 ]9 W" |$ N       
! \4 Z' p( x% J5 b" |* e        dx:=0;
        dy:=0;
0 ?5 s' c& y1 C( E' J# }2 e3 t        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. }, t# _% ?' w- K                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
$ W$ n( n4 Z4 c! W" c                then
/ |6 r  Q+ m/ L4 R                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
8 j- `7 w6 m" Z0 r! v% \                        print activityspace[1,rows],",",activityspace[2,rows];
2 z8 Q+ l# W5 _" n3 ]5 L                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ [- v% v  t$ L, R/ @7 P; z                        activityspace[1,rows]:=ct;
                        mark:=true;
$ x6 ~; a* s. S" T! V4 _  Q                        else*/
# H4 n5 D/ M' p- A                        y_max:=y_max+dy;
9 r6 h: R. s2 g2 D  L/ C                        dx:=0;
8 s* q7 ?" G" G/ v                dy:=0;
# U, U' E) u9 p& O1 E                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
% ~6 x8 c: x( O- N                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
& t' t# |  n! o) ^- M            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
& z' ]2 y0 a! C- a0 S+ O( o5 E- C                dx:=dx+activityspace[1,rows];
                /*if mark=true then
6 K5 {4 m; |: T. u6 h                ct:=activityspace[2,rows];
7 q" k: C, m2 C% A- d                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        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);
        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);
       
  w6 U: y# D( c        rows:=0;
" ~+ x/ C$ e4 Y+ B5 C+ T  z        lines:=0;
; S. @- \) `9 ?. r' `- K( \) s        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
; ]$ I2 ~/ g0 ]" b& U6 j$ q4 @                        if j=i then
# U) m& c! P6 {  |' h: Y                                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];
5 d# H( g: n1 T2 L4 m" U                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
* B& U, W( _& `2 Z                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
5 u5 D  `) D- Q0 [( f/ D        next;
* [0 o" j3 F/ B5 ~7 N2 q6 J       
& D8 M+ {6 q0 l& F4 e        lines:=0;
% g' c" s; P1 a! p        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
$ [: |9 c3 V. ^2 t+ x' ?4 q                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
( s  b4 n6 G" A1 ?* N% G! b/ c- G                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
# m& d% |% L" ?3 w$ P, V+ L5 K                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
( K- y, E/ f0 k' q8 ~: g                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
, n/ W1 a4 j7 }) ]                end;
        next;
# A' U& Y. y. D. s        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]);
& N9 ]8 \2 ?; G: t. q        machine.name:=machinename;标识符未知
4 t2 O" ?) b3 Y8 D; B7 x: q, d        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        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]);
0 ?' v  K- |8 Q$ C        buf.name:=bufname;
; A9 b! [6 p% K# R3 s) o3 X        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
2 u; b( {1 i& Z+ x- x# d       
        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;
! o  }- h3 l9 y5 u2 a5 V4 Mcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
. K# U6 c- z, ?; @# e( J0 [next;
  H& S; j0 A, Z) Vend;