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

zooey

is
* B0 B$ ?, w9 W3 }7 f# q        mark:boolean;
        dx,dy,ct:real;
: J! y) |; I- P& @    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
" q! w' r. ~& b5 ^& N6 l2 Y  l       
- k5 E2 h* ~; K4 B8 ~        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
# v# u$ X( H7 l7 g! ^! n. _/ x                        print"yes";
                when 32 then
5 _( X* e4 N6 o" }8 d! v, Z                        print"no";
" u0 f1 w. h$ a, ?                else
% T$ l' M* z0 n# g3 _                        print"cancel";
                end;
( q4 W$ a( d  [, R8 j9 N* |3 C0 W                eventcontroller.stop;
8 E8 c* M# J+ _, w        end;
; u9 ]0 s& D( Z( z) J" i/ T( {       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
' v. b3 P+ [, D                machine:=str_to_obj(machinename);
7 o0 S4 _* ~% ]( t: ^& ^                machine.deleteobject;
( C, A5 I  ~% [4 x$ P        end;
+ ^+ C" [0 t: I2 n* y9 X* k        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
, L: S6 I& ?3 I5 `& x# A6 Q* r                buf.deleteobject;
        end;
4 a' g5 x" h& O. n* ]0 J% P5 ~3 `        next;
' x/ \% M$ J3 D  @. t+ O- i       
        dx:=0;
! I8 v2 |: b2 D1 A  J! J- k. \9 U6 T        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% K) ]' R: t; K+ M3 p                --mark:=false;
5 t1 p0 w# Q" p6 ~; O. C# j                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
) i4 R+ ]4 u, Q8 A- {( s4 G                        print activityspace[1,rows],",",activityspace[2,rows];
, r" V9 o4 l) X9 Y/ S                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
/ `" j0 w1 `/ e6 n- D8 w. s                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
! Q5 l6 u3 }& y1 w; C' Y- W  |9 ~% v                        y_max:=y_max+dy;
                        dx:=0;
- {1 e$ C& h/ L+ p                dy:=0;
                        --end;
                end;
) O* z6 f+ k& x  n. ]% X2 ]) |  l                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
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
. |# t  y) q) l: T) q( I; O  ?$ t6 |! ^                ct:=activityspace[2,rows];
8 A$ x: L- n$ r) A; y                        activityspace[2,rows]:=activityspace[1,rows];
5 X5 W8 x7 `: k! L* K2 P* p                        activityspace[1,rows]:=ct;
                        end;*/
        next;
5 L2 @3 l5 m5 [9 M$ l3 g        y_max:=y_max+dy;
; L* Z2 J8 d  v$ q- e        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);
- Z7 }# |4 M" B9 O        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);
; l4 T7 `7 s) _, F: a# l       
+ O8 m7 e$ M2 m* X8 B. b( @        rows:=0;
        lines:=0;
7 c) [8 C+ F# E! S' [1 S        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
' A0 M" }5 T3 D' j. T+ v3 j                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
) d# S6 c" m+ c                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
6 C7 f9 m: ?& @! Y/ |  ~                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
' Z6 b# n9 i  n& V        lines:=0;
$ I, p7 ~; {. W/ X0 L1 V        partstable.delete;
6 Q3 \. w  T0 T) W9 h       
5 Z& `3 G% m+ E6 \( A        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 b! Q, _  ]/ j9 V# S. ~, L                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
4 N& y  V. N1 i& ?6 [                        if w_from_to_chart[j,rows]>0 then
$ b2 e1 l$ c0 \# @                        lines:=lines+1;
  z! F! O0 L, @                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
' T- F6 T2 l8 b4 ^                        partstable[2,lines]:=w_from_to_chart[j,rows];
4 _, l' ?) l' v7 u4 \; h6 g                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
0 S  o5 w! l1 a& U+ e        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]);
* M' q1 T. E; g) I; k0 G2 X" J        machine.name:=machinename;标识符未知
2 D4 ?& q, ?- E5 K: S' s9 T        machine.proctime:=5;
/ i" ~- r3 B4 L9 J2 H" C# q        machine.label:=activityspace[0,rows];
3 F. n7 K- m( T$ k        machine.exitctrl:=ref(leave);
& S. e% T, M5 C* I8 ^       
" S9 ^: m* K9 h% e        bufname:=sprint("BF",rows);
* p5 P4 I( M8 O( |; c+ _        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;
. x. F6 i) y) s0 i( c+ G        buf.capacity:=5000;
% U6 ]) C6 u) U( Y) S0 Y        buf.proctime:=0;
: }! k& Y2 |4 h        .materialflow.connector.connect(buf,machine);
       
; L- V( Z% n( P: o9 H        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;
* h; L% [! m$ f% ucurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
; q  P* a. |0 p/ \8 \end;