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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
1 r( L* P5 b# E9 p    i,j,rows,lines:integer;
5 d" B. |3 R# Z  H  j    machinename,bufname:string;
0 H6 L4 x, E: U- v6 H# ?    machine,buf:object;
do
: k8 A/ F3 H/ I        current.eraselayer(1);
       
        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
; ~  s) Y/ W% t/ Y' G% G                        print"yes";
/ @) w% p% z7 I4 ?" Z                when 32 then
                        print"no";
                else
0 u9 t; ^1 E: l3 I+ T% ]                        print"cancel";
# S& d/ L6 H7 a, h7 d  M# I5 m1 v                end;
                eventcontroller.stop;
: m) }8 {  a' S; ]/ k* L! \        end;
       
        for i:=1 to number_of_machine loop
. A& L, j( i2 B* D) X2 T        machinename:=sprint("M",i);
2 X3 |; a4 m- H        if existsobject(machinename) then
) \& B2 Z& C9 [7 b0 F                machine:=str_to_obj(machinename);
4 P1 f) r6 x& V" l. N# G# d& N* N                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
5 _) L* Q$ J2 Y5 S* D( ]* e4 ~        if existsobject(bufname) then
& M! ?' P+ C# d: E0 Z+ Z" s. N3 g                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
/ B3 o/ a' p3 i( u- N4 t        next;
       
        dx:=0;
+ ]- B9 `; P$ l' q4 w        dy:=0;
" C2 z6 h$ h1 N4 c2 c0 Q( X        for i:=1 to number_of_machine loop
5 k" k1 ]* O$ v# P2 @% a                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
7 Z( d# f1 x' b# P8 {                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
3 T/ _, s, t* A                        activityspace[2,rows]:=activityspace[1,rows];
7 U8 G+ v3 \3 C9 s: D& Y                        activityspace[1,rows]:=ct;
$ d' U0 K0 D' y. e% o                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
7 q5 @; ?  C4 x* \  W                        dx:=0;
                dy:=0;
$ Q3 ^8 F8 l& w, M9 p8 S" }9 w                        --end;
" S' t# i# M/ m/ ]$ m7 x3 O                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;
' Q+ z- C% d% U1 y            if activityspace[2,rows]>dy then
* {1 H+ u0 e9 z0 c5 F7 Y                        dy:=activityspace[2,rows];
                end;
3 ~6 Y0 o" d% b$ Y5 [+ i3 R" R  K/ N                dx:=dx+activityspace[1,rows];
                /*if mark=true then
9 e) `4 @4 h, |8 w' T                ct:=activityspace[2,rows];
. |- `: O- c  o8 P9 Y; f                        activityspace[2,rows]:=activityspace[1,rows];
0 K; B4 ], D) x. w4 J                        activityspace[1,rows]:=ct;
$ o: I! O) }0 \$ [: H! c! s                        end;*/
1 i5 F  @1 p1 _& f5 u$ k3 D        next;
! P# b/ L  x+ A* A4 R% W, y7 V: x5 W        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);
       
7 l, y1 z' C* [+ J        rows:=0;
, c/ E3 f, F% r        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
' P' a/ T/ v) V0 H/ a: a1 ~                        if j=i then
                                d_from_to_chart[j,i]:=0;
" F9 d: I' E. N" ^! l  B) [# d. T                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
& I+ a0 E, H% T! n2 n                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
2 A4 M+ G: ~6 ~6 _  S# {                                d_from_to_chart[j,i]:=abs(dx-dy);
/ A% `6 v; ^7 H                        end;
* d6 {6 m/ v9 [5 H                next;
6 o' j" n+ d  [; Y& D* W        next;
# Z  n; C) C6 E% O! e3 J9 z       
. P9 @! H- O( x, ~$ E        lines:=0;
3 r$ o7 e9 n1 r6 ^" c6 k        partstable.delete;
       
; P$ X( ?1 B7 N        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* g+ K' m9 |- @% r/ V$ s  G" I1 D+ K6 b                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
' B  i% Z$ b, r                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
0 f- X& K8 D3 I. I                        partstable[2,lines]:=w_from_to_chart[j,rows];
  n9 N" x; W+ G0 ]9 V% g3 v, c7 k' f                        partstable[3,lines]:=sprint("parts");
; i& ]: G5 i+ B7 S: E' h2 R: @& o                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
1 Q4 a# A8 G" n        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
5 ^( l2 [8 }8 E% L5 z1 P, ^        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]);
        buf.name:=bufname;
$ `$ T& C" T! o        buf.capacity:=5000;
5 q" V2 l5 S; f" E" n) L8 g        buf.proctime:=0;
% u: ?) d9 \5 b  W4 M        .materialflow.connector.connect(buf,machine);
7 G/ v9 O" J4 ?( e1 j+ T: v       
) [* J/ {) z4 ^. {4 a2 ]7 O& ^        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;
( U( b) v1 z. D# X7 h' scurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
& o$ M' t' u2 E2 eend;