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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
2 R) B. Z3 ?& c4 M7 q  D7 v    i,j,rows,lines:integer;
9 N: p9 u7 i$ z" v6 i# K' X% I    machinename,bufname:string;
    machine,buf:object;
$ D' o& t4 [7 ado
        current.eraselayer(1);
6 a* [) X$ @- A8 U+ o5 G5 |       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
7 z. f% C2 G+ O0 ]                when 16 then
, h  i% e2 i2 P9 x                        print"yes";
4 P- k, T1 s' v- a( s, w* L                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
4 I+ U, O  p* }1 E/ N6 b       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
' p9 E* D4 l9 h4 q8 j6 T8 u; n3 a        if existsobject(machinename) then
) P7 U) c$ `5 Z4 C" ?& r                machine:=str_to_obj(machinename);
. u7 S6 v9 o2 b. V5 }' n* D                machine.deleteobject;
        end;
7 q. A  `9 k1 \$ o. m; |$ O, E        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
% u: M) L% F2 V0 v        end;
7 |4 B# J# v9 m$ f        next;
0 C- y6 U( P% W1 r4 d# f; R3 h) N2 @       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
( P# M, F  a  E0 j                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ b0 d% y3 z' O1 u5 \. J- x                --mark:=false;
! i8 Z2 [* o9 n% J# u. v0 e$ H                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
  @  u6 Y, H7 I/ r! T. h( O                then
$ L7 ?% f7 r+ f. w" ]* b  L$ a                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
0 c6 s: \; M5 F5 x5 w  |                        print activityspace[1,rows],",",activityspace[2,rows];
& d1 D' h. v, J/ Q$ V/ T- a                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
' w  S7 ^) _& p$ ^  D4 r                        activityspace[1,rows]:=ct;
                        mark:=true;
: y- `4 `# F. t3 l                        else*/
0 }5 q" t6 A  c: A! r3 p1 f                        y_max:=y_max+dy;
                        dx:=0;
2 b3 U# {: g1 m- j3 y% Z                dy:=0;
; N# V  L* h* N4 J3 V& h+ G7 r                        --end;
7 m- W5 \1 m6 @8 \                end;
5 b( F% @& c+ ?6 U# ]& [% A# 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;
& u$ `( C  t3 c1 w: q! S$ H2 y            if activityspace[2,rows]>dy then
$ Q3 Z" G0 P- W! q                        dy:=activityspace[2,rows];
                end;
/ }0 C5 W) r1 w7 Q                dx:=dx+activityspace[1,rows];
4 v, W/ H8 k2 \2 g: s6 Y* x! z* z! K                /*if mark=true then
                ct:=activityspace[2,rows];
! J+ K8 o8 V' F) I4 ]# Z                        activityspace[2,rows]:=activityspace[1,rows];
$ ^  t! u# Y/ c                        activityspace[1,rows]:=ct;
                        end;*/
) s3 B4 f6 C: ?4 ]# O, a6 n        next;
% H9 o# S4 c5 L- A- R        y_max:=y_max+dy;
/ d  y: J3 L! F# b        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);
4 [, x  d' A) 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);
       
        rows:=0;
& Z# k; Q+ l+ L; v' ]- o5 t2 v) H        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
0 o9 O* M0 c. P4 z: W; ~                        if j=i then
* u3 w- a" n0 i$ w                                d_from_to_chart[j,i]:=0;
# U7 Y7 j; l# H; l8 {                        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];
3 L5 b" H- Q8 p* R                                d_from_to_chart[j,i]:=abs(dx-dy);
5 U3 o. U! v+ M                        end;
                next;
        next;
3 j7 I  b( O, k7 ~) w       
& g) l# T+ u8 A; l        lines:=0;
2 t/ g2 d+ X2 V6 T( h5 l2 Y        partstable.delete;
       
& W7 h# y7 ?# o  I7 h0 k6 y. E5 R        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, U+ X: U2 V4 l$ q                machinesequence[2,i]:=rows;
. U  t+ U' v  F# h( a3 b                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
7 f9 U, K# f0 n; R                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
) |$ C! R! H# P) M3 v: c; n7 g                        partstable[2,lines]:=w_from_to_chart[j,rows];
0 r  x* [# k8 q, Y+ j4 R                        partstable[3,lines]:=sprint("parts");
$ p# o( k6 U$ r3 l& Z: F                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
3 N+ |1 v, l  F2 t  Y8 Q0 D        machinename:=sprint("M",rows);
2 W1 J& Z1 P4 g1 p        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;
. I; E) @3 v, w3 [7 f        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
. U6 x4 O( {4 P2 b+ `5 E8 I        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;
3 k' G4 }9 V3 R' ~& L  b        buf.proctime:=0;
; @: n7 [5 i. ^. o; Y        .materialflow.connector.connect(buf,machine);
- d- D9 j: C. e) {       
        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;
+ ^9 L- r, d; Gcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
6 m' D; D8 e( p  {7 K  Wend;