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

zooey

is
* N8 `) A: T' `" D8 y        mark:boolean;
        dx,dy,ct:real;
1 c) V! c5 ?* B4 t, J" t    i,j,rows,lines:integer;
8 S6 _' ?. W0 V    machinename,bufname:string;
* [2 W' d: Q  G' O6 U  f  \# V/ N    machine,buf:object;
do
6 u9 r  v- y# O$ j8 N, [/ z# q/ O        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
& z5 Q9 `" y3 ]3 d( i) N; u4 \9 v9 T                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
3 G/ e  n/ T' `6 H# F                        print"yes";
+ T; h( g0 `* {                when 32 then
: _: @. L# _) \( s                        print"no";
                else
                        print"cancel";
% i, j" A4 `2 w6 e                end;
+ c8 J& a5 m/ z  E9 p                eventcontroller.stop;
! f* |5 M! p7 I' w# \+ n4 [" ^        end;
3 C3 o4 D. x" i2 ~       
        for i:=1 to number_of_machine loop
& K2 A' o: }( E2 g. j        machinename:=sprint("M",i);
& J8 r* m' l/ G        if existsobject(machinename) then
$ d0 k. s# K9 r: U: D                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
2 s: }- ~/ m; b7 i, l/ p1 g        end;
0 a  I# a# G* M  s& v5 M        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
7 o6 Q' h- f* q+ C; w* m                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
: b4 `& ?- b( N  k                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
' K' q; R7 c2 O5 s& N                        and activityspace[1,rows]<(1.05*y_max) then
/ j! J% R/ f$ }  _# S                        print activityspace[1,rows],",",activityspace[2,rows];
) P' Y# b& _2 d- L" |+ h, k                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
  X# o) ~3 i/ h) {6 L* A: K                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
9 s3 [6 ~  F9 ?7 {6 X% F                        dx:=0;
0 ^7 R. Q4 B8 Y. @% z2 y; ~                dy:=0;
                        --end;
0 c1 x5 G( C/ {) l5 Q% G* {% v8 \& ]                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
4 Z8 Y. q+ r; s% F9 P                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
$ z( n; d0 w: N6 W3 ~* k            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
2 p2 z4 q. d! w9 I' }/ E4 _7 ~. _                dx:=dx+activityspace[1,rows];
8 y$ t& }* ]; `0 j$ E                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
3 N. Z) n/ X+ h, f                        end;*/
        next;
, U& w- s* s  R        y_max:=y_max+dy;
/ P' e9 [& x- ^: h( I( d4 j6 Z4 @        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);
0 v3 k2 @. {! [, y3 R5 u        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);
7 h4 V: o/ w2 i1 m2 G       
2 Y4 S* q% r9 q2 `2 k; X4 Z        rows:=0;
2 H; e" F$ \, |+ v* q$ K6 s! x& g        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
$ j+ B6 y8 Q5 L' w8 W2 N4 U' j                        if j=i then
" _% g0 {) U0 c( u* ]                                d_from_to_chart[j,i]:=0;
                        else
7 ?, A5 H5 l- c3 D* m- d                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
6 P$ ]2 ~# e5 ~5 u% g, Y                                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;
       
        lines:=0;
2 F; M6 Y$ W, ?# e- T. g8 X; }        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
+ A4 L' B/ x" [/ u* Q; y                for j:=1 to number_of_machine loop
4 m  m' ]# r0 D, Q                        if w_from_to_chart[j,rows]>0 then
) l4 W7 Z& ^" e! O, ~  u! c( U6 ]6 ?                        lines:=lines+1;
" b4 Z. r% l! k& ~* m2 l7 n  h6 D                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
6 b! v% k: k/ d- P5 @* ^                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
" p5 v: x, e. c  k# u( e8 g                end;
# x% X4 Y3 C/ W  d! V/ W! m: ]$ `& d        next;
) `, i' W7 b3 f; |        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]);
' E4 |; t7 X# P        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
) f5 i4 w- }4 v% J4 C3 |$ _( ?; L        bufname:=sprint("BF",rows);
* X1 K* x9 i' |3 }) l        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;
8 q% [* T* j0 ~2 d  Q        buf.proctime:=0;
1 Q% q# R. d9 c/ Q/ t: T- @% J5 c        .materialflow.connector.connect(buf,machine);
! r9 e; [' E/ k6 v8 f- K       
        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;
+ ?8 m6 v# Q* D4 K  n3 i$ ?current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
' y" s) T  |4 x) h8 D+ c' |next;
end;