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

zooey

is
* G! {' ~& v0 x6 o; b        mark:boolean;
/ a" ~. ], v% [( ~        dx,dy,ct:real;
5 e. _. s9 ]: ]5 F5 B    i,j,rows,lines:integer;
: z/ j: \0 q5 b- {" a3 C    machinename,bufname:string;
    machine,buf:object;
; v, U$ {5 [6 K) S- a  d5 @9 ?5 Rdo
# Y7 r% E+ \# c* S% _  q1 C        current.eraselayer(1);
( Q* l" t7 v0 ?# I0 i3 e; T       
        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
2 Y" D% G: |, W" m! P' h3 v# V6 m7 o  E                        print"yes";
4 M9 V. W: N  e' j6 y+ v3 [                when 32 then
                        print"no";
& a! t5 D" e% T* m. K9 I6 n* D                else
                        print"cancel";
2 d; L# D7 F5 \4 L- i( F% I/ u0 {                end;
                eventcontroller.stop;
6 b8 z# h& i( t1 ~+ ^        end;
       
: x9 a, e2 o! R# I        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
/ E7 i# W2 ]$ n$ M+ C        if existsobject(machinename) then
2 ]' q  F) H0 L+ t' ^                machine:=str_to_obj(machinename);
. x/ G% p+ J6 N. W                machine.deleteobject;
% ?5 V6 C' m2 t4 Y. h% h" N        end;
5 R% A7 N3 ]' G7 f. \, o- Y        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
+ r; a6 e' C6 O" `4 R  [* D       
7 q5 X3 S5 s3 E! @( T' y        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
  A1 o8 g( Q, m4 w) B                --mark:=false;
7 V$ G6 M+ b; i                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
) i: Z1 T. ~, N' A% |1 Z7 S+ j0 V( V                then
. X8 W6 D6 M: i; ]+ ?6 d                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
* ]; v% E+ Y  B                        print activityspace[1,rows],",",activityspace[2,rows];
8 x8 q. r9 V- O* q! R                        ct:=activityspace[2,rows];
3 }# J# i- i( T1 A0 K- T                        activityspace[2,rows]:=activityspace[1,rows];
  ^7 J0 |/ I9 I. l                        activityspace[1,rows]:=ct;
# D6 f6 k5 h2 H! V5 _                        mark:=true;
5 g7 |; E# p+ J1 n7 m! J                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
9 q. n/ T6 Q. B0 s9 W                        --end;
                end;
3 f* i* m  V7 w3 s. P% p                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 m4 ?6 S5 u- I& [! ^                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
* {2 E2 A, l) u* k4 O/ O* K                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
4 S$ o# f$ g# q" |                /*if mark=true then
2 u% w/ o: n7 p! N                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
: I" v. o. K- h                        activityspace[1,rows]:=ct;
                        end;*/
7 g, |: K$ _8 J0 A; y2 o        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);
       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
8 V% j) O- o1 D3 ^1 Q                for j:=1 to number_of_machine loop
( j2 M5 c/ y0 W7 C2 I                        if j=i then
                                d_from_to_chart[j,i]:=0;
; D+ l! h: G% B; A7 J2 ~$ A                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
& j$ g1 e5 A" z$ N3 |) M8 `                                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);
) D+ r4 l' {' u1 R9 V2 T; Z                        end;
* T( j: D' Q) l* B5 {0 n/ k                next;
. a# [- e( L$ W0 a4 z) t; o        next;
1 D: V+ x; X5 m$ _  ~8 R       
0 v/ n! G8 t' ?- @9 r% l        lines:=0;
( L3 w1 F; R* h7 c- N        partstable.delete;
- V/ U; ]# F% s5 A) Y( R4 ]       
  d; Q$ O/ g2 ?' O, N        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% G! c6 A& n5 q, Y' G% h                machinesequence[2,i]:=rows;
: _' L7 F. S+ P  P/ N' o% Z                for j:=1 to number_of_machine loop
0 W; F: C" g0 J8 L* M5 A3 a1 s                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
6 W( G8 N  U5 V  Y, ?7 w                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
4 `0 A) m! N, h  s4 @+ O2 T                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
* ~! G* Z- @, b0 P                        partstable[6,lines]:=j;
7 t* A6 _5 q1 c                end;
! p9 F2 g$ s- x. M! [        next;
! R( H7 `0 |- l2 Y$ ?2 t( X) n' ]        machinename:=sprint("M",rows);
; s1 w% z1 g% j3 d! h: l8 [: b        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;标识符未知
+ w; c( `$ ^$ A1 P; l$ \* L        machine.proctime:=5;
- X2 b; z' F+ H- _& q        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;
: t4 C% M) i1 |  }" Z6 M        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;