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

zooey

is
5 }' Z7 t& }+ Z$ k6 M        mark:boolean;
# k5 b7 B$ l& G6 I        dx,dy,ct:real;
# a9 z0 ~- a# h  U    i,j,rows,lines:integer;
5 r8 F% F) K$ x$ H: ^  o    machinename,bufname:string;
  n. L+ b. |  ]3 v! P: ^    machine,buf:object;
+ C$ `- }( |" `7 [9 V, v% }, R2 ldo
) D0 Y6 J. t$ F- |4 V; z        current.eraselayer(1);
       
5 r* T' a' O' h6 o; q' ?7 Z        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
! C+ h" u& D. n4 q- \; d                inspect messagebox("设施数目不对！请核查...,",50,13)
% n9 l' m3 o  k% G* W- c: x" e                when 16 then
                        print"yes";
1 ^2 W, t) d  r% y$ h5 l                when 32 then
+ E6 R  M: ^1 R1 }8 `5 e                        print"no";
5 o  u( L4 ]# V                else
                        print"cancel";
. e  l1 L' q6 @" i* C6 R                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
& [, L0 s3 u" J5 l        machinename:=sprint("M",i);
. U9 q  Z+ y8 \; o7 x" a5 r        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
; ^( B7 p( m( Z" B0 R7 f3 g                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
/ S; @+ {1 H. ?& s6 Z" J        if existsobject(bufname) then
* d% ~( {' ]7 |1 M& K" _$ [( ?# |/ g                buf:=str_to_obj(bufname);
                buf.deleteobject;
2 ~% _+ j" o5 U5 e        end;
' {9 ~; d% j8 V: \1 U; Z1 s( @8 Q) @        next;
0 T* c( M9 w! W9 |$ \& u       
( }7 t4 a9 O; u8 p+ n; A        dx:=0;
  ~7 h/ H+ _$ H$ V( q        dy:=0;
6 k5 Q' q6 C# `        for i:=1 to number_of_machine loop
0 q# K+ X: b# _# ]) U! j3 ]2 ~8 \                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( L  A/ |9 B4 S8 r& V" O                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
' N+ d. I5 m: v% Q2 a5 t                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
" r4 M4 Z6 O! k9 r/ x7 A' r5 U                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
9 |* x6 B" D9 [5 x/ e                        y_max:=y_max+dy;
                        dx:=0;
3 H; l, A4 {: L0 T; r8 k1 s                dy:=0;
                        --end;
- ?0 D+ I) L3 ?& l                end;
8 B  n. s$ R, J5 V                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
! O0 C: e0 A9 `: Q0 v  q4 c                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
5 o9 q9 C, s% P' I( q2 l6 o9 m            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
- Y& w8 p; Q5 i                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
4 g) `- W: G, j, M: g                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
/ [* ~! r# b+ C) B4 ?0 M4 U% {        next;
: G- b* L/ J$ z+ @( B- [5 i1 F# @        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);
        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 u- b+ [' V# v/ |8 R1 V" F       
        rows:=0;
9 n# W3 _) h1 J: d        lines:=0;
        for i:=1 to number_of_machine loop
4 q- |  `$ I  e* P5 U( {                for j:=1 to number_of_machine loop
                        if j=i then
; k! d3 w! T& ]" @                                d_from_to_chart[j,i]:=0;
                        else
  U" o8 L/ m# b                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
# M0 n$ h. U: l# _8 a5 I                                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;
( G$ }/ B1 K, f# R- [7 E2 f0 s                next;
! \+ G1 I' \7 M        next;
0 l0 u' P+ `5 {1 i+ _       
        lines:=0;
( }2 O' j) q4 g+ u  e: J8 h* D+ u, \; N        partstable.delete;
       
5 P% p( E& ]4 t% `6 I# m        for i:=1 to number_of_machine loop
. y! I0 J5 D+ U! J                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
# B) a( V$ x" g. q5 P7 U- o& p( f                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
1 c$ W7 f. H8 v3 g( @                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
; J: K4 A% e' s' M( B, P. m* }                        partstable[2,lines]:=w_from_to_chart[j,rows];
( n4 G2 I) p) e; I* s7 Z                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
5 x0 S* @2 t" G                        partstable[6,lines]:=j;
: Q4 s5 P9 c* E1 E6 c$ T                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]);
) x3 z4 B* m! @" d/ o- ^+ P3 q        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
1 a! @( ~' t  P) d        machine.exitctrl:=ref(leave);
       
" V* c+ [8 @; t" S; @        bufname:=sprint("BF",rows);
. l) A" Y$ y. ~; ^2 \        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;
4 F, i  F( r  n' J$ u! C        buf.proctime:=0;
# s& f$ `" Y  y+ y0 l. y( c        .materialflow.connector.connect(buf,machine);
$ n5 h3 L. c+ H7 q       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
4 a) W  d  e0 h& b6 n! i7 d! ]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);
2 h8 n- G" E1 U; r) E: ~next;
4 P& W3 s, L/ C# ?& p2 y, kend;