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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
! N0 a. h* @  T9 j/ ~    machine,buf:object;
) x  o* a/ a1 l3 z8 ^; l4 Vdo
: H7 a0 N3 o# R* X% L# L5 |3 m6 O        current.eraselayer(1);
2 _" d0 Q/ U. t8 g/ j2 h       
3 L! f: p! S) H        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
; E: ^+ f, G7 M# {5 @# R                inspect messagebox("设施数目不对！请核查...,",50,13)
- h9 B. z/ G4 T, r/ G                when 16 then
) _; c% x; B  P. G9 i9 r' H3 n                        print"yes";
                when 32 then
6 c* p" i- e: {5 x4 {: b                        print"no";
/ x) o# Z( n2 w% S% w* C: c9 O                else
. c& }: A) [; Z0 \; P. @                        print"cancel";
                end;
                eventcontroller.stop;
, A* `% j- t* y, x( L& R8 a- e: {        end;
       
        for i:=1 to number_of_machine loop
& J* Y& b, _. ~8 k* h  y        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
2 z( A# u$ g! r: J$ S                machine.deleteobject;
        end;
% f: ~) q0 D# W9 A9 b+ s5 N        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
' W# ?' D" ]9 Q0 S" |& Y6 A1 }                buf.deleteobject;
6 v7 k0 l  o1 ~" V9 i        end;
        next;
       
$ q" A9 \* v3 q        dx:=0;
; Y9 ^; D, E8 J1 i4 x% B9 C        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! R1 S6 e/ v. ]4 Y$ h% v- z+ x6 x                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
  B: s$ r# X! C+ G% H8 G                then
& ~. j7 r( W* g+ \                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
' w* {" {! k. y9 |                        and activityspace[1,rows]<(1.05*y_max) then
( D8 \6 l& \7 K- r# q                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
( l4 ~/ C' M2 S" m                        activityspace[2,rows]:=activityspace[1,rows];
' ~3 \% x) V" R0 C                        activityspace[1,rows]:=ct;
, _4 o) W$ X! }0 v4 T                        mark:=true;
3 r, l. v( C( H  y+ D2 ~: W                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
, _5 R( R: [1 m- N( _. v) M                        --end;
* f1 \1 s# O/ u9 x7 k                end;
9 n; V  I+ p6 A3 f% @6 h, Q                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;
: p/ c) V% n9 f! a! S/ l- C            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
- ~# [  y' q$ v8 ]                /*if mark=true then
; I. k7 Q; i# }( e$ q8 y  \" G5 C' z                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
* d/ v/ H! f; a! E        next;
$ y) o: c5 k2 X        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);
2 N0 W( |0 b, U2 a! c        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);
       
) ?& D" ]$ {3 Q0 J9 D        rows:=0;
        lines:=0;
- x. s- b* a3 |7 @        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
  O* m" R1 ?4 P$ ]3 J                        if j=i then
: i; e0 M3 P' J0 J, C, [                                d_from_to_chart[j,i]:=0;
                        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];
3 {, K4 ?. V  K: v                                d_from_to_chart[j,i]:=abs(dx-dy);
" m( f$ d/ h# R, f$ Z$ F2 Z                        end;
3 x/ ]4 r. C3 }2 L                next;
+ w  L0 d) V& S# F3 g9 n        next;
; s9 M* M# u- j1 ~% t       
; w5 J! u4 I# V! x4 S1 b( L/ `$ h) ?        lines:=0;
        partstable.delete;
# v$ ?4 d* v/ ^* D       
4 v- m- K4 e4 A  F- v7 {" {5 `" e        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 D1 `) i) r$ D9 _                machinesequence[2,i]:=rows;
- p* {+ J+ H, @$ I. S& G* a                for j:=1 to number_of_machine loop
9 a& f+ [' N# X4 |7 T( s; t* i                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
8 t* t6 K8 Q0 |: v  E  @                end;
/ F: _2 C; C& d; d( n9 D. X1 Q        next;
" p9 `+ F" |% ?  b7 M' g2 B7 W        machinename:=sprint("M",rows);
% t4 i" A2 j" U6 Y4 @        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]);
' n+ g- p. Z. \$ L/ z% T2 [+ K        machine.name:=machinename;标识符未知
7 f5 Z; m" n% J, \3 }- M8 `        machine.proctime:=5;
! t# a! ?" Q2 Y9 r' B, `  I( C        machine.label:=activityspace[0,rows];
6 F; P& t% T) U) p. p        machine.exitctrl:=ref(leave);
& C1 i" Y  {% K: H) r       
        bufname:=sprint("BF",rows);
6 P2 K8 W" b6 j7 @- `        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;
$ y. D; A# H; r: Z& R2 q5 m        buf.capacity:=5000;
% a9 _8 F8 q0 f% B1 V% ~! y6 L( }        buf.proctime:=0;
! ]! @7 c6 j+ j        .materialflow.connector.connect(buf,machine);
+ @, |/ |: [, j; V       
        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;
' W% u4 G9 R) a+ x: H1 mcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;