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

zooey

is
6 M0 {6 d4 k: F        mark:boolean;
$ ^, @7 Q' Y) ^        dx,dy,ct:real;
    i,j,rows,lines:integer;
* I0 v* \5 d! v, v- I7 C    machinename,bufname:string;
+ W- B5 d1 y; g7 _6 C" \    machine,buf:object;
/ j' [8 d% r% s# ldo
        current.eraselayer(1);
- Y% I- C* \7 ]# E% x       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
3 C( }7 o" `( f                when 16 then
4 z; F( R8 D! u0 _3 @0 X8 }2 @                        print"yes";
                when 32 then
! J& |. p4 X# q0 n) d( t                        print"no";
3 b7 _8 @* k9 l: h- g                else
9 }1 V( H/ ?# B8 U9 Z                        print"cancel";
- |" x8 b; Y' A, T8 u3 p  P1 Z$ I7 S; ?                end;
) d2 S8 h0 T$ N. t3 u. @; f                eventcontroller.stop;
$ M* y. O( M* N7 x1 |; M        end;
       
        for i:=1 to number_of_machine loop
2 w7 F- H) u$ R3 P8 }        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
5 q- c0 U, u# Q                machine.deleteobject;
        end;
- }* [+ p" c# O* U, g/ ~1 h' k" b        bufname:=sprint("BF",i);
) o+ r) g6 a1 `7 Z        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
: o! g. K- j, ^2 o# q# {8 d        dx:=0;
) c. I1 Q7 z5 m8 R; O: F        dy:=0;
        for i:=1 to number_of_machine loop
2 K& H- U" W* |$ b* \/ E$ G* T                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
3 f2 M6 f) i# m) V                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
# B9 R) j8 x7 S: `; x) Z# w                        /*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];
                        activityspace[2,rows]:=activityspace[1,rows];
8 ]  `1 C2 p, K2 x0 G. D* \                        activityspace[1,rows]:=ct;
* S$ Q! ~2 ]% J2 V0 Z                        mark:=true;
                        else*/
# |9 X# g9 }; Z3 j; W# M                        y_max:=y_max+dy;
- L3 q3 D* q4 ^9 k$ {7 ^2 x                        dx:=0;
! L/ {( X! C: U; y                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;
3 M+ b6 ?3 m. y9 \. b            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
' Z7 m, k# v2 h  J# v                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
: \6 `6 G  t9 F7 C0 J3 Q. ?                ct:=activityspace[2,rows];
* `5 j+ ~! b! U# K                        activityspace[2,rows]:=activityspace[1,rows];
7 \3 ^5 O7 @1 ^5 g9 E                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
' @. i5 L  ]% M) E; V* X        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);
3 _& E+ u' C. e- y3 F  W5 x        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);
. x5 G2 P  S* Q+ L$ I7 n       
5 D, l: e& t5 e" W: D8 C        rows:=0;
# L  l6 N. i: r        lines:=0;
+ n( _3 g5 T7 W0 F. q        for i:=1 to number_of_machine loop
# d' R* ^8 C* q5 M" V9 X6 P/ I                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
2 [& z6 p8 l( w7 o+ L                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
$ |, C  s; N5 M0 h' c& _5 \0 o8 H& h                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
$ }$ K7 `" S' y$ J       
        lines:=0;
        partstable.delete;
$ F$ m4 V5 A6 I- p& b0 q! e       
, y0 Z8 b( g5 a( N' r/ S        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
9 }' g/ P& x! v& V( E/ l7 `                for j:=1 to number_of_machine loop
- Y7 @5 ^% U/ {                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
- r4 p. Y, K& M3 L                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
6 e7 ~/ w. }: M                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
# |, Q5 S9 |! a+ Y" D& F7 j                        partstable[5,lines]:=rows;
0 Y/ Y( m, e; ~6 e/ B                        partstable[6,lines]:=j;
                end;
        next;
: K+ K( J/ S( i        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;标识符未知
        machine.proctime:=5;
% B  H  c1 ~. H3 [- n) m        machine.label:=activityspace[0,rows];
4 V; ^, @5 D: a        machine.exitctrl:=ref(leave);
0 S- W+ \+ m' m2 ?2 B8 t9 e       
$ {4 S; i: f& o; q- C, y/ Z* v        bufname:=sprint("BF",rows);
1 @1 g9 i2 p% o' X        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]);
; C3 n$ ^* U" Q( E        buf.name:=bufname;
7 I$ I* `2 T9 v0 O3 S5 n        buf.capacity:=5000;
) K: g' m' v" V2 u5 y7 E' K  z. }        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
6 N; g; \. y6 N9 X+ b: l       
0 f# N1 ^' w+ i1 L        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);
8 C# X) ^; C; f- I% A  o3 Enext;
* q* u# b6 a, Z4 v% Send;
/ ?# G3 {1 T- T' C$ j6 p3 q