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

zooey

is
        mark:boolean;
  X" M; B, T0 C. J* r7 M, |8 E        dx,dy,ct:real;
    i,j,rows,lines:integer;
5 G$ z: a3 v% R" O& a. m, h    machinename,bufname:string;
    machine,buf:object;
0 X8 a/ @9 P0 d- k: M" b! Tdo
        current.eraselayer(1);
* y; W, h' S+ F' J. z6 x3 K! {       
        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";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
$ C# P  ]& j' o) _                eventcontroller.stop;
, _) L4 x0 n% [! ]8 H, t1 m: A        end;
       
6 c+ K) T) V3 q/ T" J        for i:=1 to number_of_machine loop
5 [/ C) u- y4 D: ~8 ^; ^* z        machinename:=sprint("M",i);
# M8 h/ F. G( g  {9 c! w        if existsobject(machinename) then
! q: q; E/ a& \3 u                machine:=str_to_obj(machinename);
) _5 [# ^/ v+ r7 \3 F                machine.deleteobject;
, X: f# }: h% v4 [4 v$ U  [        end;
) }4 P: s8 p. p. T) `8 O        bufname:=sprint("BF",i);
        if existsobject(bufname) then
) V  p' W$ H1 |) ?1 T' \  F                buf:=str_to_obj(bufname);
% \& P$ g  Y$ i- l8 J$ D8 n                buf.deleteobject;
: y+ z) `  E5 {* }1 U        end;
& F7 ~. C% s1 \3 O* |        next;
+ h1 G4 ]; n" s$ H5 Y, w, Q       
( b8 w& w2 F" m& |8 B- _        dx:=0;
        dy:=0;
, o) T% \( s  v5 c        for i:=1 to number_of_machine loop
3 O2 |% Q* v- E& T  v" d/ K& Y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 U+ y2 J" T7 b# ]# Q( a                --mark:=false;
7 z& [' @0 ]" ]                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
! d( a" f: M: d( }                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
8 D+ a) H% R- K) B                        print activityspace[1,rows],",",activityspace[2,rows];
0 I9 A9 B' v  s& Z7 c% }/ K                        ct:=activityspace[2,rows];
  M9 i7 z( H% G) Q, ?, V! T                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
$ A* Z2 ^4 S! \                        mark:=true;
. v( a8 T$ g' g; m7 l                        else*/
; P7 n- w% Z6 ]1 e                        y_max:=y_max+dy;
                        dx:=0;
  T) \4 O  m+ ]# ?1 A                dy:=0;
                        --end;
                end;
6 n5 _- N/ P* I' h                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
; F. f4 D6 U. O6 N                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
7 x5 w: ?) ~; O  U5 [8 M            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
5 y' l4 ^' Z2 O3 L9 F                dx:=dx+activityspace[1,rows];
                /*if mark=true then
3 Z: n! Y, \. m0 n% u( X! e+ A/ M                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
, j& u; l. \( T& I                        activityspace[1,rows]:=ct;
                        end;*/
  m( i6 T' h1 ]9 y        next;
        y_max:=y_max+dy;
0 x  w( _5 _! ]; W; }' X6 M        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);
1 c( K' |9 S, |: M$ l; G       
0 U: y! m  a5 W% l* R        rows:=0;
3 a* e  c2 f+ l# b' k+ u  Y4 v        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
$ x) c& r5 U/ ]" B                        else
* x) O! o8 D* }7 I" f0 h                                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);
                        end;
$ M9 g/ c  r4 }, s) b8 ?                next;
" x% N0 @) L. B9 g. s! E        next;
4 S% q0 `; x; H9 _       
        lines:=0;
4 e6 _4 S( ?" q8 l$ a( W        partstable.delete;
7 \; U% `$ V" P       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 ~6 i3 i3 G' P* X2 v" p2 ?% G                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
( H. h$ @; t/ I6 ~6 M. x) H                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
9 o5 j0 T4 R* Y' D) `# i# R                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
. X- K- ^" c7 o1 n# X8 M                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
0 ]3 t& j) i: V& `; j                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
* w3 R- L. v0 [6 J. Z/ U0 p9 w        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]);
, _! U3 E; _! F" a# M7 ^        machine.name:=machinename;标识符未知
; V/ e( I% z4 P& ?/ B0 G! Y& {: u( o        machine.proctime:=5;
6 F' ?. x' A1 |5 ]        machine.label:=activityspace[0,rows];
* r0 e( f  f2 a, D5 Y1 N  s        machine.exitctrl:=ref(leave);
$ q& s2 F1 \- t# y7 J$ c       
        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;
( j4 Z/ j: Z. W2 X' A6 y5 G# E        buf.capacity:=5000;
        buf.proctime:=0;
7 b6 B6 W; a3 b5 W) l        .materialflow.connector.connect(buf,machine);
) z( j; q' {  y       
( u/ }# c4 B* g+ N4 a        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
. P1 m0 z  n" u, |' e3 gdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
3 m/ W7 r1 P/ Y; acurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
$ m7 h) ~" {8 `/ u; J: U9 Vnext;
end;
, w! ?, @; Q  z6 z4 m" l