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

zooey

is
        mark:boolean;
, x/ t5 u$ l6 X: k. G  |        dx,dy,ct:real;
    i,j,rows,lines:integer;
$ f% Q: d( T. y8 Y! y; [5 l    machinename,bufname:string;
7 S; I' W% {$ A5 l1 [0 z3 p( F  X    machine,buf:object;
do
        current.eraselayer(1);
       
& Z9 o& y0 f2 g8 C' v        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
* [/ K- c# T/ Q2 E) D, G) H6 p# I+ @                when 16 then
& N* w3 m* R  U' c) w+ x                        print"yes";
4 U2 ^0 c2 q" E8 {% ^1 Y, ]8 g& I+ O                when 32 then
7 e$ ^( M! E; [& R! i0 r                        print"no";
                else
" w1 b" Y0 @/ L/ s1 C5 p" S! c                        print"cancel";
                end;
% F) z' o- Y* Y, s- }+ \" U/ @1 E                eventcontroller.stop;
        end;
( d# Y1 S/ D) J6 U! {       
( S, ~# M& _0 x/ K' {5 {        for i:=1 to number_of_machine loop
7 @6 V) p( |4 I5 X7 L; c& g0 A        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
, i% M7 k4 G  w, P7 D  D0 a        end;
0 H1 n1 b# W; `& [* M/ ^0 K        bufname:=sprint("BF",i);
* E5 s6 Q0 v6 {& W( p        if existsobject(bufname) then
1 f5 B8 g# X! g. \# L                buf:=str_to_obj(bufname);
                buf.deleteobject;
7 ^/ |, i' x; B* T1 T, M        end;
        next;
+ O" H, I/ _2 t* B6 \5 T       
+ y  g' f$ [- Q- M  G        dx:=0;
$ R, F$ W4 ]" |  f7 i        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% }/ B: p% q- v/ z# Y                --mark:=false;
/ u. N# W. w" z, w2 C                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
5 D$ P0 N5 D  U; k8 U* B                        and activityspace[1,rows]<(1.05*y_max) then
$ o8 `) e3 T/ p/ ~0 r                        print activityspace[1,rows],",",activityspace[2,rows];
' f7 k2 `! y7 m4 V, q4 Q6 n" x1 |0 D                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
) [" `, s8 h) L& d: Q" G/ p3 s                        activityspace[1,rows]:=ct;
                        mark:=true;
6 F# B" e, R2 @! r7 {" |5 b& v: {( O                        else*/
6 I; Y8 h. k; Z4 ^8 q5 g" H2 C                        y_max:=y_max+dy;
; W; l( Q" l# H7 B- n                        dx:=0;
                dy:=0;
0 O- n8 Z: k  j                        --end;
0 B' u, U! w& D. e; v1 e3 H( `' }                end;
7 ?: M# b7 s6 P% n, Z" u' 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;
& I& c) J0 s  n! W            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
0 s  A5 u" J- g; ^- q& B" U, c2 j                end;
/ u/ }" p( i2 C2 T/ T                dx:=dx+activityspace[1,rows];
# ]- [+ A& L* q% H                /*if mark=true then
5 H, }; m$ f0 `8 S9 V6 ^6 L                ct:=activityspace[2,rows];
/ I9 W% I/ d, q$ x                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
$ l) L- s7 b& I3 |                        end;*/
4 G9 a* X' G6 t, q! k  ^' v        next;
8 @# r# R" L* ?- S. U        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);
# b- e, n% m- u) m5 E        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);
! {1 p6 W" i5 G8 F! ]2 c2 a/ k, C       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
6 b! s* S3 l2 a- F- w+ f: p                for j:=1 to number_of_machine loop
) z4 f: g3 _5 G* A  @) e                        if j=i then
8 B& f2 l( A# ]* Z% h+ T5 X                                d_from_to_chart[j,i]:=0;
                        else
! a! l* S8 \0 R* x# j  ~                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
" N% ~0 q, O& ?# U) w                                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);
/ z+ N. O! ~- n- B; A: L                        end;
8 B, g6 d' o5 W- O" b' o+ u  g$ x( H                next;
        next;
       
  _6 ?2 J8 d2 h' E        lines:=0;
" @7 G& p7 R* ^6 I        partstable.delete;
       
, T' h4 X( }+ u' \, s        for i:=1 to number_of_machine loop
- Q& r" L2 P* ~: V( g- z/ R                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;
( P9 Q/ i5 U8 g; u$ E                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
% N6 ^' _8 w3 c9 h, z                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
, }2 \) h* y1 g# J                        partstable[6,lines]:=j;
) w) u0 _" m6 c; c: i1 s                end;
* n' e; K% h6 ~" V        next;
: N$ X6 Y/ Z6 K- s4 Q# I) |        machinename:=sprint("M",rows);
! I% z. d2 L- V        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]);
: b) r$ C" A& }' W9 i( `5 r* s        machine.name:=machinename;标识符未知
! Q1 v) Q) o" u, q& \        machine.proctime:=5;
) u, t- }4 L# K' e+ C1 C        machine.label:=activityspace[0,rows];
8 s$ H( T" x7 L' N9 V        machine.exitctrl:=ref(leave);
       
8 l  d4 K/ i' A5 {3 ]/ T        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]);
& L# y  j) N9 \        buf.name:=bufname;
2 [$ [3 B4 {- ~* J) M) Z        buf.capacity:=5000;
8 W2 m. `& m% |/ z        buf.proctime:=0;
) h0 }6 c  l# F( H        .materialflow.connector.connect(buf,machine);
       
8 p, m& r# E  f        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
/ a8 @, C7 o/ c% B- f9 k. Ndy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
9 {0 z( g6 {7 W, C1 {5 n5 Ccurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
" d8 }- l1 @! F: M8 |/ Xnext;
end;