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

zooey

is
) `( [* y' h9 @4 T. u" |        mark:boolean;
        dx,dy,ct:real;
, D8 ^! H: _' U$ o5 L    i,j,rows,lines:integer;
    machinename,bufname:string;
, Z3 d" L3 Q1 R, C    machine,buf:object;
1 [5 b; R: `1 K0 `4 ~6 F& _: L  sdo
' J4 K( g: Z# L$ F$ Q" ]        current.eraselayer(1);
       
* M2 N( N, Q- s( h: z        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
! ]8 Z" ~# `3 }7 ]( `" }                when 16 then
                        print"yes";
2 ~5 c/ ^9 n; ]9 ]2 t4 e; \                when 32 then
6 x# ?/ N$ j; Z& y. @8 o9 h                        print"no";
                else
; h  n, Y. S5 `4 k. U) |                        print"cancel";
+ Z, r! C) ?1 Z% i0 u) r                end;
& k$ y3 j6 q. _8 W! e, g                eventcontroller.stop;
        end;
0 f; L. B# ?5 s$ t# ~       
2 ~  y) e; L$ v. a! C+ S- c, p        for i:=1 to number_of_machine loop
6 h% W* a( F! ]        machinename:=sprint("M",i);
; z2 t: c0 _( ?' x2 w        if existsobject(machinename) then
' Z: ~2 P% z7 ?: g! T                machine:=str_to_obj(machinename);
' A& b- N/ `/ ^( h5 Z                machine.deleteobject;
! c" c3 Y- f- s' T6 E, |" U+ @, p* z        end;
1 R2 C" P+ V; `: \  G3 _        bufname:=sprint("BF",i);
        if existsobject(bufname) then
5 [) Y( h# ]6 t, I" e                buf:=str_to_obj(bufname);
+ n+ R* ^- e5 q; A  a; c( k# C! N                buf.deleteobject;
. H# \8 d& U- }' M        end;
        next;
, Z9 V8 Q# j/ n' d4 X$ \, q       
3 D$ @8 n5 N7 t& n! @' f/ c        dx:=0;
; e7 D) ]: X; m        dy:=0;
        for i:=1 to number_of_machine loop
5 y2 F% ]- k! v" V* W) }                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
% h! S$ ~+ g' K) U  `: I: X& W                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
, s1 s& r* H7 x  j! Y8 T8 E+ S                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
6 C& r0 z* |, x' @, ]                        print activityspace[1,rows],",",activityspace[2,rows];
6 r* L% d% D% C                        ct:=activityspace[2,rows];
- z/ C+ u8 G% D) K/ T; O  Z                        activityspace[2,rows]:=activityspace[1,rows];
0 E  o! {! Y# v/ \$ b6 k                        activityspace[1,rows]:=ct;
                        mark:=true;
( i4 V) t% ^) s" }0 ?                        else*/
5 }6 T" j4 V7 W, F                        y_max:=y_max+dy;
6 A% x2 b* e7 \; H                        dx:=0;
                dy:=0;
                        --end;
9 F: W5 n/ ~) N( ?1 z5 |9 I                end;
                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;
+ s6 \/ x7 D" V! U0 Y4 {& p3 U            if activityspace[2,rows]>dy then
3 n) u: @5 W: @2 d% A# V                        dy:=activityspace[2,rows];
* g$ e: q& I- Q! r% G  m                end;
                dx:=dx+activityspace[1,rows];
; y% \; ]( U' W* V* u7 g3 t/ h                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
; e5 x: A* J" X1 D! v; J- k- f                        activityspace[1,rows]:=ct;
7 K& V) G$ F& j% ]5 I0 H                        end;*/
5 Y# P. l* `* x5 O        next;
7 y7 ]1 g9 @% _- y/ D' t9 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);
        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);
  O+ N# E6 j6 n! Y9 t; r       
! s* r9 s, y! j5 ?! n. r/ T8 ~) h; v0 f6 ~        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
" z0 p3 \# l" \                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
+ H; g9 ^) ]* ^$ x                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
6 e+ u, U; x' V  i- U4 P8 G0 Y' D                                d_from_to_chart[j,i]:=abs(dx-dy);
8 Z1 L0 c. G( A% p/ f2 ?                        end;
: ~% R( P& k; Q+ O5 b                next;
        next;
       
        lines:=0;
        partstable.delete;
       
& ~1 L2 B' [9 h% V4 U8 {        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
: B" T; H0 G+ n* s' [3 Y' h                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
/ l7 Q. u' Z  r4 {( V                        lines:=lines+1;
: u  T" _7 F# j$ s  T4 O5 R                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
& u; i+ K4 f1 M9 @3 @; B                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
; v; t5 O. u0 x1 B6 Q! n                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
& k0 p( F9 {$ `1 X) [2 V' B) x                end;
        next;
1 s1 m5 I* F. y! F, F        machinename:=sprint("M",rows);
, c' X) B, P* o, K        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;标识符未知
4 k# b. M; m* V1 n8 H5 N0 j- n        machine.proctime:=5;
        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
6 J8 d  j+ O$ L3 k5 h6 b        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
5 n" }! W" h+ S        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
! Q7 T# Z5 E6 q* m5 x+ Fdy:=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);
1 j( h* t* S; w+ o: G3 I2 vnext;
end;