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

zooey

is
, f" |; s+ d; J$ N# x- x        mark:boolean;
        dx,dy,ct:real;
1 A# T2 O2 @# s0 @    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
# t- T) g2 N  t5 r' c. \        current.eraselayer(1);
       
0 K3 s* ~/ z1 N" y# _+ p8 W        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
5 D8 p) w% J- t; [                inspect messagebox("设施数目不对！请核查...,",50,13)
7 x. ^/ O/ c. _3 Z  Q                when 16 then
$ f7 X1 E8 v+ m) L) }# g( t, ~* G" ~1 t                        print"yes";
                when 32 then
$ i' ^4 f* ~; b$ Z                        print"no";
                else
% v0 z2 Z  N, F$ a5 s& T                        print"cancel";
, P: _; s* J4 m1 p: k                end;
' a6 `3 \: z$ r3 j! b                eventcontroller.stop;
        end;
, ?8 [1 C0 Q$ k0 |- H: Z- V+ C       
/ ?9 E+ v$ }% B2 k& t        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
1 N+ Y2 b# w9 E3 T        if existsobject(machinename) then
, r; t  A& J. B# H# z6 T; y# K                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
( P( ]( c. j+ e, z7 q, M2 Z                buf:=str_to_obj(bufname);
                buf.deleteobject;
: z( C; [( }* S) U" T) }        end;
: ]1 Y: [4 k$ Q; Q4 s# y0 A; |+ _        next;
4 r8 V- C4 q- |2 M6 G+ c6 R       
1 [& L2 ^& O$ O5 G# r5 b        dx:=0;
  ?* a0 n1 l2 y* O$ D3 v* R        dy:=0;
' T* B" g" C$ |# s- P) s( N6 q        for i:=1 to number_of_machine loop
- @6 X. T$ A. a  ]6 T7 I' I                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, }% v0 w0 n" x9 j$ i8 D- o                --mark:=false;
9 c+ \4 A- o/ R$ l* U                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
; N% p  c8 h- K( _% O$ B                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
. i5 T5 [% E3 y. E' C; G# H                        and activityspace[1,rows]<(1.05*y_max) then
) v1 J; S: H; Z! z* }* L3 @0 G                        print activityspace[1,rows],",",activityspace[2,rows];
0 T( T) g" I: G) X2 q- G                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
0 q9 l7 K( L& w/ Q                        activityspace[1,rows]:=ct;
0 j' [, E. v( H! V                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
5 O) t0 D' w1 z8 G' J; J# I                        dx:=0;
( ^# m$ C0 y/ ^/ q8 a: v. e8 Z. P                dy:=0;
                        --end;
                end;
4 r+ \" Z) E/ M1 |' D                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
) X* ~  Z8 c$ W# s+ x* o5 L                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
1 P: M1 H. P4 y3 @  ?3 `                        dy:=activityspace[2,rows];
1 E2 F8 _7 j) S+ R                end;
8 u$ W6 W4 O' {6 G6 F' D; g/ G                dx:=dx+activityspace[1,rows];
                /*if mark=true then
# [1 x( K9 }( K                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
6 l. J' C4 o+ Z* W, i                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
- w: [8 [; G2 w, z0 k* ]- 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);
. r, ^' |0 L1 b" N' O9 ^, L       
( z: @4 Z0 w. |! @9 a        rows:=0;
$ ^3 o( ]% @# r        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
- F0 X& q9 M# k* v                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
. L8 Z5 D0 r, o$ E  T$ o                                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);
                        end;
9 G, a& u: a( p. `. W# b                next;
! r- i  w1 w  O# {; k6 c& ~        next;
/ ~, f" Y% v. @: ~% F4 l- M       
        lines:=0;
  c. F% D4 P/ O4 a8 D0 z# P" k5 m        partstable.delete;
       
        for i:=1 to number_of_machine loop
' X) N5 G. g9 h* \- {                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# Z2 {* P/ J9 X5 I                machinesequence[2,i]:=rows;
* e5 p# p' L" c) N                for j:=1 to number_of_machine loop
. w2 K8 ]; I* D  h' B/ {+ ?6 u, d2 ^                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
! \! E  B; j* @' m; Y* i  H; n                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
1 N' |% [0 ?5 T  \- ^: a. e                        partstable[2,lines]:=w_from_to_chart[j,rows];
& ^$ @8 ~$ R7 z) T( g) r  I' \                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
" z% `' [* s7 J$ I1 |                        partstable[6,lines]:=j;
                end;
        next;
( B5 {: t: d7 c' S; d2 ^; ~        machinename:=sprint("M",rows);
/ \3 E* P/ m7 v0 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]);
- F1 b. ^1 N9 [4 ^) S& h        machine.name:=machinename;标识符未知
& o: W0 N$ K9 T* C* b# z5 i( e8 R- X        machine.proctime:=5;
9 b  i/ y, i$ U7 F7 c        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
" w4 X- Y9 \) V! V! y        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]);
. l2 a! i5 d6 g; p9 A3 b        buf.name:=bufname;
9 r/ w& J; m& s4 [        buf.capacity:=5000;
+ |0 k* t: |' K% L7 }        buf.proctime:=0;
: _2 [! z9 p- _7 A! Z0 j2 H* g+ W        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
8 P4 v7 v9 [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;
# L) V  e: x8 m& }end;