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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
! W# {9 k) T' z( @    i,j,rows,lines:integer;
    machinename,bufname:string;
; p# z* v5 K6 {' G$ u3 `% Z0 ^    machine,buf:object;
do
        current.eraselayer(1);
$ A! b! O7 f$ y  o) W       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
; a  A# z* {* ~# Y                inspect messagebox("设施数目不对！请核查...,",50,13)
; A$ {, Z8 i. Y/ g, X+ ~                when 16 then
" Y: x$ `- L, C0 I1 X) K( E& C% p                        print"yes";
# a: \3 h# K# J7 |' \& z$ K* y                when 32 then
' a5 }( @3 }1 ~# v3 a8 E/ {                        print"no";
                else
                        print"cancel";
  O0 k2 u* f& ^                end;
/ Q' J( i7 ]% p; v                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
. K1 S3 T- I9 Y1 d: G" B        machinename:=sprint("M",i);
        if existsobject(machinename) then
1 f% w  K) b6 U* B- a1 p" e                machine:=str_to_obj(machinename);
                machine.deleteobject;
6 M$ C2 t* v1 Z- F        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
- W1 ~- p# N& s# S        end;
9 Q1 ^3 h5 p+ O6 R' A5 A, `2 L        next;
       
+ Z, ^7 q; Q6 a0 s' T0 B8 \        dx:=0;
% U/ W# R5 |) w' ~        dy:=0;
# O5 t& o/ w5 k; ]& |8 Y3 S3 M        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
# t1 g  z4 t5 k* c8 \% D- Y8 f                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
$ W$ w' Y5 I+ C1 O                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
; e* K; ^( Y4 {, o! Z4 R% ^                        activityspace[2,rows]:=activityspace[1,rows];
  O' d! K" Q1 F: U/ ^2 y                        activityspace[1,rows]:=ct;
+ @! S$ [6 K! d                        mark:=true;
+ |- s6 ?; x; i' I* `- a$ N                        else*/
/ C4 b; U3 }0 h                        y_max:=y_max+dy;
! C  t3 }  }  b& c9 E  J, c: P$ s9 b                        dx:=0;
                dy:=0;
/ R0 o# u0 @6 c8 M1 D                        --end;
* |, \( H/ S6 d, T! z7 ~                end;
( z4 ]4 ^' B( J1 I5 P. y                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;
- m" u. b  K' K! k/ u4 a            if activityspace[2,rows]>dy then
0 T- ^! p; a6 X" G) H- H                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
) n4 Z6 }1 n4 C; N                /*if mark=true then
                ct:=activityspace[2,rows];
9 V8 ~# O" f5 ~, h  {- L3 {6 C                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
6 |+ ^" ?# c6 o% W                        end;*/
        next;
        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);
) F/ `# j( G6 e5 u9 s        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);
) ^6 H* U  i* t. d       
        rows:=0;
1 U# J1 W/ W0 J9 N1 ~* }        lines:=0;
        for i:=1 to number_of_machine loop
. u2 C0 y+ r2 g                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
  g( ?  K/ S& ]& J6 X; r) j                        else
& v  I. y1 j9 h$ f' A, ]                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
7 Y! j$ f/ z3 w. L                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
8 S. t- o, a* }  H! N                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
8 j: G) Y( |# r& R5 \, p3 a                next;
        next;
       
" Y5 X7 Q# j* D2 u( L* X8 H        lines:=0;
/ J, m7 J/ X6 g% }        partstable.delete;
       
        for i:=1 to number_of_machine loop
5 n  w% B. ~1 w% D- O7 Z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 ]! Q9 ?2 _; F: V& h                machinesequence[2,i]:=rows;
) f) q# Z$ \" K/ [$ K8 [# n                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
& k& V* h3 b1 I                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
3 Z* ~2 S! V- S9 ^# s                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
  Q1 E7 ?, ?# h2 {  L        machine.exitctrl:=ref(leave);
       
: M: ^8 Q- I' L9 Z9 e% ^1 k4 Q' J        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]);
& r  B+ U1 Q& [0 \2 f" b! \        buf.name:=bufname;
        buf.capacity:=5000;
+ z/ m, r& w; [$ p        buf.proctime:=0;
/ |$ @7 ^7 P. O3 G4 C0 h* s        .materialflow.connector.connect(buf,machine);
       
- n& L+ E' X8 Q        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
0 W2 Z& }6 N7 P' q) |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);
next;
end;
7 \1 l0 A6 m" f( L6 z* w, I; g; F