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

zooey

is
: ], ?. Q$ C( l" {/ x        mark:boolean;
- |! |! N* d* x2 S' M' h$ M        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
' M* a/ c# w3 Y$ u1 k! C    machine,buf:object;
do
8 }6 w+ D% U1 s; f$ s  R3 Q        current.eraselayer(1);
) Z2 C- `6 V3 L  K" ^, |2 c" K* M: f       
# j3 M: w  p. j; F1 o0 h7 ?        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
  c2 q7 Q$ g0 C% Q8 m/ ^- v                inspect messagebox("设施数目不对！请核查...,",50,13)
( M4 l# W9 R) L/ ]8 ^                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
- _5 q, I& F# z2 t; V4 Y                eventcontroller.stop;
9 R. y4 V1 c1 i9 j4 u        end;
5 a' M% V8 D8 H! |( G9 ~3 Z, D3 J; C       
: p) r1 O* w8 D; q        for i:=1 to number_of_machine loop
# G7 |+ R# o! V% E2 L. X0 n        machinename:=sprint("M",i);
        if existsobject(machinename) then
1 w1 z+ [& z* V- u                machine:=str_to_obj(machinename);
6 t: y" G& o* h8 L: D                machine.deleteobject;
- s" \2 a5 U: e# p. N6 O        end;
        bufname:=sprint("BF",i);
0 t! v. y+ W! s        if existsobject(bufname) then
! E6 s8 X9 k; D. D. o3 f                buf:=str_to_obj(bufname);
/ ^/ y- B  _7 p9 S2 y% `                buf.deleteobject;
' [$ H' u4 A0 |! Q8 J3 i- y- F        end;
2 W0 l1 j  z; f2 S7 `: ~        next;
       
+ W) u9 h2 w; Y+ I; ]        dx:=0;
+ J& b! h  n6 U& H! ?7 u        dy:=0;
  Y4 U7 j5 p! F6 P8 i        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 c0 b9 \) i* ]9 f" r                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
2 v1 t' D$ A5 z9 O/ {% \                        print activityspace[1,rows],",",activityspace[2,rows];
1 y' U) l4 O; Q4 a9 ~4 c+ Q  i. w                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
3 j; `2 c# n9 i                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
$ T3 L+ {& ]' q( u/ `8 H; C                        dx:=0;
( m7 n: e& ~6 p7 l9 ], C$ f3 L                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
% R8 r2 Y+ K& v/ n                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
) [: p& W$ \) c/ v% w% b            if activityspace[2,rows]>dy then
$ ^. T+ E. F+ k6 W6 D                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
6 N8 ~& \" s7 x: K                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
4 H4 z6 A1 g$ l( f$ P/ I3 x3 M                        activityspace[1,rows]:=ct;
                        end;*/
        next;
5 J" D; ^$ U' m# c2 Z        y_max:=y_max+dy;
  C8 ^6 x6 G9 T6 l# |& A' y        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);
       
& }3 l1 {+ }( D% R2 h7 V1 B        rows:=0;
/ ^, ~6 S4 X; m, `7 u' \        lines:=0;
- \1 k: \3 ^) G7 ~5 b; h        for i:=1 to number_of_machine loop
* o* f+ V& I/ o8 g2 }. G                for j:=1 to number_of_machine loop
7 j* P* T' c" j7 B7 Q                        if j=i then
- P0 ~. E8 O3 v' k                                d_from_to_chart[j,i]:=0;
4 {  ?. x, q4 l' h8 e% ^8 ^6 p                        else
% P! _! U" O4 }# H* w                                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];
0 y1 q  M8 t# V* E" B: f+ x                                d_from_to_chart[j,i]:=abs(dx-dy);
+ R' O0 k' J4 ]) h9 o! U                        end;
2 C8 {3 d/ Y) I$ T6 E4 u  X                next;
        next;
, P% J, C4 b. w7 P# l4 `       
        lines:=0;
# g6 {8 q' ?4 @( v3 C% Z        partstable.delete;
, ^8 X! k/ ]/ [0 c% z) {       
0 J8 `6 t& e. Y        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
, T' `! l: A- @: I6 M% M$ f                        if w_from_to_chart[j,rows]>0 then
# g, E3 w- E, O! r, @$ `                        lines:=lines+1;
9 |: ?; w( Z: r% `% J3 v) v( D) ~0 Y* B3 P: H                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
- ?2 u2 W! P$ [2 J, p9 i1 K                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
. t" H4 d- N% F                        partstable[5,lines]:=rows;
# W7 H. L$ F6 i$ \" g                        partstable[6,lines]:=j;
                end;
3 s2 ?- p: x3 V! u$ x+ v2 o0 W/ C4 }        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;标识符未知
2 G1 F. O4 H! P+ i) e! J3 _8 a        machine.proctime:=5;
/ M# o; ^1 P5 _1 e% n- [        machine.label:=activityspace[0,rows];
/ y7 @0 D; H, B        machine.exitctrl:=ref(leave);
8 c. P! _: f% l8 X3 e6 q: j       
        bufname:=sprint("BF",rows);
! L2 O- b3 e6 h& x  I$ X& [        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]);
3 h& H. d% d7 K. v# v        buf.name:=bufname;
        buf.capacity:=5000;
% r/ B  }1 V2 v) G& f) Q0 `* I        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
$ ^- V5 r6 a/ Q& q3 t8 ^       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
+ X: I- R- E' _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);
% S4 h% q1 Z5 T( vnext;
end;
8 L) U1 X1 Y+ N; v& b# ]5 V