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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
1 D5 c$ k8 l/ j6 V. X+ t* G& f    machinename,bufname:string;
2 v8 ?9 b  u! f; L* z# W    machine,buf:object;
) [7 a& A4 B% d; qdo
        current.eraselayer(1);
( t" w: e+ q9 p) x  B; v       
/ P. d' z3 N2 y% ?; l        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
$ z$ A0 W" J0 s                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
0 |8 N6 e0 k  U' d) ?                        print"yes";
3 i! L  E# T. \                when 32 then
                        print"no";
$ X/ x2 ^; k! @. n( m/ t2 n                else
& m1 A7 e7 U8 E! U$ V) l                        print"cancel";
) \9 m  U$ Z2 P( Y8 o                end;
- X; s# G7 @4 }3 {- Y5 ^1 L3 [5 o                eventcontroller.stop;
        end;
( w  R2 X! L( x       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
3 X, I  L1 v1 q$ ~) W        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
8 b1 U& ?* V8 r/ q                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
' ~9 ]6 X0 j# Y7 A8 J        next;
( y9 j- @* N; V! Q7 X1 H: g4 A       
1 D/ q+ l8 l, B6 ^9 G: D        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
9 D* {; @4 X, z- b7 f                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
+ j! y3 }$ Y9 j( x                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
4 t! b$ X- Q+ G# v6 `7 A8 s6 a                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
% L( f- [- L5 s) W* t% ]. h' Y                        mark:=true;
8 g3 B( u" }! M                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
& t6 |7 V# w6 y+ N5 X3 B6 ]" R                        --end;
# v# a' C* j2 N$ s                end;
! d" }) E2 ^" n- k, U8 K                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
) T: |( i5 j, [" Y1 I" G6 |                        dy:=activityspace[2,rows];
                end;
, g+ \! D1 w6 d/ _* o( \                dx:=dx+activityspace[1,rows];
3 r6 C; T, |" s9 A                /*if mark=true then
                ct:=activityspace[2,rows];
, v( R% t# w6 l1 M                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
9 d6 p% Z9 L3 O        y_max:=y_max+dy;
! c" a& v- b" x  O        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);
) \2 p0 t& G: i* F        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);
" P6 g# Q" s0 V/ Z) s8 }, z) H       
% O1 u/ T, n1 b7 Y, q        rows:=0;
# ^0 Z( L5 F4 Y  o        lines:=0;
        for i:=1 to number_of_machine loop
5 L+ o9 L8 B9 q% E$ Z: T, H  M$ E                for j:=1 to number_of_machine loop
; T& L* X# D0 `5 K; }                        if j=i then
7 O* h8 d1 z6 z8 B* a+ E                                d_from_to_chart[j,i]:=0;
' T) k6 v5 I* c* g                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
$ U1 W8 h( U7 s+ H5 M                                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;
/ Z" v7 }) l4 O# o( v                next;
# T' G- h! {! v  ?7 Z8 ]        next;
* p, t7 e* j2 E3 p1 b8 O       
) F( k- Q+ k5 ?6 U, _6 T+ R        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
8 K& L/ |+ w* f; k                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
! j- f: u/ U2 ]& O" R                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
- z; M% @; ^  ^                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
; ^2 C( V+ E2 h; Q7 H1 g                end;
% h6 e0 k$ \9 A2 x        next;
. I0 h# t( I; o( h2 Y4 e) A* K/ H+ [( p        machinename:=sprint("M",rows);
- s' }7 w. e& R& J        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;
5 C, G$ o5 c0 a2 O' L        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]);
+ [, R( \3 @" s6 n        buf.name:=bufname;
7 |5 S, r, B6 L( [        buf.capacity:=5000;
        buf.proctime:=0;
# O0 ]: P5 D# `! z8 d" d        .materialflow.connector.connect(buf,machine);
6 L" {3 S! z0 A1 E# [       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
' e" \% @6 B% h  Jdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
- f& P. ~: D  e# k8 t- O& Y( Lcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;