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

zooey

is
1 V5 X. k4 j' Y9 u" A4 M        mark:boolean;
( a( E( X# Z5 }" Z& ]) R$ r        dx,dy,ct:real;
    i,j,rows,lines:integer;
' P- Y( J5 I" |: V1 }. r3 N5 u" t# p& r    machinename,bufname:string;
7 W, T3 W( b( U/ Y8 g    machine,buf:object;
do
        current.eraselayer(1);
  h8 y; }8 H+ T2 T# `       
$ H. L9 t! w6 @6 B3 f        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
# x. W6 @! L* I& ^9 m% m                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
) n4 w9 C2 o3 h, U1 d                        print"yes";
                when 32 then
& w$ }& n' b# p# @" w: p7 y$ s                        print"no";
                else
; |7 `( d4 E! N4 x, T) t/ x                        print"cancel";
                end;
. o& c) Q, T: h; X6 e                eventcontroller.stop;
0 {" ^% ]! q* q) U& Q4 Y        end;
       
. z, A/ h8 _5 y' n* a: I% c        for i:=1 to number_of_machine loop
( T+ e7 A4 A+ g5 i        machinename:=sprint("M",i);
& `, W; r! O0 ~3 @! Q: }! B/ T; y        if existsobject(machinename) then
& m* C  h4 W# [5 T4 @9 j  l. K" Y                machine:=str_to_obj(machinename);
                machine.deleteobject;
. V8 O/ v. Z" ?% D" L& j        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
- H% J* k0 x, g7 F6 {        end;
7 P. c  J$ q- j# ^* E. q        next;
       
, c% M; G. O$ F. b        dx:=0;
0 g4 ?/ L+ u8 \8 v( ]: z        dy:=0;
        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
% ~5 w/ _5 k" W9 g+ I! T8 r; Z                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
7 Z# C/ F+ X- V/ [/ g  `                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
# H, M: m5 {# ^4 @; j8 y1 F7 q                        activityspace[1,rows]:=ct;
                        mark:=true;
3 i/ a; n5 [7 {: G                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
$ b  ?" y' C! n" B; M+ h                dy:=0;
4 d' O2 N4 f8 w$ y3 J! Y                        --end;
5 N8 Z! x9 S, O, f% @2 T                end;
0 y  G$ G+ D' r! b, G, T5 B7 G                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;
9 ~; \* c  [8 {) C0 f: m            if activityspace[2,rows]>dy then
% F4 v- x/ q; K; u                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
# L0 ~; x4 z6 I7 p                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
$ I' n8 t) V; r: l1 e        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 ~) C2 H! b, j1 T1 W+ |9 N( {' S0 J        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);
" l1 \6 c6 ^3 P3 S. R; F       
        rows:=0;
* l7 j2 ]) d  W4 _& l# x1 ]9 V  b! A3 K        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
6 @0 s; u+ \7 D" G/ k( m( Q0 O) c" K                        if j=i then
                                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];
5 A8 u$ ?. w7 R9 F9 }+ {7 S2 O                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
: [* {* g* T+ \' n4 _                next;
        next;
# ]0 f# j8 r- x0 V4 N       
  u! P3 m$ F8 [' h        lines:=0;
. p) z& o% y- l7 i3 D8 G+ b* `: |( Z        partstable.delete;
% @7 Y1 ?- E7 r       
        for i:=1 to number_of_machine loop
/ Y& ?2 H6 s+ a6 c% r" ^                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 t; u4 l) h0 d8 F/ J                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
# ?. [8 E# z+ u* N% L                        if w_from_to_chart[j,rows]>0 then
0 W5 D/ S' H$ G3 r6 {                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
) q! b* L. a" l* h9 [2 w                        partstable[2,lines]:=w_from_to_chart[j,rows];
$ _5 p  f9 \  J5 W) d9 _                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
  h3 F( g+ g- O2 s" v                end;
' p* h6 j" n' e0 e) M% |        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        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]);
        buf.name:=bufname;
# h3 \, `- |7 v& H  x0 b' j; K% E        buf.capacity:=5000;
        buf.proctime:=0;
$ f  n; F9 r# k        .materialflow.connector.connect(buf,machine);
       
        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);
next;
end;