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

zooey

is
  g$ F4 F, {+ Q, J1 i' B        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
% d+ S8 b3 e: f7 Z/ [( ?3 d: l% C    machinename,bufname:string;
% @2 q$ ~9 v  s( J% }7 e$ m6 Y5 u    machine,buf:object;
0 B3 D, t. z$ ^$ C  r. H! ?2 edo
        current.eraselayer(1);
5 N  ^) H) H) q4 y4 X" o$ c; ~- b       
8 p7 x8 ?) K, k+ h2 l1 k+ \* v) `4 b        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
! ~4 c( l3 r9 w) [6 P* A  @                        print"yes";
. P5 p! j* o3 s* A& ]" d                when 32 then
" O2 E! u- A1 y) U  `5 C4 ^                        print"no";
3 C0 _) F) [  U, `( f                else
; B6 N$ H) o6 u2 ^# U6 g8 H9 J                        print"cancel";
                end;
                eventcontroller.stop;
" f& u8 m* ]; [0 U5 i        end;
  W; J; V& F9 Q: D       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
3 w, b0 U2 B$ ^+ m3 u$ {2 M        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
1 p) |9 v7 B' E                buf.deleteobject;
- ^. H% c" b- I! K$ x; ^        end;
3 |( g% |2 W( p! A/ [$ F) k+ _# L        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
; j' z: h$ J4 |; B( v  I; [                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 _2 t1 w+ B9 Y3 z3 E1 U$ o& a                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
, L9 [- |/ S( D4 Q3 F( d                then
                        /*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];
' V) X6 D9 z4 L                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
% _7 P5 U# T, j2 I                        activityspace[1,rows]:=ct;
) n/ J9 U- O  |, N# `+ K$ \                        mark:=true;
                        else*/
! I7 D, U' J$ _$ v9 a                        y_max:=y_max+dy;
" j1 S9 R5 x0 e; t4 a: C  S                        dx:=0;
4 X% u  A- @3 Y7 y4 V                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
: d, V' k: I2 c: U; @; ], d                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
' ~% ]: Q+ S8 U0 t8 F            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
: C" J6 b$ O& \                end;
) |# D+ x7 U6 y1 z! m  x+ Q6 A                dx:=dx+activityspace[1,rows];
' N& G$ }/ R, `# v+ B                /*if mark=true then
0 a- J( }; x2 z2 Q) [, |) I! [9 j                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
5 O7 x# {! c  ^' E        next;
        y_max:=y_max+dy;
9 l% t, {! P% q4 ]9 A        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);
       
: V! O# |' N8 n1 u        rows:=0;
" J) f/ P; X7 p        lines:=0;
        for i:=1 to number_of_machine loop
5 ?6 A# @( h* s2 V                for j:=1 to number_of_machine loop
. ~* P: T& k3 l% Z' Z% l5 X                        if j=i then
6 W0 O7 I$ D! ~' p2 ?8 `                                d_from_to_chart[j,i]:=0;
2 G) d& _& D+ i: z4 R                        else
. c, k( l# i. s9 G6 l5 ^* a/ s( d                                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];
( o# K. ]2 v$ C7 w                                d_from_to_chart[j,i]:=abs(dx-dy);
- q$ n( ~6 ~& O  O3 E                        end;
+ O6 d8 a# C/ Q- I+ w9 N3 f                next;
" r0 D% o8 c: `6 d8 \        next;
       
: m- l; K6 V4 q- t/ }3 ^8 A- K        lines:=0;
        partstable.delete;
; {; d2 g) ~1 i+ ], H8 ?       
4 X7 n# A) \6 V- h; R        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
; ?  y7 u& W# P. h+ S0 p                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
) S5 c* p( o* M* W" ~5 `                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
" ^0 u; {; s) j# y                        partstable[6,lines]:=j;
                end;
        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]);
& y" M% S. Y" R" X) \        machine.name:=machinename;标识符未知
        machine.proctime:=5;
1 |4 n* G' F' \        machine.label:=activityspace[0,rows];
5 b& c  s8 a, {6 W% b9 b4 s5 q        machine.exitctrl:=ref(leave);
       
- W3 h7 M( r- v        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;
: u5 i9 C- \- Y9 o        buf.capacity:=5000;
7 h2 Z- }' M# E( Y, I5 }        buf.proctime:=0;
& J6 W+ Y: s8 y7 Q, S- M/ I9 c        .materialflow.connector.connect(buf,machine);
0 k! h" J! n! M/ h$ U       
        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;
% P  h0 u4 U7 a$ j+ s- |6 C) N4 F. eend;