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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
* _$ v  j0 e: u; R! X! t- L    i,j,rows,lines:integer;
2 H2 U$ s7 T4 u    machinename,bufname:string;
    machine,buf:object;
+ z- e& h1 G, \7 |% E! ?" rdo
6 z2 i2 n4 A, O/ d  ]& y" O: p, z  j        current.eraselayer(1);
: s9 n/ w- `* d( r- G       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
% C7 U4 Z( c4 A: _: s0 H* n0 C                when 32 then
" l* |7 W/ X9 q8 R                        print"no";
( {' E6 z) t, U% G+ [: }                else
                        print"cancel";
2 F, Z1 M) ?, T4 k, z8 E7 s                end;
                eventcontroller.stop;
- g' c$ @5 S. v5 P0 I6 V# u        end;
       
        for i:=1 to number_of_machine loop
6 U( [; Q% K  {2 h9 D3 H0 O        machinename:=sprint("M",i);
2 ~) T# }, k7 r1 X        if existsobject(machinename) then
$ ]8 Q+ u/ @  M                machine:=str_to_obj(machinename);
! Z4 S3 @& t( ]5 u. ~                machine.deleteobject;
        end;
6 L) x. f7 Q0 E3 H3 k        bufname:=sprint("BF",i);
        if existsobject(bufname) then
4 P" g( y" |$ |5 C3 O                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
3 r. G5 I6 G7 }3 z$ r8 X. |        next;
2 l$ B& _5 X' U+ I) F  y       
        dx:=0;
4 f+ C( d% p6 ]9 a0 n  r        dy:=0;
9 ^, J7 I; @" z        for i:=1 to number_of_machine loop
- m/ j) W7 ]7 E: f, H7 W: O                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
' j# x& w, @9 m! H                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
9 Z' g7 H  [  j. W                        and activityspace[1,rows]<(1.05*y_max) then
. a- x8 H% R$ o7 i$ M* E7 }                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
! t* e6 R3 j# c5 M% Q9 u- P* t                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
9 p* ^4 y" x* N, ]6 e4 H                        else*/
# a$ `7 h; K. n% K0 ~                        y_max:=y_max+dy;
* S" K, B7 x$ B' C1 T% ~: n                        dx:=0;
                dy:=0;
# t2 s% K* k9 W2 i) L5 X                        --end;
" B& ?! F9 v* }7 C" U) @, g6 d                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;
            if activityspace[2,rows]>dy then
. k. b3 a! x# Y                        dy:=activityspace[2,rows];
: {0 K5 h' f2 f8 E: P+ D) [) x                end;
" C* w; A; d3 t0 T                dx:=dx+activityspace[1,rows];
7 \5 m' j' i1 H( I) ~) h& f2 L                /*if mark=true then
                ct:=activityspace[2,rows];
6 x4 ?- B! Y0 t, R' Y' I  C                        activityspace[2,rows]:=activityspace[1,rows];
& I; S1 j) c5 ^2 l- b                        activityspace[1,rows]:=ct;
. v7 l  s2 b5 M: F; A6 D                        end;*/
        next;
        y_max:=y_max+dy;
8 m/ i2 L# M7 R: H( Q5 n1 f        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);
' [' Z7 S8 Z. Z# h# D6 G& u/ ]7 N4 {, {3 ^' h       
3 A- B, ~& j# b# T# i, n7 ^        rows:=0;
! P) H- P& @* V, d        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
, H7 ]' ^- L+ v( X7 ]4 b                        if j=i then
) |8 h* u! r8 m; |                                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];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
) A; V4 Z# J; K% ~/ S3 j/ D, t2 A                                d_from_to_chart[j,i]:=abs(dx-dy);
1 v1 i  l5 \) Z2 b                        end;
/ n' T3 E, w5 ^( Y2 @                next;
; r' V  ?/ L+ a* v8 Y: Z        next;
/ M. O9 U9 l# T7 l       
        lines:=0;
        partstable.delete;
3 d3 ]5 \( `  }% E+ L( W       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
0 u! Z' P% u3 m9 ?                for j:=1 to number_of_machine loop
0 b& g% D3 j: V9 G$ n                        if w_from_to_chart[j,rows]>0 then
6 I3 j! \- K& ?7 ^& S                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
9 T5 j) p& q8 W                        partstable[2,lines]:=w_from_to_chart[j,rows];
5 T# G$ o  d5 v8 X$ r4 l                        partstable[3,lines]:=sprint("parts");
$ r6 D- c0 n9 R4 y                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
+ M; o" ]5 i+ a2 v; G4 U: U- o6 g                end;
% o3 i( {, q. p6 Z& g        next;
/ |2 ]; V; h1 [& C+ }/ a        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;
: V& Z* z2 Q& }6 M# R. `        machine.label:=activityspace[0,rows];
% s3 l& k; j/ [/ m# j" |$ P6 @        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
  g! M5 A4 \' x2 X  l  B  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]);
6 b( n# i/ J, _# u9 Q$ S5 @        buf.name:=bufname;
        buf.capacity:=5000;
' \* {8 g6 R# F& ~        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
6 I4 ~, j+ x' a& C" ?        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
- ^; |4 C$ `) Y& y0 q3 Q6 ]0 F. \dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
& Z1 P1 |0 x# Rcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
& Q& q4 ~) N* {5 B$ Nnext;
0 t: r1 V- N& @end;