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

zooey

is
( I- _; J4 M% {& c4 X& C$ f        mark:boolean;
        dx,dy,ct:real;
+ Y5 f7 g/ a, p7 K    i,j,rows,lines:integer;
8 L" f4 }3 l; X9 i* H( M: _# e    machinename,bufname:string;
4 e# E" Q' {& H! Q1 g3 g2 u    machine,buf:object;
7 g7 q" {4 _6 F6 hdo
; X9 s# o3 Q+ U- y1 e        current.eraselayer(1);
! _5 S% x" Z  f/ [       
        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
6 Q1 D) M) K! E3 a                        print"cancel";
5 [( L/ s" ^- i8 t6 S5 v: R                end;
& T$ y  o* |) o1 }' t                eventcontroller.stop;
/ J0 T, C1 P  x2 N0 J& w        end;
       
        for i:=1 to number_of_machine loop
2 @: {! S( q: f* \, j( @4 g3 ]        machinename:=sprint("M",i);
' U# A6 `  D) ]. _/ ^6 {! l1 c3 `% x        if existsobject(machinename) then
! ^6 k7 r$ H# N( t+ V) g1 ]: b                machine:=str_to_obj(machinename);
: T5 B# L3 T9 H$ n/ v& b& Y                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
1 W+ J. y, |) ^) b0 I3 X, r        if existsobject(bufname) then
- p% R: W. N* W8 T* r7 E1 @                buf:=str_to_obj(bufname);
% P" M8 v  r0 s  R, M                buf.deleteobject;
& u* S3 n7 C) Y" ^$ W) s# z        end;
        next;
* H8 l3 o% q' F6 G       
8 S% o3 w# b8 L& ^* q0 H0 x2 z4 W' |        dx:=0;
; o7 ^( y- K4 C/ O% k+ x        dy:=0;
        for i:=1 to number_of_machine loop
2 ~7 O$ d8 m  T' k                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
3 H$ i5 A4 I8 B; w% C9 x. }                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
' r# h0 O; X4 \$ M- {                        and activityspace[1,rows]<(1.05*y_max) then
' P8 s. b8 @# c                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
0 K" \% ~0 U9 h, W2 D  r                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
. O$ [9 Z3 d" S( O                        dx:=0;
/ ?+ ^) |- `5 u) O4 o% K$ S                dy:=0;
                        --end;
/ A+ m+ O8 ]2 n  h( V2 [- P                end;
( ^, Q% x6 Q. M1 p2 e                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
/ _5 f5 X* J( N  M& v* w" r                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
+ v* C( a1 |( s2 _# t4 N0 X( i                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ ~$ X$ K% T$ _" ~                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        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);
5 U5 }+ |8 [. d       
) S9 S  ~! l* _+ Q% u2 l* r1 _" }        rows:=0;
        lines:=0;
& N- o3 J$ M1 N- x$ {9 R9 S        for i:=1 to number_of_machine loop
& k, z& b2 ~1 E7 ]! _* X                for j:=1 to number_of_machine loop
                        if j=i then
; r1 {# @$ r$ ?2 I! \+ g) U$ U                                d_from_to_chart[j,i]:=0;
. P8 E/ {) w3 |5 ]+ q  Z: Q# F                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
" ^7 ^  y+ Y6 U* j; j" @3 f                                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;
                next;
5 [/ q" p1 r: ~" b* [! M        next;
* R5 }# T( q' ^       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ _0 _5 Y. J# r: x, w' v) e( {                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
0 [  l- k9 P7 d/ Q0 N+ d1 P                        if w_from_to_chart[j,rows]>0 then
, r) W) A6 X) F                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
! m' f' H+ i8 l3 ~8 |                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
# Z: |# G6 N; E/ X2 Q& ~  m! N                end;
        next;
        machinename:=sprint("M",rows);
* D! H  i% k6 B3 W! a' R# 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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
0 V3 g3 c2 N) Z6 F- U9 V        machine.exitctrl:=ref(leave);
/ t, }5 |! N6 h; ^1 b       
  J5 b9 f6 o5 `1 U) x        bufname:=sprint("BF",rows);
% F$ a/ q: Z: H9 r* K/ @        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;
$ Q5 f. K; J: i& m' b        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
0 D! s7 S* c" e+ I        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;
, }5 r5 |2 i3 D5 @7 @  o, Gcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
0 N0 e9 ~. }3 P' Mend;
& t: w6 I: o+ {