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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
8 W) L, F- g$ \& Y' N* u0 x* B* L$ H    machinename,bufname:string;
- Y: q5 t0 T% Q& Q. ^. l    machine,buf:object;
0 w% F: _/ |. I  J" Tdo
        current.eraselayer(1);
' _' z( {  X9 l  }" G! ]2 I! t       
4 x- g% i1 r7 K* J0 }8 Q        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
# G2 d8 @# \) J% I- r                inspect messagebox("设施数目不对！请核查...,",50,13)
$ n* y2 n8 ]2 ^+ |8 _4 e4 k; Q                when 16 then
$ [" ~7 s/ m7 D& a# A- g8 F; y. T                        print"yes";
                when 32 then
& T; I4 f2 }4 Z$ r3 C                        print"no";
/ k/ g% Y9 l' o' m                else
                        print"cancel";
                end;
, T( R  z! l, N2 {                eventcontroller.stop;
: }' e! C3 {7 \9 d7 x* q  G        end;
# ^2 x$ _+ J! K3 o       
        for i:=1 to number_of_machine loop
; s8 I! |0 K+ k        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
0 p4 o& e& {+ k                machine.deleteobject;
        end;
1 x6 M5 w/ h, k; T1 m0 p        bufname:=sprint("BF",i);
1 T* m: D( y8 s; o2 ^: ?+ Q        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
  ^; k, }' r) h8 |3 S( T       
        dx:=0;
        dy:=0;
. f2 y$ f7 H4 n  F. K3 m        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
% Q2 b' E0 r6 U8 z# h& ?8 K, y                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
5 B9 B# ^0 ^9 ^1 C& H; A3 g                        and activityspace[1,rows]<(1.05*y_max) then
; g: O0 Z- P+ j                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
5 H5 ^7 q1 O; e                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
/ T; T- F& x4 G1 J. Y1 S                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
: O6 R! l, p; g                        --end;
$ F4 \9 T" `, Q8 a& h2 y                end;
3 S. U: p/ a- J. V. i7 `* Q0 [                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
) I) z' e# S' Y6 \; v9 s                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
9 d# A1 U7 O& P9 s+ y" X            if activityspace[2,rows]>dy then
( j( y$ |4 C7 C) q1 \+ M                        dy:=activityspace[2,rows];
                end;
0 C( d: R) R* e3 s( r7 |0 @                dx:=dx+activityspace[1,rows];
                /*if mark=true then
/ A8 o0 [7 ~: o$ f1 B6 \8 f! [                ct:=activityspace[2,rows];
, E: A  C2 [1 }& k1 s6 \                        activityspace[2,rows]:=activityspace[1,rows];
" X1 _" \5 c7 g4 v                        activityspace[1,rows]:=ct;
# B/ c+ L+ m3 V( ]& a                        end;*/
0 _" h8 c8 C$ Q; x1 u        next;
* I+ c2 V8 S3 {! Z, }! ^        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);
        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);
! W3 h' R2 e- J: E6 r: r7 [       
        rows:=0;
% P! `" W2 j  p+ w        lines:=0;
0 x. L% P! Q7 j+ M7 r        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;
                        else
/ }" o8 J0 I/ [; l8 U0 ?                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
+ ]2 @8 X4 C' ]$ {7 {" z  N                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
( U6 Z1 P) x: T/ |# v                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
6 b9 ?) r* I+ e        next;
       
( G- p/ q% @3 P6 T        lines:=0;
        partstable.delete;
       
# J3 h/ [8 {$ @: M$ E3 d        for i:=1 to number_of_machine loop
, o; R& g% n- n* n1 [5 k4 W( F                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 K, y5 m' L& r                machinesequence[2,i]:=rows;
. U( \6 l3 \( {# n                for j:=1 to number_of_machine loop
$ c  T8 y& W- |5 a- r7 T                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
' k9 w3 ~7 U/ {% Q# w7 l0 B                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
$ Y/ d; @& Y0 |9 t  d  a; I% |                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
, F4 @2 t1 I. q5 D. s                        partstable[6,lines]:=j;
3 ^, Q+ q# ?( a                end;
; M1 e" n; f$ n; N8 L5 p- p6 P        next;
( @* g3 A$ l5 F' `+ z        machinename:=sprint("M",rows);
& [/ z) J2 {  K& h& J        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]);
( T% u( H8 v- z( ]3 J+ T8 f+ p+ n        machine.name:=machinename;标识符未知
; [0 t& l) `8 M( P        machine.proctime:=5;
/ k5 u* X) l4 T/ U- f        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
% g) o, u; |  l       
! f1 R" P+ P% l: Y        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]);
* Z5 e6 L  t( b4 l        buf.name:=bufname;
        buf.capacity:=5000;
/ p# W$ v# F3 s- F# p+ q        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
! Y) x. f1 {# l2 o7 W* h       
9 Z! u& ?, C8 D( _- `2 V. y. ^        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
6 K( Z  U5 i* a/ G& r' x0 e5 xnext;
3 u5 I  ^: F) bend;