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

zooey

is
6 {. m1 ~9 y3 Q+ f1 R$ d# o; {7 a# s. G        mark:boolean;
: ~9 q/ A) `' q* U7 o7 I        dx,dy,ct:real;
    i,j,rows,lines:integer;
- s# D* d* P+ m+ X  Y    machinename,bufname:string;
1 h* Y! `2 e5 |8 b" `0 q    machine,buf:object;
, [- `& w; R/ y, q' K9 S* d3 @do
0 d0 F8 @# S" H; Y% _* z2 b        current.eraselayer(1);
       
6 l1 U7 h) A9 w! }; n        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
" Q9 L- M9 z* m1 ?8 u0 O# ?                inspect messagebox("设施数目不对！请核查...,",50,13)
" [' @4 G3 A) M- R- S! w. w                when 16 then
; q5 e% q4 _2 j! F                        print"yes";
                when 32 then
- k# Z6 K9 w$ M) C. y6 C; ~+ z4 B                        print"no";
+ v* U3 D1 f. b1 t6 Z                else
                        print"cancel";
6 R% z3 Z' @3 f5 N                end;
                eventcontroller.stop;
        end;
) `1 L* [. B. G: k) w) ?       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
4 ^) f$ O+ O. Z- _2 e" p        if existsobject(machinename) then
5 b3 ^3 i7 \) E/ M                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
' F; m; Q: g/ c! O* Q  E        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
) j5 f5 E# Z! h0 ]        end;
        next;
       
        dx:=0;
        dy:=0;
5 t/ B# `6 S# r( T( j        for i:=1 to number_of_machine loop
* l% V2 N! Y) j6 N  G                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( M) Z. S/ s1 Z! w2 N                --mark:=false;
2 A+ @( Y: c! b4 K: E$ Z                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
$ V0 G# b4 @$ a' ]4 R9 b0 m1 P$ _                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
: z3 t; q( i" z8 X0 i                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
8 o: e' g* J7 n" u                        activityspace[2,rows]:=activityspace[1,rows];
, Z. a* z/ V' B7 g% N                        activityspace[1,rows]:=ct;
" }% `% y# ^5 \! T) M9 L2 y. J; J                        mark:=true;
3 T5 S' |, w1 f% [+ ?3 \                        else*/
                        y_max:=y_max+dy;
4 c7 H# X: b2 e7 C* ]( R                        dx:=0;
                dy:=0;
                        --end;
                end;
# d' O% {9 G' C; K1 P& }$ e                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
  X5 g  a. J$ Y/ t                        dy:=activityspace[2,rows];
3 g% R1 S5 x9 u- q# W7 O8 `                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
2 v( J0 c9 [' l$ o- t$ _                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
1 P2 u0 ~2 R( b  `" J$ x( }        next;
2 |: Q) E9 E" a, S& r0 {1 Y$ q/ 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);
! S! v, o4 Z% {! {6 @        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);
: K8 l- @( `5 v, ]" {$ f! x       
        rows:=0;
- \  P( a$ r* h5 R; t- U6 q* |        lines:=0;
# K. t  ^1 x* B9 y        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
  B  @5 z) Q+ R$ T( r: X7 r                        if j=i then
& L7 I; z" L) A7 b* C  v" Z                                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];
  F7 a( v; ?. q, @$ M- _# l                                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;
        next;
8 m4 Z4 [) K" G0 K       
3 O3 m+ O6 B4 B4 }, d        lines:=0;
3 {+ r& q) B& i        partstable.delete;
       
        for i:=1 to number_of_machine loop
, p2 z% ]6 A; |) t  k                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
% y8 q7 y" Q6 ^9 Q2 F- P                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
* |. Y, a9 K; b" o" o; P# A                        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");
+ C8 {$ W( C/ i                        partstable[5,lines]:=rows;
  w5 `$ U' d8 `3 Z. i                        partstable[6,lines]:=j;
% u9 I2 Z% A$ G; O) {3 S                end;
& _1 j0 K4 Q: v, t  s8 \        next;
        machinename:=sprint("M",rows);
0 b9 L7 E# d9 Z) T9 l        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]);
( g7 s$ I% v: c$ W! R        machine.name:=machinename;标识符未知
        machine.proctime:=5;
) @* G' m" u5 ?; J5 j        machine.label:=activityspace[0,rows];
5 r( V, a6 b& D1 e" h$ E        machine.exitctrl:=ref(leave);
       
* y8 m2 d' g8 n7 i7 f+ y. D        bufname:=sprint("BF",rows);
9 G! s' `" X/ B& ~0 W9 S0 @4 G        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;
        buf.capacity:=5000;
        buf.proctime:=0;
. S, R& }! V/ X        .materialflow.connector.connect(buf,machine);
" W' A7 B) U( r: x+ [- y4 U( R       
4 Q3 `8 J+ z$ J9 _! s        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
7 \8 |; f; E+ ?5 }! H1 F6 Ady:=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);
2 r* e* r$ T* B5 u3 vnext;
: t! v& i$ `; @: Q$ p8 u& @; Aend;