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

zooey

is
6 T5 @8 a. f2 i) n        mark:boolean;
        dx,dy,ct:real;
. l# r3 [6 q+ Y. @    i,j,rows,lines:integer;
3 V  ]6 w' m8 s    machinename,bufname:string;
, Y. d; `1 E. M9 L1 J7 ~* q0 U; k    machine,buf:object;
3 ?' {! b5 ^5 |' udo
        current.eraselayer(1);
+ X- H' C$ s1 f& i) H7 r* T       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
: |6 G" z6 h, _( W" @5 E3 S                when 16 then
                        print"yes";
2 Z* {: o1 f0 E4 Y3 |& E                when 32 then
* S# t9 y+ A+ M+ ~                        print"no";
; i! l7 V& O. K: x9 l                else
; d/ m+ G* p0 k                        print"cancel";
                end;
$ H) S5 {8 I* D                eventcontroller.stop;
0 S1 u0 ~/ L. S( y# i- B' {1 z5 h, A        end;
) o5 `. `0 P# U       
        for i:=1 to number_of_machine loop
9 F% d+ x, U& C6 T# R        machinename:=sprint("M",i);
        if existsobject(machinename) then
5 G3 I: R8 _2 o+ B/ G1 ~% M. _% @                machine:=str_to_obj(machinename);
  R( {1 \1 W' e1 w: N                machine.deleteobject;
9 X* F8 m$ ^% I+ `$ l8 `/ M& v        end;
$ `* C  o  e" v0 M8 f2 i/ g# l        bufname:=sprint("BF",i);
' Q5 u2 w/ D* e) G+ }        if existsobject(bufname) then
7 \- {6 c( e! [6 ~3 d                buf:=str_to_obj(bufname);
                buf.deleteobject;
. N1 u4 b4 ~( a% Q: }: Z        end;
3 M; D' p; T) U% [4 F% A        next;
' f4 Q3 T0 \* A* y7 ^       
' H# W5 |/ D9 y+ I) n% ~* i( o7 u) E        dx:=0;
* B; E' j3 P/ W4 y4 K        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 ~: r/ _& W4 v0 B                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
# q# Q/ |. R; C  |& a                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];
8 D5 U/ q2 ]( R                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
) ]* v$ K" a4 ^3 ^: x                        y_max:=y_max+dy;
" `. W% w8 d) q. ]1 G9 C6 k! h                        dx:=0;
2 e: W# v# M5 s* G$ Y7 m                dy:=0;
1 l& f' p( h& x/ {6 v# H" j' l                        --end;
# h6 y7 C1 M+ e2 Q! w- @0 J                end;
                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;
+ g& H$ K9 h+ p4 S' C            if activityspace[2,rows]>dy then
% J( J3 q2 |) _! ?+ K. X& q, X                        dy:=activityspace[2,rows];
                end;
- ]3 g: U3 o  a" w: y. F                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
4 X0 X5 \( A4 M/ N9 A5 `: \                        activityspace[2,rows]:=activityspace[1,rows];
1 s  }. }: [* y  g7 J9 o1 h                        activityspace[1,rows]:=ct;
                        end;*/
& _- J6 X) ?/ P( O        next;
* Y( p' t$ ]5 o. L' V& [        y_max:=y_max+dy;
; t  E& W6 k# `  V: f. Z5 o# J  @        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);
       
        rows:=0;
        lines:=0;
; Z! L1 g$ K* X( ]# `' Z6 c: e        for i:=1 to number_of_machine loop
  H7 h$ z6 w! x/ f) v                for j:=1 to number_of_machine loop
: }% Y7 A2 J- l                        if j=i then
' O+ o$ X6 N  M& c                                d_from_to_chart[j,i]:=0;
/ H" S/ B& d0 F& L8 ~2 o7 ]+ s                        else
  M% S% O1 w2 n' A. u# l2 ~0 t                                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];
) T! t* o8 w- y6 p/ _% g                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
9 Z/ K- \* k" r; f5 e/ E# A) z                next;
        next;
- F5 ~5 @; Q: q  Q* @8 Y! {       
7 i/ z( @8 W9 {2 p9 ~: V$ s        lines:=0;
        partstable.delete;
3 |1 B( ~8 k7 W       
. O, w) _' [1 w/ l2 A* Y2 t6 p        for i:=1 to number_of_machine loop
* m) n2 T: H7 G% s, W$ C8 ?6 A                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
; Q" D! W- X3 ~$ S0 K                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
5 V0 Q& O/ j( O. s$ M4 D) _                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
( E3 U) t9 G6 ~/ J% B+ S$ M                end;
7 T. ^. h" ~- u: A0 @7 `9 \        next;
1 a& F0 G9 w7 E. y+ V        machinename:=sprint("M",rows);
1 k( i7 k; l% C  C; \9 }        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]);
8 e4 }; D5 A2 o8 I, L2 A        machine.name:=machinename;标识符未知
; O& \) a$ u- P9 [5 o3 C        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
6 [9 y8 O5 x  f0 d7 b8 L( {$ {" o       
9 m+ ~9 \4 q; z3 z- {3 p        bufname:=sprint("BF",rows);
6 m3 z. Q1 o. u. `/ J% M        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]);
% l9 m/ X$ C" J% E, M% }* E9 f        buf.name:=bufname;
% O% ]; \9 `; _        buf.capacity:=5000;
, h5 C3 C, u7 I# R. l) g        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
* y0 y" l$ p7 R2 E  `! @, Y# G        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;
$ s5 m: n& T1 D. _# F3 N. |* zcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;