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

zooey

is
        mark:boolean;
3 u: g# e3 m2 J8 j. s" N        dx,dy,ct:real;
; q7 q( A+ ]0 G  t  F. f( E    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
3 S8 N/ t5 g- s2 B9 C& Q) I: j       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
) u, F% `3 V" u. V, F9 Z& k                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
' c& t  B; H, k                        print"yes";
$ r9 x% Q5 m% Y7 j" E9 Y- ]# l                when 32 then
" L. V, R% S* V2 }6 x8 u8 [! ^& B: `  w                        print"no";
, f& [# }0 }) m+ j0 K                else
. @" y% j( j* l- r" P                        print"cancel";
                end;
                eventcontroller.stop;
3 }! d5 I% w! {( s6 D        end;
       
2 F. F! k+ j/ Z+ |        for i:=1 to number_of_machine loop
$ y6 U- A8 g/ K4 `( S  E        machinename:=sprint("M",i);
: C3 j+ U# k1 }        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
1 t4 U2 a( @5 H  d) W2 @; V                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
' A" y1 u2 K( p. |        if existsobject(bufname) then
5 W! }. H  d# R! G                buf:=str_to_obj(bufname);
: ^4 O; w, }4 [& k                buf.deleteobject;
) ]: V, x4 e) Z        end;
2 `( j" k$ t! C  D( b- m0 `; p        next;
       
' _# d0 p* c* A9 c0 I6 Q        dx:=0;
1 i6 h2 L1 C6 V  W; X        dy:=0;
        for i:=1 to number_of_machine loop
, Q7 p, H: @6 e, l5 Q% ?; U0 b; J                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* U9 ^- E! e: {+ x3 _                --mark:=false;
2 F  a0 ~2 [  ]                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
& d$ n0 z3 k2 j3 L* l                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
8 i6 v" x8 B+ L* c) R7 \8 Y% V                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
$ f. @" \- a+ p7 k( d- S- Z! Z3 ~                        ct:=activityspace[2,rows];
! t$ D( v+ c: d                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
4 A8 ?+ {/ r, t3 ^  [: R                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
2 h# x3 P2 @  F# I                        --end;
* I0 X* A- _% U0 _4 A! J                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;
1 {# y( ]3 e: p9 y; o            if activityspace[2,rows]>dy then
* h! s: r/ k7 y7 `/ f# f  |7 c                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
. F' M2 `3 M1 ]                ct:=activityspace[2,rows];
9 a% h% m* c8 [- O- v3 k8 @                        activityspace[2,rows]:=activityspace[1,rows];
3 ?- W+ S6 h6 r                        activityspace[1,rows]:=ct;
. S6 R8 k" o( V0 l0 E                        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);
4 c/ ~9 F5 g3 ]4 A& X. ~% W        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);
       
( R$ n$ y3 l7 |* X* r! T* p% v        rows:=0;
4 `: v) W/ `" F* l0 Z+ a9 t        lines:=0;
        for i:=1 to number_of_machine loop
4 P& @* g# y0 f4 v* n( g# u2 _                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
% ?: H* m5 l! k                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
* y# i6 P% U9 C. k, ^. b: P                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
0 p- H. i$ _% S6 e. c4 l                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
3 B0 G; g, |( s3 j) m  E7 l       
0 Z2 B, l9 v: _7 q* @) N) i        lines:=0;
) O5 ^4 b: j8 Y0 C2 G; s        partstable.delete;
       
        for i:=1 to number_of_machine loop
4 a, I" @" Z" {( Y1 v                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 B4 Q+ n) ~/ F. i                machinesequence[2,i]:=rows;
8 R$ x* K$ p, J- g3 N0 o                for j:=1 to number_of_machine loop
9 c: R0 r, u3 `7 `6 K                        if w_from_to_chart[j,rows]>0 then
; N% X. k5 P. k3 H( z                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
/ @! W  U$ J$ C4 ]$ h; t8 p0 E                        partstable[2,lines]:=w_from_to_chart[j,rows];
2 U; ?8 M. p$ M, N                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
1 |& t* k, b/ l& c( C  J" }        next;
        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]);
* _9 O1 ?  I9 H4 e3 F' f        machine.name:=machinename;标识符未知
2 q4 L* Z% f3 G- X2 [8 q3 J        machine.proctime:=5;
/ M8 L2 Q- j+ q& P' N* l+ R        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
/ U3 V: O. E# t0 R       
        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]);
9 N% y3 y/ r+ @* r: O0 W# f2 \2 G        buf.name:=bufname;
        buf.capacity:=5000;
& |' F1 S$ `# `9 Z        buf.proctime:=0;
1 q; C% Z+ S" g* V        .materialflow.connector.connect(buf,machine);
       
- i. N( b) G5 j# Y1 r: l" S        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);
next;
end;