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

zooey

is
( V0 L; T% m& t% y        mark:boolean;
4 O4 R9 l7 z/ P) u. O        dx,dy,ct:real;
6 D( M! ~+ A3 O5 L% m7 Y& L7 I    i,j,rows,lines:integer;
    machinename,bufname:string;
  R- B( n  k. L9 w# }* E    machine,buf:object;
; i# M2 N9 C9 b% B# mdo
        current.eraselayer(1);
( B3 ^/ `6 C% i' D       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
$ o- c  X9 V0 D                when 16 then
3 V. E( \" o) _                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
% q( k: b2 X/ @3 ]" w: a' |) w. s  G        end;
  f" S- s" B" `) N: o6 u1 n. q0 K+ F       
9 x( B. l2 g/ ]        for i:=1 to number_of_machine loop
5 l$ q8 M8 r- w( p; Z        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
: h. L' w3 S8 I        bufname:=sprint("BF",i);
8 U; q/ L4 }6 Q2 D  V        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
( c6 L& }9 a) g4 q                buf.deleteobject;
( \3 _, S- Z+ l0 ], @- m        end;
        next;
! H# W; u) l5 m1 d0 r; ~) v       
        dx:=0;
( I* P: H/ g8 u        dy:=0;
% h2 U9 B* d6 u2 g" T- I. I. H+ D$ @        for i:=1 to number_of_machine loop
3 [1 O0 m, X7 \- `6 [- a& |                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; z/ P" {' s1 A! q9 B6 P' v                --mark:=false;
" q7 N) `+ l) F+ W0 o( {  {2 V                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
7 f# C* A3 O' O                        and activityspace[1,rows]<(1.05*y_max) then
( [; C  f" ^4 G  `4 R                        print activityspace[1,rows],",",activityspace[2,rows];
$ G- _4 [+ x$ H) E                        ct:=activityspace[2,rows];
- d9 Z$ e/ I0 q5 M- E- e                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
8 x: O( l! v; r$ S                        mark:=true;
/ X1 l% h$ P* e1 D5 r                        else*/
7 C2 V% N& z! ]* I8 O/ _+ z                        y_max:=y_max+dy;
  \$ {# p! y" H# v$ s/ k) e& x- L9 [                        dx:=0;
8 Z  [8 |  `- J, u                dy:=0;
                        --end;
, K9 o# Q/ A& W3 p; n                end;
$ j6 y' o' f2 o( e                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;
8 u7 |8 d. r6 f) a% }- w2 Y, I" f            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
2 I, @" ?/ E2 ^# P# h3 r                end;
% z' }6 l3 Y( z* ?                dx:=dx+activityspace[1,rows];
6 i6 \1 m; |8 o$ l% L$ K& E# D                /*if mark=true then
* \& {/ v+ ]1 D# Q& [$ ~                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
6 B. W" [1 c, x7 b4 Y( X                        activityspace[1,rows]:=ct;
                        end;*/
- W3 C( T! |7 `+ r        next;
% _/ H- i0 q& m        y_max:=y_max+dy;
$ C- }/ J# O" ^) x; S, j, m        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);
1 _) p1 [# ?$ P) o       
        rows:=0;
        lines:=0;
$ R7 n8 Z) Q3 j- c8 G- d2 v9 a        for i:=1 to number_of_machine loop
- r- S7 B- t! r                for j:=1 to number_of_machine loop
' l5 t, x* v/ }2 k& k% I                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
. p' e! T+ t' v+ g                                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 k6 \& G: E; K                        end;
9 j+ i! P5 }* V' g/ D                next;
        next;
       
5 J1 k- ]# _( T) i0 U0 R  j' r        lines:=0;
        partstable.delete;
( o" i4 ~- G! H  @/ V( z1 d5 B: S- t       
        for i:=1 to number_of_machine loop
% }- z! g# ]* `  [                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: Y) }, G0 d5 F+ U; w) N                machinesequence[2,i]:=rows;
, v4 ~0 m3 v3 f" t                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
7 e/ e1 G2 @1 ]                        lines:=lines+1;
! T% g& W) L: Y; V3 F                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
, P0 g3 b( t6 U8 B0 U5 l                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
& m( @5 I! r- x$ V7 |                end;
" N% }8 n5 j5 f8 P, O% g        next;
        machinename:=sprint("M",rows);
. p. Q+ V- x- N        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]);
- H( m% T" k3 _3 Z        machine.name:=machinename;标识符未知
3 q1 J: N2 \' J7 z: @        machine.proctime:=5;
; k- e6 D( v) Y% G* X2 ?3 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]);
# [* P9 ]& k, M" E& I# I6 E        buf.name:=bufname;
, ?  s" H4 V4 B% C- Q        buf.capacity:=5000;
        buf.proctime:=0;
/ W( u$ `8 f' X" Y4 x  F+ Q* @) L: |        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
+ O5 I7 X8 ~; }( Vdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
8 e0 z. E+ K" R0 ?- Tcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
5 ]' [, g8 m# Vnext;
9 ]) _* \+ f6 n, Z( Z# E8 R5 ~end;
2 r8 r( B* H7 }( `4 D