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

zooey

is
' k# Z# y6 c  u0 L3 o$ u8 w$ B- b+ s        mark:boolean;
        dx,dy,ct:real;
9 ^+ t( i- x! s. Y% |, q1 P9 Q    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
% M3 s# \, F! T5 g" kdo
        current.eraselayer(1);
% S0 l% G9 v* L/ t+ U       
4 k. K# F/ \$ n/ R        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
1 Y6 R6 B8 H+ d                when 16 then
                        print"yes";
                when 32 then
                        print"no";
8 Q1 w7 M% A" _5 r6 _2 ?* f) j                else
6 y0 ^9 [8 f# O* ~                        print"cancel";
1 R- `) S, B1 T- v2 d: W/ t                end;
- u7 j: u7 L, g, \! F- `3 H7 y  S+ H                eventcontroller.stop;
$ `2 N/ k! Y; @+ j        end;
       
        for i:=1 to number_of_machine loop
6 t+ D! S* |! W3 C& _        machinename:=sprint("M",i);
3 [' O9 d+ G8 k! i- R5 {* Q% W/ Z        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
5 v6 m* S* o, s                machine.deleteobject;
        end;
. q2 P* O) N$ g$ q4 b. y+ F9 A# @        bufname:=sprint("BF",i);
; Q0 I. k  B, i8 `$ V7 u        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
8 m" o6 v/ x% Z. K9 R                buf.deleteobject;
        end;
        next;
& S* |: p  z: |6 W       
        dx:=0;
6 b3 c  e9 }3 t, i, r# [. Y        dy:=0;
3 D7 N0 A; U+ j3 p3 J1 ^        for i:=1 to number_of_machine loop
( g4 \( d7 f) }' ^2 k                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 c" ^# D5 }: U3 y" e                --mark:=false;
- k; q0 ?+ J( L$ ^                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
  }- {* i, E# o) N4 d, Z- x) j                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
% Z. B* a4 H' ~) U                        print activityspace[1,rows],",",activityspace[2,rows];
# p- I; I4 x8 I" c: P$ r& C7 g" W' d                        ct:=activityspace[2,rows];
5 w* K/ _/ F$ t5 i: n                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
9 ?+ b1 l" t) ~: B9 r; k                        else*/
/ d0 s; V0 t7 f                        y_max:=y_max+dy;
                        dx:=0;
) ^: g( r8 ]) ?- M, h2 d' x! l                dy:=0;
                        --end;
  U# v- C$ C2 a$ J                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;
            if activityspace[2,rows]>dy then
6 K' P) T3 g- ], g. f                        dy:=activityspace[2,rows];
2 t4 U9 ?! W" L+ U8 E                end;
* D7 w7 v' u  t) T                dx:=dx+activityspace[1,rows];
( X9 {  I% f: u1 q2 o; C9 U( u5 m                /*if mark=true then
4 c+ Z7 b# U* ?6 ^" y6 v                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
. Y- ^: r: ~2 X9 {2 ^2 C4 ^                        activityspace[1,rows]:=ct;
& q! U  s% j2 _+ ^  a. g                        end;*/
( ?* M% `( k; u) y- T        next;
        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);
( g5 i, H0 s5 Q8 z' R, }: ~        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 g* b4 [! U. X0 N" M# F       
        rows:=0;
: \0 A" Y; E3 p- h8 j* E        lines:=0;
7 t1 r4 a" c7 K        for i:=1 to number_of_machine loop
7 H* Q6 R. K3 d' J! s                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
' O0 H" A0 F; H  F6 S2 U                        else
                                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;
                next;
% g3 F( `: [) C5 P( f. o        next;
' d6 ~% Z0 R+ S( V) l       
. k( v/ x  l1 j& ~! O: T2 S' v        lines:=0;
$ `8 g9 C+ V& Y2 m# T        partstable.delete;
       
        for i:=1 to number_of_machine loop
# _! J, \# K: ]' }( K                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
; @9 ^5 M6 }. r" N2 Q2 z                        if w_from_to_chart[j,rows]>0 then
. k  E- E" v: h& z2 V                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
0 |7 {6 K; I' c) j5 q: N4 k' Y4 I, z                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
( D' }* Y( }: n1 r        machinename:=sprint("M",rows);
, s. O5 J. X* X( @        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]);
8 M  D( N3 O" C6 u        machine.name:=machinename;标识符未知
  X2 c7 `& h/ d        machine.proctime:=5;
. x8 A3 L( i9 v. S+ ]! V; T2 A" P$ j        machine.label:=activityspace[0,rows];
; C, o' P( A! V! {2 _        machine.exitctrl:=ref(leave);
       
  q. t6 }1 j) E# l* c5 K/ E        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]);
5 j1 ^& d: }8 B1 A$ @' v        buf.name:=bufname;
7 `( a6 q3 g2 ]* a1 Z0 w. b        buf.capacity:=5000;
/ f/ u. a, o; m! b  @& Y        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
$ r* p1 A! v/ n9 \; Y        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
& d  E9 c4 G4 Q* e' h7 K/ f4 d. Kdy:=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);
, i& r; o: Z1 x' u) |0 q, Onext;
3 M) ~& n$ M5 J# X2 Cend;
8 |7 R; c1 O4 v8 A/ z* [% D' M