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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
) p6 t! ]5 x* A. f$ A, c& O+ o    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
" l; t, o( m: c4 u* {/ A1 |$ H                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
% m% M, k( ~) n" n                end;
$ Y( k* v! u& n8 J, _0 h* \                eventcontroller.stop;
' j  X7 B' K, h- A& G        end;
# [  U' w# L( e# [9 t9 m       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
' N0 U# Q7 s0 ]  ?, E7 l8 \7 Z        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
# @* i% `- R  a9 n( R. i& h$ q  V7 p        if existsobject(bufname) then
* z( X- D1 T$ m0 H                buf:=str_to_obj(bufname);
                buf.deleteobject;
) g2 c# [% i# X. I. R        end;
. k8 E2 N; n/ a- z        next;
: ~' ?+ W  f' g8 s6 ^       
        dx:=0;
( k$ |5 v* |& ^' G% a        dy:=0;
2 h- _& s. M$ D) h- K        for i:=1 to number_of_machine loop
# E- n! g* ^( D                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
) R' _& Z& r" z! S, U8 N  _1 O/ w                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
  e9 R; y+ y: j  y& f8 R4 @. q                        and activityspace[1,rows]<(1.05*y_max) then
$ ]% G$ D' v# V5 w, f2 S                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ {2 X5 d+ a8 q7 S7 W) K                        activityspace[1,rows]:=ct;
. Y  W7 N+ U; t" E- }                        mark:=true;
# M7 `  a6 D7 S. L9 A                        else*/
" y. X5 }; s; H                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
, c' r* l: Q' j                        --end;
; U3 J. s- n  m9 B8 z6 Y5 M                end;
$ k# v; d! _' B) W1 |) x4 O! @3 G* B                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
  i, s5 m- `% B                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        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);
& `  k5 m5 L9 E1 I7 q        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);
       
. K% P) a( b' U+ Y; U& E7 K        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
5 h2 [8 L: h* V1 P                                d_from_to_chart[j,i]:=0;
                        else
1 h' f) I3 L  k- e( v                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
1 t6 u$ u; N. R5 I9 W                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
- c& Y2 M9 a5 }                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
: R2 @, K2 U1 O0 c/ |7 _                next;
        next;
       
        lines:=0;
5 l9 Y, t% J7 G" V4 l# v/ O        partstable.delete;
% V( Q* m- y# `6 a0 u: n) s       
# k  @: t. N$ w# j+ l& d        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! h7 p4 y. B' D& h! Z0 S, F  o                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
; N6 I0 b% o$ c$ D                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
+ _& L" g1 I! ~6 r, ^                        partstable[5,lines]:=rows;
, j4 M  b6 n2 N5 x                        partstable[6,lines]:=j;
                end;
) o5 H; [6 ^; m/ W        next;
, ~7 P5 E8 k/ N6 S3 g  C+ z        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]);
        machine.name:=machinename;标识符未知
2 s7 b! C- R5 L$ e        machine.proctime:=5;
) R0 O" _* v! {6 o! ]        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
1 x. P. a3 N+ V2 t        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]);
- p$ c  \8 [$ M. G  |0 S        buf.name:=bufname;
        buf.capacity:=5000;
) P1 o( C4 [7 E& n6 H; T; Z) s        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
4 {- _1 Z% ]1 L/ P* i       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
2 z8 \  V) r" z! @: tdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
! ~" d9 J: l' b1 U) \current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
7 N1 y4 C8 k# p* ?8 T: I7 send;