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

zooey

is
& ]: T2 j& C- C& I0 E3 W4 P2 I        mark:boolean;
3 R* z& y" j" ?# h+ R( E; e$ Z        dx,dy,ct:real;
    i,j,rows,lines:integer;
4 x" f9 t6 m$ h6 Z9 Z6 G    machinename,bufname:string;
0 H/ m- }9 b& `% z, @6 N    machine,buf:object;
& l; ]( q; z0 t' V4 O1 T4 k1 t" Hdo
8 M3 S8 }+ W( I" K! Q        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
) p3 Z3 G- s$ c  s2 |/ ~                inspect messagebox("设施数目不对！请核查...,",50,13)
$ u( a: h0 i% b! s: ]5 t; J                when 16 then
* [- u" S/ W0 {5 r0 H& Q0 y                        print"yes";
                when 32 then
9 c2 O* J) e: Q* `! C& }" _                        print"no";
. S! s* H2 Q  z! n, n                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
% C* x/ T' n" t. v) x7 _1 \, r       
3 G. U2 s( ^7 Q8 s6 q        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
2 r  ?6 s' L# Y- G/ \; T/ X3 Q        if existsobject(machinename) then
$ Q& c* K. X8 t                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
9 m7 J4 `) c! S' a* T8 r# H        bufname:=sprint("BF",i);
# q: k- ?+ R; z# m! J( s        if existsobject(bufname) then
$ K3 o' L8 \+ [, u                buf:=str_to_obj(bufname);
! C5 w  l7 `# K/ x/ O                buf.deleteobject;
( K6 K3 e) W. }" p, s& o9 o        end;
        next;
& l/ L" J1 \) p       
3 S8 C  x  ~, f) R4 ^7 Q' U        dx:=0;
4 c* ^' U$ z$ X# A+ \; e" n! D        dy:=0;
        for i:=1 to number_of_machine loop
7 ^# l3 K: i5 \! ]6 [( x- V. s                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* U+ U4 `4 E+ B" v2 C: {                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
1 S. U" W0 W3 T, @! Z                then
; g; \! G" |% s- x" c; B                        /*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];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
9 I2 |. t/ m& T& u* Y                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
) z' F) N* x0 g9 i' `7 t                        y_max:=y_max+dy;
! d2 E9 J6 {" a( E                        dx:=0;
3 Z7 H& t& |" }2 q/ ~                dy:=0;
                        --end;
" w% f- K( V# I8 r+ l' |                end;
: e# x' g$ S4 S$ |0 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;
/ }; K. ?0 z) o2 Q- F% u4 k            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
. C  v7 W3 i& D$ ?" B* H                end;
$ c& l; o/ \7 p) Z: p9 ^                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
; o! R8 w# {9 N6 S                        activityspace[1,rows]:=ct;
/ ?  p8 P( H3 v0 F$ y# b& ~                        end;*/
1 b. K6 {+ l/ y- ~& y( P- y4 d' X        next;
$ T0 ]# G% B, |0 w/ N( V        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);
- }3 g: x  A, o# y( g) C* }        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);
- F- H+ a8 a4 y- a       
        rows:=0;
: S! r; L7 A% g$ \) |9 z. P        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
3 Z! C% f4 z  G9 r                        if j=i then
                                d_from_to_chart[j,i]:=0;
. g1 H2 e% U% a( ~' p                        else
                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
) k/ f2 f% U8 R; C9 _  K& s/ C                        end;
" {/ Y9 p! m* i8 x                next;
        next;
) q) k- L# l, E       
5 ^- ~" L4 p0 A- z  I( ^! n6 k1 x# [1 a        lines:=0;
5 T: w8 o- l; q        partstable.delete;
! B) K8 E6 z( Q7 A" F       
2 x' L  `, m8 w! `        for i:=1 to number_of_machine loop
' L2 @" I7 a. L7 C9 d5 a6 I                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
7 O' U4 _; C% K! x) s' U% k% l                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
! u% C+ [) Y) v; [                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
% [  s8 v" T% [! m                        partstable[3,lines]:=sprint("parts");
  {: ]% b: ~% i7 S3 H0 C                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
$ p& p- d' I3 |5 k. p  m! @' e: |% N  F- w        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]);
" j& v1 I& _% j6 h        machine.name:=machinename;标识符未知
        machine.proctime:=5;
4 ?7 X* ]# P% f+ Y' N; k        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        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]);
( L6 d' c; A- X% X9 P- M        buf.name:=bufname;
+ B& P" x- P6 l3 Q9 b        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
( j1 o6 F" t# H( t       
        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;
  o2 K& S+ L) |9 z, b- xcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
9 v# n  j& q, Z# A$ B$ b$ p9 Q4 yend;