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

zooey

is
( h5 t+ |6 s3 t, O/ D        mark:boolean;
8 E' G* o! ^0 U: t        dx,dy,ct:real;
; O( h$ t& j0 N) e1 e. f    i,j,rows,lines:integer;
2 p5 O2 K; C, W9 [, V4 M    machinename,bufname:string;
7 |+ H, H* V* m8 z    machine,buf:object;
0 S$ }1 z3 s1 W: ]3 z6 ?% Cdo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
0 u' \3 B3 Z7 S9 I8 @# k                when 16 then
                        print"yes";
# P2 X3 F) q0 _! i                when 32 then
                        print"no";
                else
8 |$ H' o. `* i8 L, Y; |                        print"cancel";
2 L6 n0 Z: k" J. D1 d( p" X                end;
) X* A$ u  ~8 _, W% n' ^                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
' I: v1 x' }# j$ \% z+ t        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
" e8 ^9 c6 `) G" J0 z8 h                machine.deleteobject;
0 d6 ]' Y, u& V6 i6 a* _+ \0 D        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
) P, u6 q. q0 q  q* ^- Y                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
5 e9 M; b) c& D- U: |" p       
        dx:=0;
% e" b& b' }- D( ^+ [8 M        dy:=0;
. H( b% p& ~: \* r. m        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 g! y% o4 d3 y2 ]: N7 Z                --mark:=false;
5 ?2 e1 A4 T2 h- T                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
. f7 u$ s, H7 ~3 L3 M- m                        /*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];
# m+ A, k5 r- u( m6 ]& V                        ct:=activityspace[2,rows];
9 f9 b% a) U9 U0 A                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
& Y0 j5 v% t: \) F                        y_max:=y_max+dy;
3 b4 i8 j' p6 L                        dx:=0;
- y, J% [' j- y+ n/ \9 }                dy:=0;
1 l0 h, P2 Z  ]' f, E3 B                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
9 t) L9 ^% }  ^3 Z- b/ Z                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
1 s0 t$ z" m9 {4 h) B            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
% t* e! k* r6 j5 W# C                end;
                dx:=dx+activityspace[1,rows];
, t- ^* M  a2 T& K$ h. N! Q                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
/ K( o! o* ^0 p1 ^8 _* E9 a                        activityspace[1,rows]:=ct;
& U( e5 ]+ i' n  s% d2 F                        end;*/
        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);
; k9 c5 I6 k! V5 [) h) h8 u4 b        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);
       
9 i9 \* N# F" q0 j        rows:=0;
" ~4 j" C7 b! d6 s0 K; y        lines:=0;
* B. X) I- @( \: k# m" }# a        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
+ ^# R7 q$ s9 k/ o                                d_from_to_chart[j,i]:=0;
5 l! i, U; ~$ e1 [4 C2 d                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
% n4 ~7 j! h+ J' x) \* e+ n" }                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
; `) ?3 H: c# b/ g                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
! I+ H6 R* a" d        next;
       
        lines:=0;
, U- z5 M7 S2 ?+ e  D/ }5 g        partstable.delete;
" L; T7 {' Y) e0 C6 @* k0 T8 f       
# P* ~! \1 F) A3 ~: v        for i:=1 to number_of_machine loop
; |" J9 l: O: V( w+ ^+ ]                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
0 F8 W4 v9 C, O- L1 W! `                for j:=1 to number_of_machine loop
7 w5 c  i  v8 e0 J+ R5 w* L2 D                        if w_from_to_chart[j,rows]>0 then
  I9 G( i- a2 g4 l6 r# Z+ R  T                        lines:=lines+1;
7 c. T3 u# [: f% P4 ~! C                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
% R3 T7 [& @+ b7 u( d# M                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
( g! D4 r/ [3 @( E7 ?2 q        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]);
' ]1 g, M' u$ z, w+ |) F        machine.name:=machinename;标识符未知
8 w, B2 _3 P& P: F' X        machine.proctime:=5;
/ |( u, u- p/ |" G        machine.label:=activityspace[0,rows];
8 W3 e# G) ~9 ]        machine.exitctrl:=ref(leave);
       
, h9 S0 X: Y0 n, T: k* x6 Q1 a        bufname:=sprint("BF",rows);
. ~" [2 P) |) `8 x/ I. ]$ i/ m8 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;
' N- ^' M/ |9 c  U0 m6 I        buf.capacity:=5000;
; j& h/ z( ]8 V+ h# h        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
" f0 _4 Z, P" U       
0 X# {* s% ?4 }6 U* H. b/ H- i        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
4 R* M. s& b' u) ydy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
2 P2 b0 `2 K& ?$ Zcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
1 D/ A* U: Q! [+ z( Fnext;
end;