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

zooey

is
/ Y$ a& g$ P- D: M2 M9 k7 P5 K        mark:boolean;
        dx,dy,ct:real;
  F' G5 ]" M; F; J4 [1 u    i,j,rows,lines:integer;
2 T8 q4 |1 J6 N  t5 B6 e    machinename,bufname:string;
    machine,buf:object;
do
  v! r6 l- h/ A  V$ T- }        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
$ F9 M, }7 l$ n* ?. y( F                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
4 l! P" q6 y; e9 F0 c                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
* |, n8 |1 J% z. A/ F& \& w       
        for i:=1 to number_of_machine loop
) ]6 U' n5 U3 @" I9 ]$ x! j) S        machinename:=sprint("M",i);
; W( X) s+ R. I" |. T        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
; b  q/ n/ j8 E& r- j7 [1 p& k        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
) ^  P  M) A( f+ T% ]5 z0 k' x" [                buf.deleteobject;
5 B2 ]* `( n# q        end;
: m$ P( d5 G6 ]+ _& u# U  i- \        next;
( z1 `% E7 D# Q       
% k+ e0 Q% b. u; V        dx:=0;
! i& ^1 J8 I- x3 W        dy:=0;
* ?8 G: e2 G4 Y$ v3 ]5 Z        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
; @2 G- z& q$ q8 R  J" c                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
. X! A* z( Q  P+ V* G6 q, Z                then
2 O$ |& e5 H6 U- v& R                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
) k8 x8 \: L7 o) J& R6 d                        and activityspace[1,rows]<(1.05*y_max) then
- A$ }. q  m; V! V% w& j                        print activityspace[1,rows],",",activityspace[2,rows];
2 {: R4 e* ~( g3 m8 w$ e) \' C" z3 V/ l                        ct:=activityspace[2,rows];
1 d4 r; S1 U$ r4 n' P3 c                        activityspace[2,rows]:=activityspace[1,rows];
- w: y& S- P- M/ h                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
8 p6 @9 ^: J; G/ m: @, P9 O! s4 F" [                        dx:=0;
                dy:=0;
                        --end;
                end;
1 @% L! q- A' M; u- ^8 P                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
- n* `, R/ W) Z# f) r, `                        dy:=activityspace[2,rows];
- Z/ K$ a3 M6 q/ P                end;
5 V1 a6 d: P1 ~9 m5 M  v4 W  H                dx:=dx+activityspace[1,rows];
                /*if mark=true then
$ Q2 P$ Y1 O# `8 J2 {! ]                ct:=activityspace[2,rows];
+ W1 T! V5 u8 G  x$ h                        activityspace[2,rows]:=activityspace[1,rows];
+ t5 G: \* p) ?" x: p5 L' S# F                        activityspace[1,rows]:=ct;
8 `3 e3 k5 {% ~, f/ @                        end;*/
        next;
        y_max:=y_max+dy;
/ `3 V& X8 @, x$ v        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);
0 Z7 f# T$ G( L; U       
0 h3 Y/ Z* W5 G) t        rows:=0;
# h# [% [( @6 }6 C" R% z! Q* h        lines:=0;
$ A; o6 Y0 Y4 Z  {9 a        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
9 S6 c0 w: t* ], C6 |5 ^3 n/ T                        if j=i then
" G+ M* C* O1 Y, Y9 b# ?4 X                                d_from_to_chart[j,i]:=0;
                        else
( o. d; S+ y$ R1 k& R4 x                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
8 f& w4 k- g1 G/ W+ B* n) c  _( L                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
' J1 z, c0 N1 u& d9 @  a' B$ I( q/ z                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
8 ^) Z& o9 A9 C1 f% v                next;
        next;
. C% h- F( ?% w8 a2 \1 k       
        lines:=0;
8 E" L5 D7 N2 @! Y' T        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
/ e3 e* B! @" I( D                for j:=1 to number_of_machine loop
; h, p7 m$ R4 m" F. b/ X0 m% i                        if w_from_to_chart[j,rows]>0 then
% p; c2 ~0 ^) _% h* ^9 Z                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
2 G8 Q" W1 J7 N* }4 g" h$ w                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
! Q! I6 _, B; i$ `/ k                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
- i# x+ L2 k0 C9 C: z" W        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 U. N$ e# d) p3 d# r        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
# Y! F+ i5 x5 z2 f" A: k       
        bufname:=sprint("BF",rows);
% o6 K  i0 Z. B0 @* E) ]) t        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;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
, X. e, G' ], ]8 x4 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;
4 X  R' |! N3 y7 f* `5 ^. w7 wcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
" n6 Q7 m( t* m% W9 h2 z$ F