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

zooey

is
3 _4 [# U7 P- @        mark:boolean;
3 L  Y! v' J, ~! v; I        dx,dy,ct:real;
    i,j,rows,lines:integer;
3 W6 \  O6 c) y7 q. G8 k    machinename,bufname:string;
/ M$ d9 s# r0 G# }% G& b    machine,buf:object;
2 ~# J  K5 P0 Bdo
        current.eraselayer(1);
       
) C: w; d( g: ]' D0 C        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
" ~. Y/ l# l  C! f( {/ o3 A                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
" [. o/ q1 t0 s# \  ?9 z7 Z" f* W                        print"yes";
                when 32 then
8 }7 ~* A1 [2 ?8 A1 f7 s' ^                        print"no";
                else
) y1 `- h( _/ z                        print"cancel";
8 ~- [2 Z$ ^9 k) W) J                end;
                eventcontroller.stop;
        end;
       
3 ^. l3 Y( }& ^& b) g' o        for i:=1 to number_of_machine loop
; I5 b4 S+ ^3 q8 J% q, `        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
: O& D5 c* r) b7 {1 c" N' k                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
# v$ b  H5 o) U! c1 S9 _  K        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
* b: ^# {8 q/ W5 P. t. \9 v                buf.deleteobject;
        end;
        next;
' t# q7 c% z' V) G+ y% T       
8 f0 Q0 {& R& S/ A        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
, C5 |7 @4 f7 A                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
5 t- I( c6 n6 X' L$ R                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
5 B- ^3 B6 k0 U3 @0 _                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
; S, c6 ]* m+ u# v9 o& M                        mark:=true;
7 v4 k! ~! I# y8 h2 Y# @4 @                        else*/
) X: U3 k: m% F  G& H+ V                        y_max:=y_max+dy;
) T2 |0 S6 `+ D+ \8 w/ [                        dx:=0;
                dy:=0;
- Y( y% G/ L) E                        --end;
                end;
                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;
8 m4 ]! S' |" d" Z' w5 W3 `            if activityspace[2,rows]>dy then
- W" B' o% e/ U4 N% D9 c! ?' w                        dy:=activityspace[2,rows];
' P% j. R- Q7 w; `. c                end;
  a' ^0 A7 z! w% L8 j9 G                dx:=dx+activityspace[1,rows];
                /*if mark=true then
. T+ B' z( D) A7 Y                ct:=activityspace[2,rows];
3 h8 s0 B% D" t! M. R5 F                        activityspace[2,rows]:=activityspace[1,rows];
) F8 A% h) \! p. ^# }3 N  o                        activityspace[1,rows]:=ct;
                        end;*/
        next;
& T- L9 ?! b3 A' J4 P        y_max:=y_max+dy;
" v( f7 g/ e1 E        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);
' Y6 u( K$ X3 B. C& M% Y* O8 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);
  i; s8 \3 N3 W$ V. q9 C       
        rows:=0;
( g* Q' e7 u2 A        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
# v8 K9 I' f8 F. u9 l# ~7 M                        if j=i then
                                d_from_to_chart[j,i]:=0;
' E. [. j! w$ N                        else
# I: D  c8 T# ~, N' ]                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
  V! i0 x/ z& w5 n% B5 I' N# n  E                                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;
        next;
2 P4 X' l$ y2 t/ r& e3 n       
        lines:=0;
        partstable.delete;
. g7 f$ t$ l$ W% z# m5 C. b       
& h) z1 \4 W4 C$ [& f. A        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! s: F( W$ b: U/ y$ E' y9 T                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
/ @9 R+ Y6 [  j4 E! m1 q                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
4 @5 H! Q% s; M                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
, t6 E/ }0 T+ m% [                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
& K( _( Z$ B) C% r5 r& O7 S        next;
% e1 F7 T9 ]9 z        machinename:=sprint("M",rows);
- n/ h- ]4 S- ~# d        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]);
6 _# C% Q% m$ x' d" s9 Z. H        machine.name:=machinename;标识符未知
        machine.proctime:=5;
8 A  \  j( R! c+ S( o4 N        machine.label:=activityspace[0,rows];
. y+ H+ n6 T* Q& F) f$ N% c        machine.exitctrl:=ref(leave);
       
: w) v! k# c/ `+ x' C; G# @0 @        bufname:=sprint("BF",rows);
3 o; ^6 s- ^! h$ J) r& y        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;
& a6 C- e% o3 q1 S6 H        buf.proctime:=0;
& J2 o0 v, O, w1 C. M- V& P        .materialflow.connector.connect(buf,machine);
& s1 M0 Y, B; Q9 r0 g       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
: J; D$ Z- D0 r+ ^! z2 {- f3 Vdy:=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);
) Y& B7 m' |4 _+ U5 f( Enext;
end;