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

zooey

is
5 H) s: ~$ `  Q+ T1 Q, K& i        mark:boolean;
8 U' n6 U" _& O! }5 _        dx,dy,ct:real;
3 W" L4 Y9 K' ^6 ]    i,j,rows,lines:integer;
* H' G% Y$ X4 Z. k- n! P    machinename,bufname:string;
    machine,buf:object;
% C7 J$ u& U  v9 Ndo
        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)
                when 16 then
; `3 v! _1 H( ^. z4 @- s                        print"yes";
                when 32 then
                        print"no";
& V1 w- b" ^! I$ e; u) F                else
                        print"cancel";
                end;
0 e0 q& c  m; o* X9 H, @                eventcontroller.stop;
& W+ J. }: X% Z+ m8 [* E5 \        end;
       
        for i:=1 to number_of_machine loop
& H' W) X- }$ ^$ X. Y        machinename:=sprint("M",i);
! D* x8 P* h+ F# ?8 k        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
# |& Z' Y% K) |$ k        end;
5 ?+ T1 O2 E0 i8 z        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
: z( G& w8 V/ ?0 ^0 c7 q                buf.deleteobject;
- j/ }7 ]3 D4 o% g        end;
! _( [7 I+ s" y. m( k% w2 q' i) Q0 e        next;
       
        dx:=0;
9 q+ _! I( w8 o5 m. t" F5 @7 a        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
6 E( B$ L- X- Y" e                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
! }- `* g; y( f. l                then
( c' d: V" N4 V7 j/ o4 Q2 y                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
$ A  o; G  ^/ \& i+ L5 L8 d                        print activityspace[1,rows],",",activityspace[2,rows];
6 A( k1 ?. P' N- e7 y1 ]# A; m                        ct:=activityspace[2,rows];
+ i  f: z# R6 N, f                        activityspace[2,rows]:=activityspace[1,rows];
) R, f* @; J1 W' Z; `& ]3 }                        activityspace[1,rows]:=ct;
                        mark:=true;
7 v) f! x, V0 B8 J; @" |                        else*/
, a( s2 b& f" }                        y_max:=y_max+dy;
; W8 p( f8 p4 L1 m2 `                        dx:=0;
                dy:=0;
- Y- c+ [& @1 V: w3 M                        --end;
                end;
" y3 ~4 h% I! c0 K, ]) Y                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
$ ]4 U! A  F! Z                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
' h3 r  k: m9 x7 y                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
9 E: M. O# g- z7 ?+ {                /*if mark=true then
7 F, C$ g" q! X0 k! {. A                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
0 k, e: e5 |/ P% w3 {! ?) \" R* }                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
1 b1 x# a8 z) N* p( K        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);
- ^  g  \! u; @        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;
" ~0 p5 n; Q% t1 U# G* P! x        lines:=0;
/ Z" D1 ]# v, w2 ~4 i- F' H& z        for i:=1 to number_of_machine loop
/ X) u* h: J, H2 q0 ^2 E7 I                for j:=1 to number_of_machine loop
- S; a1 Q! M* V9 I: R. f                        if j=i then
9 p! e3 E/ k$ g0 ]                                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];
/ q$ C- M2 m: R$ O7 P2 C* |                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
5 U, _: [. B# z% v  z& E                next;
        next;
       
8 B1 J+ S- i8 j$ o        lines:=0;
6 ~* v* R* o& t/ O' i        partstable.delete;
: }3 Y# T/ P1 z6 R; l) B7 A: E       
        for i:=1 to number_of_machine loop
) Z$ ~1 [5 {/ j- N                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
+ j" B. X2 G' s                        if w_from_to_chart[j,rows]>0 then
% M8 T/ R5 Q# H, F0 y9 s$ k9 J                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
0 a( @1 m8 p1 l1 P. m# G4 H  K9 L. B; ?$ o                        partstable[2,lines]:=w_from_to_chart[j,rows];
3 L* _+ S# A5 l; }5 B3 T6 h4 N                        partstable[3,lines]:=sprint("parts");
5 `5 E0 o9 [  h1 Y: f                        partstable[5,lines]:=rows;
6 Y1 [, n/ R. y) \! F                        partstable[6,lines]:=j;
                end;
; y2 h* W1 e3 l# q* q. P4 C        next;
  N' k! j0 E* A( D) f6 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]);
        machine.name:=machinename;标识符未知
& Q* ^# m5 K$ |/ e! e1 J& {        machine.proctime:=5;
; K, G  V& U( s9 u        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        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;
, z2 E  N7 i' r8 S: m) b8 r) b/ P        buf.capacity:=5000;
, N9 x$ Y) o6 K/ Q- `, X. d        buf.proctime:=0;
# V9 w( d' X- m        .materialflow.connector.connect(buf,machine);
       
8 h4 C5 ^  _1 Q6 i$ C2 v6 Z        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;
6 i9 E$ P# }$ }* ^* D; ?% c6 icurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
( U% `: H: C$ d, j# Jend;