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

zooey

is
9 Q, s* ^3 p7 ~& H        mark:boolean;
/ t( R9 o- U+ z& D2 f; n0 R) D        dx,dy,ct:real;
    i,j,rows,lines:integer;
: G* q7 {( i1 d' Y  u+ x) |    machinename,bufname:string;
    machine,buf:object;
+ a7 t5 f8 d9 M: ^- T/ |* I! ~do
        current.eraselayer(1);
       
! }: K3 s8 K: z3 o1 O9 m' Q        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
& y/ h* I) n& }) t  n                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
3 ?% j, A7 F3 V% A8 Q) Y                end;
- Q0 |. Q& D( ?0 r                eventcontroller.stop;
: |( X  N% v  ~        end;
) }, C$ r* W+ t9 y       
5 _$ f3 c. o& x# k$ n" z        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
3 B1 O+ }6 @6 h4 @2 M                machine.deleteobject;
        end;
) X: ?) p6 q) a: f+ ?3 P        bufname:=sprint("BF",i);
4 e* g! Z; Q2 w        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
7 @. I7 `7 [1 u        end;
        next;
       
        dx:=0;
9 d# p, x6 |  K7 R. K7 T        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ |  }5 C4 |6 ^- p: v, h- ~                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
5 g" i% H, f3 }, P3 w                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
0 n7 r" |. _- `6 x6 ~6 A8 Z                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
: s* N7 j( ?4 x4 V  {( R6 W8 j                        activityspace[2,rows]:=activityspace[1,rows];
6 Y: b7 L; L; M* G                        activityspace[1,rows]:=ct;
                        mark:=true;
: Q9 V. s2 W0 i7 E" b: |4 {                        else*/
8 k1 e2 ?% Z) m                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
. `# Y* Q$ i3 I- }& |/ W' u9 M7 {                        --end;
, e' T0 s3 X, Z* ?0 h( x                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
  I4 h. J& R5 q; C- W                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
& X5 x. V, K2 M            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
& P0 Z6 V5 u" f                end;
                dx:=dx+activityspace[1,rows];
! m! ^" J  g: P5 g. P9 t; p0 ~! Z5 G: a                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
# T' z# S7 N) \8 I4 P                        activityspace[1,rows]:=ct;
                        end;*/
        next;
1 k' a" v' S/ {1 _        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);
       
        rows:=0;
8 W. J) p( R' U' C! l( f        lines:=0;
        for i:=1 to number_of_machine loop
0 d3 r' G& ?2 o6 J                for j:=1 to number_of_machine loop
. _, V" P: j8 o' H3 z" X* l                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
6 ~4 f0 J( P* X6 h/ ?3 V8 V8 \       
3 A$ x# [) @5 s6 R. O7 G- W. s) z8 o        lines:=0;
        partstable.delete;
       
' G; R, L/ x, P; |* h8 b5 |- s        for i:=1 to number_of_machine loop
  z4 E) U: \1 d# |* X: R* ?                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
% S6 E  N7 M* t( F2 F                        if w_from_to_chart[j,rows]>0 then
% S6 e: H$ n& z+ t# A                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
4 `$ [9 L: o9 k( b                        partstable[2,lines]:=w_from_to_chart[j,rows];
( Q: @# n6 x5 U, D                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
& b  }8 P& s. S9 Y                        partstable[6,lines]:=j;
                end;
- ?, {6 Z6 J' A, ^7 ~, I! {        next;
  x; Q/ |) R( b! A! P2 e$ K* C% y        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]);
" {& _: X/ _3 O) f        machine.name:=machinename;标识符未知
6 H. H7 v* d1 J" }& U% G- Q$ c        machine.proctime:=5;
) R) v' K% A7 l        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
( K/ v7 Z9 c; q" v( A3 F        bufname:=sprint("BF",rows);
  I" P$ V4 R, E( Q        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]);
9 b# D: _. Y' \! K0 ?; m! J        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
0 O% R# {9 m' [: u        .materialflow.connector.connect(buf,machine);
  q" F! S$ @2 |$ A. b       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
+ _/ D3 t3 |& fdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
$ c/ i; H$ n# }" x* ?current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
. x  d$ `% y& b9 e* r4 d. |next;
, D3 Z5 T3 ^/ ~- |8 uend;
. U) ?! D  S+ L( B/ s. i