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

zooey

is
) O$ [9 V& @8 O7 L+ v- r- g' i0 v        mark:boolean;
8 g* b$ f  c! s        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
/ Y+ H, C8 O5 Kdo
& _- j8 B6 l) ?5 g* C& g        current.eraselayer(1);
0 U7 B- _. r5 `: z* @7 P) p       
; R6 w9 }3 d. {3 A1 g2 L3 h        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
' z: W3 V2 \3 S0 o6 V+ k                when 16 then
; E' r# I7 j! u                        print"yes";
% R* B4 i9 j/ H  {7 z                when 32 then
$ a4 m, |* t+ y0 n5 o+ r2 u                        print"no";
1 C6 n# e, a' \4 U                else
: o$ ]) c+ W( k2 i4 |1 L# \                        print"cancel";
                end;
                eventcontroller.stop;
        end;
; g; d% S0 r  R% b* {$ P  G, B0 p6 T       
        for i:=1 to number_of_machine loop
5 n' }: Q" ~1 u3 c' r        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
5 k# w  Y, a, q) B, z9 H; _( \        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
" n# I0 L, {0 N/ T4 \                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( X! ~# L  r9 K6 h4 b                --mark:=false;
7 f# r6 f/ Z; T* _, e                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
' Z8 x% ?4 Q1 I' v# J                then
                        /*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];
9 a  w1 B8 _2 M, I% T                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
  Q5 o" P  o0 j" q; p                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
5 [. M( l% w1 b1 t2 B                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
+ L6 V2 n3 O* p) Q# }/ [& |+ \                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
2 E# Z5 c' g# S& B/ v, w            if activityspace[2,rows]>dy then
1 z  w; U4 M4 ?7 r) y                        dy:=activityspace[2,rows];
                end;
, u8 n1 i5 ^3 a                dx:=dx+activityspace[1,rows];
4 b+ o3 M0 w& ?                /*if mark=true then
" X. k* f6 t  ^                ct:=activityspace[2,rows];
3 Z1 {  L( ]% e5 G" k) U0 I                        activityspace[2,rows]:=activityspace[1,rows];
; _* `; V: ~. w* X0 u& m                        activityspace[1,rows]:=ct;
5 V7 Z" V8 f4 \                        end;*/
        next;
        y_max:=y_max+dy;
# g" C: w$ }6 P3 Z  K7 @        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);
2 I6 W3 s/ _2 x) }& N       
6 [# v3 d* V  V8 `7 ]        rows:=0;
% _' }- T9 t9 N% U0 b  l3 h        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
. }' |" U# O7 t. ]                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
7 B5 D* J, h" p7 O8 Y; k) _                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
, d# {! v; a, ~" R7 O1 G3 `- O                                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);
2 z) v: u+ J. ~/ Y2 p                        end;
                next;
        next;
  T/ Q5 _* d+ r) G       
% S+ A5 R0 f' s+ r1 C& q        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
. n( U' I# Q, y' H9 I6 r- o                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
5 g1 @, q  |. Y) V# s5 C                        partstable[2,lines]:=w_from_to_chart[j,rows];
. `( z+ z* o1 P: p, A" I" t                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
3 \; h" X  q2 j1 `( i2 C                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
0 m1 O2 w) E* f- Y. [/ n4 [# H, Q# c        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 |) ]+ w  }$ j2 q4 [        machine.proctime:=5;
8 S2 d5 f9 R' b. ]        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
/ z% {3 y8 @( o$ X6 o       
; w) v3 Q3 q  \6 i3 a        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]);
1 n8 J7 `5 V) h- H' B; s        buf.name:=bufname;
+ [7 a3 L# f( J" G* Y        buf.capacity:=5000;
        buf.proctime:=0;
( O9 N: q& o8 s. W        .materialflow.connector.connect(buf,machine);
       
        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
: m+ y# y) T1 Yend;