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

zooey

is
        mark:boolean;
$ X5 I1 y7 V5 f7 ]( M; W        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    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
9 L" y) s  d7 S  y3 T2 n2 N; R                inspect messagebox("设施数目不对！请核查...,",50,13)
/ [6 y2 \) Q2 u  y  G4 G                when 16 then
                        print"yes";
, h8 P+ ^" h. i% f                when 32 then
/ R' y2 x! o4 H. g                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
/ m- u% x, E9 D/ W; n        for i:=1 to number_of_machine loop
4 N, D1 q3 c9 T" E" ]        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
$ M, \1 g$ c" L/ @- ?9 K                machine.deleteobject;
5 e+ l8 ]) Q. m' @* m8 K9 G9 W        end;
# [4 ?6 ]0 H  a1 o8 J        bufname:=sprint("BF",i);
# w8 v, ~7 T- F+ o9 z2 e" e6 p5 t        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
) i: |- Z/ j8 {- `( e                buf.deleteobject;
$ M. ^) r- g* a3 o8 n        end;
6 K! I3 t' v$ D4 Y        next;
       
* [9 v( p# Z5 @2 }        dx:=0;
+ o+ k" G( E% c% v- P5 T) M        dy:=0;
% w/ s/ k" j. N1 N        for i:=1 to number_of_machine loop
5 C8 P' D2 B  A9 s1 f                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& f6 b  _+ r+ Y  H                --mark:=false;
2 S# I; W$ m) M/ Q7 j( \: N                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
' ~- ]% ]# V' F  C( a9 D) q                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
4 k2 n: D# G8 u4 M( [! ~                        print activityspace[1,rows],",",activityspace[2,rows];
7 l; \% l# O$ B' r                        ct:=activityspace[2,rows];
) F3 y, F, z; S2 X                        activityspace[2,rows]:=activityspace[1,rows];
  @; ]) W2 z9 F1 G! s                        activityspace[1,rows]:=ct;
3 [" i  v9 r, R; S                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
8 _) n5 V+ n7 h& z  K; E/ }                        dx:=0;
: [- C) \$ v% D3 f) G! G                dy:=0;
8 i/ O+ t; T$ p1 ~/ u- k                        --end;
                end;
, Z7 G# d5 n- H: R, }4 Y& k                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
1 @8 X( g7 ]' s- s- h9 Q" X$ r                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];
6 L  [& ~9 H+ j4 L) L1 h                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
* G  `" f' u3 v0 k        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);
  i" e: h9 f: U& M  k' ?2 U$ t        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);
4 h. E$ x1 Z1 R3 m       
        rows:=0;
        lines:=0;
1 ^) |& s1 ^3 c  L+ K% e3 F        for i:=1 to number_of_machine loop
0 b- z5 w2 W6 U* g1 _( n+ i                for j:=1 to number_of_machine loop
                        if j=i then
+ v1 Q! |# J3 u, b, Q3 s                                d_from_to_chart[j,i]:=0;
* i# U+ ~7 m: [$ X# t+ ~9 Q) s                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
* ~" c" G# ~2 ~8 W3 e                                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);
; m! B/ m4 V7 Z3 F! O                        end;
0 _) b' R' s5 W% d$ [# h6 A) ]                next;
* w9 B0 Y' K; |$ X2 S        next;
       
' P( h. [; l& Y9 d        lines:=0;
        partstable.delete;
4 C# o& Z% t, Z5 t& w& S/ c       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( h, N& E9 Z7 U% J                machinesequence[2,i]:=rows;
* F2 N5 T4 Q4 ]/ m                for j:=1 to number_of_machine loop
; h- x0 C, m: ?7 L& v                        if w_from_to_chart[j,rows]>0 then
4 i$ y8 H" G% s0 K* ^9 K                        lines:=lines+1;
/ |; c7 D$ l- U& P% r                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
9 \; ^9 v5 |6 F, _. C# w! A( Q% y0 x                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
) E* Q3 n, Y7 n! e  ~" s                        partstable[5,lines]:=rows;
% K4 }+ P: C+ M, m- K# s8 r6 ^2 b# K                        partstable[6,lines]:=j;
0 g# w" j4 t8 B. z                end;
; W+ v5 c* o' f& ]- l+ D( Z# }        next;
2 D& \8 _  }4 }+ I        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]);
: q3 s/ w1 U/ a/ d% K5 E2 O3 O' ~, ^        machine.name:=machinename;标识符未知
9 S$ ?+ s6 s8 B) _        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
+ B3 M% R( C9 i4 ]/ M5 Z- ^        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]);
' A$ m9 g! a% `* s        buf.name:=bufname;
, F: x! L& }4 @4 t2 L        buf.capacity:=5000;
3 E: q% G1 \3 G2 n* d# N7 [        buf.proctime:=0;
% ^& @8 [# o- r% L6 E        .materialflow.connector.connect(buf,machine);
       
8 X  }2 W, a, X' `  F2 a        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
2 x7 t# e$ o  F! G2 o2 p! gdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
' U, X2 k. b1 j6 E& A  ccurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
3 G3 [# c. _0 p" w! `& Bend;
) p( t6 C2 h6 g( E6 }# b$ Q