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

zooey

is
        mark:boolean;
" y& `5 G- b9 F4 {% M        dx,dy,ct:real;
    i,j,rows,lines:integer;
  _. h8 C" J: x' e' \    machinename,bufname:string;
; e* D; C) R. L- t- K    machine,buf:object;
do
        current.eraselayer(1);
" k- ]) a# t0 {* h7 F       
2 v: B$ u8 Q$ ?        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
0 P9 c# S6 \6 p0 n) {, Y                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
- t0 r% Z$ X" e/ r                        print"yes";
% a8 p2 O& l( u- i* C4 @* `                when 32 then
                        print"no";
                else
3 G6 I4 r" q' Q1 N) X+ Y, V                        print"cancel";
' ]6 T- j. Z/ j6 @0 S+ E                end;
9 d  h; V" I) b( ]                eventcontroller.stop;
        end;
+ \( _3 d1 J0 d7 n7 I: ]       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
4 w9 E' `$ C! K* z        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
1 ], ]$ _+ K" c% q# v                machine.deleteobject;
3 I4 e- Y2 V5 U- F        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
' Q) B/ C* P' |5 L9 J1 F" C                buf.deleteobject;
/ [) j9 r( h# r! |1 y        end;
8 l% i) M" V0 {" l! z7 w1 s0 N& }        next;
       
        dx:=0;
: w$ p6 b3 N% ~        dy:=0;
        for i:=1 to number_of_machine loop
4 V$ K( [0 e; g0 T, \# w8 Y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
; r) R3 p5 s* g1 L% c, F/ {                then
1 e4 G( c7 K6 c1 X9 R0 |6 |/ R( o                        /*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];
: I% ^# B: X, g) S                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ o# n3 {* ^  a- T                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
1 u+ A6 S! t! l( \& `                dy:=0;
                        --end;
                end;
: j9 F: D) H2 b$ F7 l6 `                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
0 S4 r& q7 a- g                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
4 d# K6 g$ K( L9 t2 F- C            if activityspace[2,rows]>dy then
& @+ E; Z! X6 f# `1 X5 W                        dy:=activityspace[2,rows];
                end;
) T& H; M8 r2 A8 b, `                dx:=dx+activityspace[1,rows];
                /*if mark=true then
& N7 V9 {) q. _                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
0 r- S2 V4 g! ]6 y3 h( L' c                        activityspace[1,rows]:=ct;
$ w) L2 y: H0 b" m: K6 n) _$ i                        end;*/
: z3 G; m8 e( B7 O9 Y# @: @        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);
; v1 [3 L2 {" Z4 C8 o  L2 B       
. [" l' x# Q" M6 @. g. y3 S& Z        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
3 a) t) j3 Y* M* U+ _, ?1 c                        if j=i then
                                d_from_to_chart[j,i]:=0;
& h/ ?/ I: W! n; A' r, ^4 j4 m                        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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
8 q* s/ T) g! B+ D8 L                        end;
/ ^& O2 w& |- h: M                next;
+ l9 }+ M( U' i" F( j        next;
% @/ j5 ?( b  _       
* I5 U! i' Y: i8 P2 e. s, d        lines:=0;
        partstable.delete;
8 |) A  A: t# G: C, K* W3 Z/ _       
8 j* B" ]2 F* t- o. u        for i:=1 to number_of_machine loop
1 [+ T  O3 g0 P4 [. J2 C                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 b& X3 M! [$ E+ \, T3 w5 I                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
1 s- y4 Y  q% l        machinename:=sprint("M",rows);
) |% U" a4 m. O6 o7 a9 l% b        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]);
% ^1 g' g# q; E5 W, j; M        machine.name:=machinename;标识符未知
        machine.proctime:=5;
% t$ k- `$ Y  I  ~        machine.label:=activityspace[0,rows];
( i8 \/ |5 x- p4 U/ V$ u! C        machine.exitctrl:=ref(leave);
: \5 ?0 S2 o$ S$ V5 z! z' v. s       
        bufname:=sprint("BF",rows);
& t3 n; p5 _; ~2 t/ N: n" S        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]);
* r' p1 C. w$ [# U* S" D+ c        buf.name:=bufname;
        buf.capacity:=5000;
' Q) \- e" B; {5 Q( S* D; }, V* j        buf.proctime:=0;
# u, U6 O" z6 V0 Y5 n1 p( r6 V7 W        .materialflow.connector.connect(buf,machine);
% v8 R3 C. E9 m6 N) B1 ~: U! n4 Y       
1 \3 _' H# `, ?5 O$ `( G  Q) o        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
- Z) t+ Q9 D: `: ^: }3 \& }dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
6 R  @' O4 h' d' X# N& }current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
" @0 E4 V: E3 J7 n6 f; Qnext;
" E$ B( J! [* Pend;