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

zooey

is
3 t- ?3 Q8 ^" y" D  ?! W        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
: T6 E# `1 J  Y7 k6 J' d    machinename,bufname:string;
* U/ h- b2 z3 O. r) v$ i6 D5 ?    machine,buf:object;
do
        current.eraselayer(1);
7 G' o- Y9 s5 [, z+ W+ ]2 Y1 h       
. o3 j7 o+ o! J+ A4 G/ _! y' V2 {        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
5 d9 O( p7 k5 \; C5 ?8 X, F                inspect messagebox("设施数目不对！请核查...,",50,13)
6 V5 f: X/ V8 T$ Q" W                when 16 then
) M+ U9 J  I* A. Y/ K5 b8 w                        print"yes";
                when 32 then
8 L. x# ]: V* k5 [* N                        print"no";
: m$ j, b7 B0 N" m; D2 Q; N                else
2 C9 |% B) }& i% P7 W; d                        print"cancel";
7 ]2 }/ f7 n2 z/ F" g                end;
                eventcontroller.stop;
. Y/ S$ w, ?* a4 f4 L* A8 I        end;
' \# ^, o8 V" k% @       
: Z0 k2 M2 o- K4 }        for i:=1 to number_of_machine loop
8 O* ?# d) T. Q5 ^% a        machinename:=sprint("M",i);
" N+ f  _: n- z- t+ Z        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
; p! n6 x0 Y( }8 U( W                machine.deleteobject;
        end;
! W; W% L' ?5 g9 a( k4 W& {7 O/ v        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
' w& s# K- M+ T! a       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ M" L1 R: s* B                --mark:=false;
  p. z' J. m: R: z" G5 v' k                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
: y, L8 K) X5 Z                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
/ y' {' K8 t. L. U6 X4 s/ x                        and activityspace[1,rows]<(1.05*y_max) then
1 c. m' c8 B& g6 v  ?                        print activityspace[1,rows],",",activityspace[2,rows];
- e$ M; U& o" Y# w$ N                        ct:=activityspace[2,rows];
. q1 z! a; y* o5 W: p3 |) K  H                        activityspace[2,rows]:=activityspace[1,rows];
( i+ T# u" J4 W8 H1 c                        activityspace[1,rows]:=ct;
6 r; M% g9 Y. @: C3 }. V                        mark:=true;
                        else*/
; K! T' J9 \) e: C! |" @                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
8 [* t- {- v- T1 G                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
7 f0 m% l5 w; O; [; ~% f$ _                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
# j% h% O4 p/ g; h/ K1 p9 J            if activityspace[2,rows]>dy then
; J, [; v7 G$ m' `" h& Z  N& M8 q                        dy:=activityspace[2,rows];
$ ~3 m* ]+ u( c$ ^8 x                end;
! }) l' B" u$ s' K+ u1 I8 h/ m                dx:=dx+activityspace[1,rows];
                /*if mark=true then
8 X# i2 ^2 s; p) C' K7 p9 B                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
' {# V5 o" P) I! R5 H) _$ k6 @                        activityspace[1,rows]:=ct;
& Z& H, a- [( m( Z: O) }                        end;*/
2 N5 C+ ^2 j5 a1 z$ i& r  W/ o        next;
' }3 u) q" o; G6 H        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);
       
/ r+ p8 s4 E9 h: A" t        rows:=0;
* h( j: \1 m8 W, z% e        lines:=0;
  J$ E6 E+ Z4 \% ~% w3 o; H        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;
9 Q, F( i" L6 K% l' @( N                        else
% _2 }' f* t' c* Y                                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];
2 j" q% X3 E8 j8 K* |0 V* u                                d_from_to_chart[j,i]:=abs(dx-dy);
) Q$ ?/ A* I% F# C9 ^- k! }                        end;
                next;
        next;
/ C* G! Q' U' x: }       
) Y4 p0 ^$ k) d, o4 C3 D9 e  h5 P        lines:=0;
) d: J4 |7 }9 D1 r. ~% z        partstable.delete;
       
        for i:=1 to number_of_machine loop
4 t! J8 L( o4 o% b  Q                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
1 B0 g6 V1 O/ b                        if w_from_to_chart[j,rows]>0 then
% A/ l* A9 j& P" T                        lines:=lines+1;
4 z5 E+ i2 _" Z/ g' M                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
; s3 p# i: R( ~+ q( t                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
# z4 a3 _9 l/ C& |3 i; s, U: P                end;
7 ~8 m5 ^& B, A9 [/ z  A        next;
4 }4 S5 N, J$ c6 m& J( e        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;标识符未知
0 H1 P& F+ a4 T" _        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
( ]+ u3 b3 }  x        machine.exitctrl:=ref(leave);
  V+ _/ h) g: O0 @# [% ]) T       
0 D" w6 m! ^$ j) F1 ^+ y        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]);
/ ?, z  h; o6 y5 U5 W        buf.name:=bufname;
& L/ g4 l& j1 ]1 t3 w8 h6 U        buf.capacity:=5000;
: Y3 r* u( M9 m$ g9 z9 t$ F        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
& {6 R: z6 |8 v+ V. y       
9 u2 ^) C. b, P7 V. v$ d7 V! ]6 {        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;
; y$ K, y# O: p. L0 v$ o. Fcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;