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

zooey

is
' l) @3 @0 f$ p) Q; C8 n        mark:boolean;
        dx,dy,ct:real;
6 i: j" @$ H: v  w' a  V& ]    i,j,rows,lines:integer;
) `, J3 F2 ~; G, Z" g    machinename,bufname:string;
( B* t8 G" U/ K, n% ?" E2 K    machine,buf:object;
do
- D' w6 _* x6 h( A        current.eraselayer(1);
% Z) ?4 s9 p7 ~3 R! q       
7 a5 n  v+ e# ]        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
- r- h1 y1 ^% M- G                        print"yes";
, m; D7 R8 l- Q                when 32 then
; P/ n( ?. q$ s, `4 @7 }                        print"no";
                else
4 z6 p2 D) V# C% _* ~# L+ X+ ^                        print"cancel";
                end;
                eventcontroller.stop;
- v. ^' k/ o4 e        end;
3 k" k) p# ^% t( c8 [4 ?: a       
0 S. ~3 N  ^- N4 @; m$ G8 [        for i:=1 to number_of_machine loop
& ~' p$ H; f" k* r        machinename:=sprint("M",i);
6 u( C4 ?4 D. b& r/ `0 |4 T) e        if existsobject(machinename) then
+ {/ q& o  \' d+ ]2 A                machine:=str_to_obj(machinename);
1 L0 n; M) R" r# o; P0 C# I                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
" u4 y+ i) a6 @6 D2 }: V: a* p" B                buf.deleteobject;
9 D: R7 `, C& M, {        end;
        next;
" F" q. Y/ p. t! n2 `       
. ~1 t# m, _* Z, C. O3 G4 I        dx:=0;
! @# F6 ]' N. z/ Z        dy:=0;
        for i:=1 to number_of_machine loop
& u$ _! o0 Z0 k' d  @& K                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
+ c) b5 K. F8 H4 Y) S& y                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
& t) {8 E+ p+ x9 q                        ct:=activityspace[2,rows];
' [3 R. t" |+ o% E) V2 G7 ?+ Y) x* y                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
# M+ A7 V/ x+ w4 X# w: }                        mark:=true;
                        else*/
5 P! y9 W. I) J( N! N. [- O) P                        y_max:=y_max+dy;
/ C- h' R# {+ F6 b' |1 B                        dx:=0;
; ~- |/ t! J9 ~" p" [9 h8 u& k3 |* Q0 V4 R                dy:=0;
                        --end;
                end;
% _  Z( h: X# ^8 p% g) a4 H3 ^, h* }                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
4 M# L& K/ i8 T, x% q            if activityspace[2,rows]>dy then
& W) B# r9 E5 A                        dy:=activityspace[2,rows];
) N2 J: k- i. U! @/ X) t                end;
                dx:=dx+activityspace[1,rows];
: `' h1 O* j" s                /*if mark=true then
# ^! S. V- M. w1 U; P9 W! O                ct:=activityspace[2,rows];
5 O7 m( f/ R2 @& ~" P" \3 v2 \  q  T                        activityspace[2,rows]:=activityspace[1,rows];
6 l4 p: u! B# Y' W) u                        activityspace[1,rows]:=ct;
3 g7 l& `! J  ^8 A7 [: G( l6 y  }. g3 q                        end;*/
0 {& E. h: t$ J1 A/ h        next;
( C5 Z3 T6 k  w        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);
! q6 n( u" z+ n" [$ d: j+ t1 v3 d6 I        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);
( c: s) t& J' C1 G" J0 c1 L! U       
% C9 ~/ _1 c# Z; O8 s* ?        rows:=0;
! T! K' X6 @4 s4 Q% y        lines:=0;
$ x  ?. s2 W+ f: ]% k( U# A        for i:=1 to number_of_machine loop
7 [: c( ~% O3 [1 C& _                for j:=1 to number_of_machine loop
( R3 i% Z' E6 O4 k# d                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
! p$ }) Y6 Y. R                                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];
. d3 ^  U8 `! v                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
9 ]/ n5 ^0 R8 Z. g  \0 B! n' Z                next;
        next;
: U4 e# ?4 h. G       
" d. t  J8 B" s  I7 P4 ~4 E5 ?        lines:=0;
+ n6 d3 h) F( O7 L) N        partstable.delete;
       
        for i:=1 to number_of_machine loop
6 r. H, s' R- x, V% Z0 r; F                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
* _# I4 b! W4 b3 U( }                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
7 G) z+ E( z/ V* E# _                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
4 u0 \8 Q( x) p8 A% T                        partstable[6,lines]:=j;
9 b; x* ^6 ?) g, O# q, M* ^2 j                end;
/ o. X0 L! x8 o$ m        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
" d" y1 G; z- C+ q: ]6 Z" _        machine.exitctrl:=ref(leave);
  x4 \4 ?$ A; x& O& t3 |8 f       
        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;
        buf.capacity:=5000;
        buf.proctime:=0;
7 G& C2 x5 Q- f7 u1 h2 s7 k2 P        .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;
& ~% I- n+ x- v8 X6 p. ^4 [current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
6 B' Z2 F7 B! F% Rnext;
end;
, S& [* ?4 J# S5 t+ E" S