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

zooey

is
9 `+ h/ x4 o8 n) m1 B8 J# n) Y        mark:boolean;
( v* T0 E: V: j/ E5 d        dx,dy,ct:real;
' g: s& ?$ G" l    i,j,rows,lines:integer;
: z& S0 E$ s2 f- A5 j: ^) m    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
  G& }& i4 j; c6 J$ V5 M        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
6 K8 C7 \) |. t% s6 ~                inspect messagebox("设施数目不对！请核查...,",50,13)
7 d) q( ^& a- k6 M5 C5 b                when 16 then
( {* W: k# a6 M                        print"yes";
2 L+ U( ]/ E; d* i8 E                when 32 then
                        print"no";
# |+ u" G+ `1 z' f) g                else
- g: U( l3 o/ A1 {* ~1 t                        print"cancel";
                end;
7 M; y- a# V( \0 e/ h3 v" k" c/ a9 a                eventcontroller.stop;
. C, d: Y6 H1 f/ q& B5 N        end;
) M3 \! o! ~% H5 _( L       
% U+ l0 e% z( J8 }; r  t( K        for i:=1 to number_of_machine loop
' o( a; K) F7 @4 ^, M* Z        machinename:=sprint("M",i);
' m2 u4 w- h+ S+ E# ]. T        if existsobject(machinename) then
. o; B  ]! }) ]  V- R% [. @3 `& L                machine:=str_to_obj(machinename);
                machine.deleteobject;
: A0 S% ]. J6 H9 l0 E, H* ]3 M        end;
        bufname:=sprint("BF",i);
1 u! v9 s+ _3 r1 q* v6 x        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
7 l' m( \6 K/ b- ?        end;
  n5 o  `3 q% }2 N# f        next;
" J. I% b5 B5 ?7 W* r3 T9 z. c' U       
0 A( N, c% Y+ r  p        dx:=0;
0 @) n& z8 s3 O6 z" J9 s8 ?) w        dy:=0;
4 F( d: n$ ^! O2 M) G" g        for i:=1 to number_of_machine loop
  P* H; F( [2 Y+ X8 _) i0 q  u/ b                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
5 Z  y8 v& H5 w, ^" K& S  f- A$ p                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
) k4 x( ]8 `8 [/ s                        and activityspace[1,rows]<(1.05*y_max) then
" G! O: I/ I" Z                        print activityspace[1,rows],",",activityspace[2,rows];
/ u7 d- b! V$ s5 S                        ct:=activityspace[2,rows];
- {: R/ v7 y5 V- h5 e/ V9 I6 H  G$ p                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
  v1 S9 V" n5 ?5 `                        mark:=true;
                        else*/
, w; c* J+ T8 k0 [                        y_max:=y_max+dy;
                        dx:=0;
+ P" r8 F3 x$ q8 b0 T& @                dy:=0;
                        --end;
+ V  f* t6 c2 d  `1 w3 a                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
0 J) V, j( z- l* {, O                /*if mark=true then
. W; Z. S/ p5 X. ?0 x% K                ct:=activityspace[2,rows];
7 k: E; b% c' p                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
- B0 H- i9 Y0 g        next;
3 q% B! a/ t3 U1 z2 x+ J        y_max:=y_max+dy;
7 G4 Q: H/ V8 t6 }) D3 m        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);
       
$ h* Z+ n* Z5 n8 v# L8 ]8 F        rows:=0;
        lines:=0;
3 H1 j0 Y5 `( ?5 x: F' @        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
) U. ]# ^, ~4 B5 }, l                                d_from_to_chart[j,i]:=0;
: E7 ^8 y; L$ j% @2 Z                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
" o" U' ~; U2 v$ T3 V; a# E                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
5 q1 y# g. N. e  S                                d_from_to_chart[j,i]:=abs(dx-dy);
$ i. `. y5 U7 l- ]* o6 B                        end;
                next;
& L3 o" u2 p1 A/ ]% S        next;
' _. m+ X0 V, Z       
        lines:=0;
- M0 [& e' @' x6 _; W+ m        partstable.delete;
' F7 J' e! U- ^' u9 f! Y/ \       
        for i:=1 to number_of_machine loop
' w- @) ^0 w( V! E                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
8 W- g2 M8 s& n" w& @                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
  ?  z9 u# K1 `' W                        lines:=lines+1;
; V! A3 |1 A6 G                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
8 y, x" m* b: m* n3 S, k                end;
7 J6 t. W; f- R) s: Z; V$ N        next;
        machinename:=sprint("M",rows);
" K. m1 G- @/ }4 K( V        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;标识符未知
7 s' a+ v1 [/ i3 k6 g: c- c& ]0 O* @        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
- t' ^2 ?  |2 ?( f# a        machine.exitctrl:=ref(leave);
" `. m9 R6 g$ j0 W1 Q+ s# w       
        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;
+ s) I  D2 o) A6 j; [0 Q        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
+ [0 b3 b* m. S       
7 O) {( c3 V1 T  J. g        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
& R9 S/ R) L" q* ^, rdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
" O; b) R5 M/ z9 d+ Acurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
, c4 u( k! t4 d& Z