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

zooey

is
! W7 d+ k/ F" o        mark:boolean;
7 E  Q2 _% ?# Z* `4 Q7 y* J        dx,dy,ct:real;
9 C7 Q/ M$ U) Y! g$ }    i,j,rows,lines:integer;
    machinename,bufname:string;
( a1 m) v8 d& f    machine,buf:object;
7 z- Y4 F8 b* c& R0 I' L7 Z+ tdo
        current.eraselayer(1);
       
& k. [6 }0 X, m- g, J) d        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
* v. j, ]2 Q2 G) W                        print"no";
                else
. q4 j$ H( ?5 r                        print"cancel";
1 l% k; O) y1 q* m                end;
2 T, ~3 L0 E) X# `4 b) i! d2 E9 N                eventcontroller.stop;
        end;
       
% |/ l" K- d# E        for i:=1 to number_of_machine loop
4 E, e" o  E1 ?$ I& G        machinename:=sprint("M",i);
% C4 |# G- t" K: p! P6 f& ?2 \        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
/ E$ ?1 C8 Q2 N0 M" T        bufname:=sprint("BF",i);
        if existsobject(bufname) then
% ?6 d* {4 O# E- B8 X  G$ A) h                buf:=str_to_obj(bufname);
1 H% v; f9 h2 W4 P0 u2 h                buf.deleteobject;
        end;
        next;
) N$ z0 U0 i  Z# z1 q& W* b* q: Y( O       
        dx:=0;
- T# |9 w# o$ s3 d' @9 c        dy:=0;
        for i:=1 to number_of_machine loop
1 d6 V' a: M( e) u; k                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) \) E% q% A" j+ z                --mark:=false;
9 m$ F8 s. L( K! S* d& f                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
# V9 Q8 a5 S1 m: `                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
1 ~! d+ d+ A! J9 a9 w5 {, r  I0 D                        and activityspace[1,rows]<(1.05*y_max) then
, V5 s* e" D: t                        print activityspace[1,rows],",",activityspace[2,rows];
3 }7 F5 m! S$ f$ `" _                        ct:=activityspace[2,rows];
% X& |: P# ^1 T' l                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
( B, a  \0 f$ N! U                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
3 D, s" J" g$ ^* F. L                dy:=0;
                        --end;
                end;
( \. _2 ?" j/ {% w: ?                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
5 i2 l3 r* _1 x/ L: S3 g                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
  v1 ]3 s% ^- l            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
2 a9 K  P; k% A  J4 @                end;
* D; u8 C! f- ]3 y7 z                dx:=dx+activityspace[1,rows];
/ E  P8 V# g3 V; v5 S2 r                /*if mark=true then
4 W5 v+ w9 `6 p0 B$ B                ct:=activityspace[2,rows];
1 e. w9 S, r1 n* W3 c                        activityspace[2,rows]:=activityspace[1,rows];
$ ^! z- H& b5 j- P, `' J' q                        activityspace[1,rows]:=ct;
1 F3 `6 p7 Z$ A; |+ q0 L                        end;*/
4 a$ ]- s4 S% o        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);
' Y3 z& S# G5 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);
6 K" L/ f. Q& }- I3 K4 Z( P* d1 A       
% c) a# Y  G' _# a+ `, ?        rows:=0;
  _) B, ~, ~3 b8 y: m- x3 Q8 f        lines:=0;
        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;
/ x, p" K5 X$ P) h  l. P+ R                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
; Q% o" T  I0 Y. C                                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;
5 u3 J5 {5 f- x: }" I; K3 Y        next;
6 R, ~4 ~! x2 d       
        lines:=0;
& I. _! ~, k- o        partstable.delete;
       
        for i:=1 to number_of_machine loop
9 _1 X# R3 N) W                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
  |9 h" `7 c' Z4 C+ f                for j:=1 to number_of_machine loop
  B+ l  F$ P3 m4 J- m                        if w_from_to_chart[j,rows]>0 then
- K% e+ y3 `3 z. i" @7 c9 a                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
. t+ R4 m* a# X; y+ t; ^                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
: U; j1 ?; y! ^! M: \9 x$ C- G3 s                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
* H; ~" I% V. z. }                end;
" {, P& X) ~/ l! m# p) o; P        next;
        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]);
- G1 L  u; Y' _1 @- n! L, w0 x8 K        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
1 j: K+ Z6 b6 g; q" [        machine.exitctrl:=ref(leave);
       
        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]);
2 p* F$ k; h. r, p8 T        buf.name:=bufname;
        buf.capacity:=5000;
* N7 Q' f; K5 H, \: ~2 a        buf.proctime:=0;
4 Z$ ^$ Q# d/ w1 j' ]        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
; @- C8 w4 B0 Y( N: wdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
0 p$ v6 p" g: ~! p& p, mcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
8 @6 R# ^& s5 _/ e/ W9 Xnext;
. G* i. _) V+ C. Q9 ]1 Pend;