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

zooey

is
" y; b& _2 g4 w        mark:boolean;
! o' u, M8 u$ H, Q1 u  G( H* x% n        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
) m) j' }/ R: ~. h5 U                inspect messagebox("设施数目不对！请核查...,",50,13)
. h( |9 k' `9 Z9 R+ h9 L                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
& N9 t1 r! {6 T5 U                        print"cancel";
; I7 ~4 r0 ^) E: z                end;
/ {" O% S6 x) b" F, M& Y" c                eventcontroller.stop;
        end;
% h) ]2 K( j5 v/ L/ O9 a       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
; J1 C! I- j! n2 V2 y0 L        if existsobject(machinename) then
9 S/ l0 F' q3 j( \+ L                machine:=str_to_obj(machinename);
) M& O3 p7 [% s* S                machine.deleteobject;
        end;
6 r- Y2 u' U* h1 X        bufname:=sprint("BF",i);
2 @. t9 ]1 t3 s        if existsobject(bufname) then
. [! c, ?7 @' K/ T( o3 \+ E                buf:=str_to_obj(bufname);
8 `$ a* i0 b* v$ Z. M: v. G8 o                buf.deleteobject;
        end;
. F: J8 r" |2 Q, C        next;
       
        dx:=0;
& c1 E' D1 x! [5 I3 P        dy:=0;
4 e( g/ j# \  n! v        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( v* x4 p1 d3 R6 D                --mark:=false;
- N& O8 W3 [* ?5 O                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
+ u3 z3 ~; V6 Z$ E5 l                then
" L. P% B& K: w. R                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
5 R: z7 V! q9 J7 d4 ~: P/ L: |                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
  N% ]3 y5 Q- Q2 A8 w9 w# W, P                        activityspace[1,rows]:=ct;
; E4 u' W4 {' `. u2 w; s0 Y  D& ~                        mark:=true;
                        else*/
! Q# ?1 X7 w- W/ ?" o                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
( _( `; ^1 K  V. a; n                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
) [; m6 M9 s; Z' s# U  b5 X                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
# H5 _! q1 P) L/ m            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
. k" a5 y2 `1 z& F% P                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
, ?5 N( Y8 c# l) \8 q7 u0 f                        activityspace[1,rows]:=ct;
* K5 \3 d+ j8 r                        end;*/
        next;
' f6 v  E: Q. s+ a( D  x        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);
' `. P/ F* W7 o% A! L4 O( @        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);
       
- Q4 p  x& c% O( W; L# h        rows:=0;
: a+ G: T$ c; f. F- W        lines:=0;
3 W! {3 e' E* q) f& M8 Y        for i:=1 to number_of_machine loop
6 M$ E& P( i: p9 a: |                for j:=1 to number_of_machine loop
- ~: z8 }) X8 h7 T& O                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
: C8 a, c0 g+ R7 P0 k8 O                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
6 j; l, Q- {  X0 s                                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 W) d7 j2 n$ @( H        next;
       
5 _9 K) n/ P4 `5 m2 j9 d        lines:=0;
% m& l0 e2 C' o) z) _        partstable.delete;
/ L# _; J3 h$ ~  f* _       
        for i:=1 to number_of_machine loop
9 i; F+ y1 M2 A7 z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( h" {/ N( x% |& s, G% E                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
) h% X* h+ \  ^( A/ g                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
9 }& }% A7 v' a                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
( o. u. B5 M* f. \                        partstable[5,lines]:=rows;
7 b. d6 ?" O2 }- j                        partstable[6,lines]:=j;
3 ]9 ?# O/ Q1 I4 ~9 T/ t                end;
        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]);
* R. w# R3 i7 A        machine.name:=machinename;标识符未知
! q+ Q7 x9 d7 N) ?        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
5 g, F2 D/ C5 C( P  x- N        machine.exitctrl:=ref(leave);
+ M$ W' F  i9 C# G2 ~+ X' u; g  Y       
        bufname:=sprint("BF",rows);
, t1 V0 I: W0 M        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;
" i$ [& x" `  \$ K- R4 h- _        buf.proctime:=0;
4 V; t5 m) u- b& u+ u        .materialflow.connector.connect(buf,machine);
1 C) T6 ?; G5 c+ V# }" R: i! b       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
5 u, w. ^/ E& L( t" bdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
: v1 M0 _) a) p, Z7 ucurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
' D7 f- [" x6 l/ r- D& L4 M