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

zooey

is
: K# j' p3 v4 s% ^1 K- V, q& S6 {        mark:boolean;
2 Q8 Q. i+ M0 ?. w6 X& p- z) t3 O        dx,dy,ct:real;
3 z. p. z7 t! K! L+ i' z$ H0 F* v    i,j,rows,lines:integer;
- B5 n/ u* q- B  D* r+ _. F( s    machinename,bufname:string;
2 N5 s) C8 n7 n7 O! g( b; w: W. b9 v    machine,buf:object;
do
( H- e8 X# Y/ h8 J& u        current.eraselayer(1);
( H+ W+ Q  `0 h5 h* v7 Q/ L       
: t2 _  ]/ t# n' b3 x. ?: v        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
# \/ n9 E% T3 H- K8 @' }% \                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
0 s' j, f  r% r# ~1 m9 E                        print"no";
& @. `0 ?) }9 I) m; [! {$ s                else
                        print"cancel";
                end;
                eventcontroller.stop;
8 [+ T! {7 X6 X; T+ E/ n- ]        end;
       
* r7 d; ~& P2 F5 ^1 a. B" R        for i:=1 to number_of_machine loop
* J5 U2 s+ Z' c1 w( M        machinename:=sprint("M",i);
+ Z& t+ }8 i, B+ Q8 S3 z        if existsobject(machinename) then
7 _  k7 {9 Q1 y                machine:=str_to_obj(machinename);
: o; Z. C$ _+ b) h0 Q5 A5 y                machine.deleteobject;
& E6 m9 M9 \: a' s9 E        end;
; \, _- P. B# f" K* @! a( p        bufname:=sprint("BF",i);
. q! T; G" t4 C9 V        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
+ c) p4 x) F/ K! G& n% j- A+ Q- X       
        dx:=0;
$ b2 k, r0 h& g' s! U! ?* d        dy:=0;
        for i:=1 to number_of_machine loop
( O2 f8 C9 q4 e+ u/ [                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
3 ~3 T, E. t' Z                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
* M# {. Z$ X) L" Y$ U                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
* [" S, k7 N- B                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
9 V: a, v5 }6 y. B4 h4 m" c                        ct:=activityspace[2,rows];
- h; {; }# h) J* ~1 s, \, O; Y" y                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
5 I0 z9 p/ U8 S  E                        else*/
* h( @  r/ \. c( Z: m                        y_max:=y_max+dy;
' K1 z6 h9 f1 e% O, ]                        dx:=0;
                dy:=0;
                        --end;
( _. \! r6 C) [# e8 c# J                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;
" r' {8 h8 Z% J5 m            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
+ s8 \/ K4 w6 q. W1 C/ ?7 O: `! Y2 }& ^                dx:=dx+activityspace[1,rows];
) S% W, K! p4 C- f+ K, ~                /*if mark=true then
                ct:=activityspace[2,rows];
$ b; H- ^2 a) e/ U1 \9 ?2 G+ V/ y7 G                        activityspace[2,rows]:=activityspace[1,rows];
6 q! M0 [- e; [0 B* S: k. |9 R                        activityspace[1,rows]:=ct;
                        end;*/
2 H% {! g# ~9 u" f+ n        next;
" ?" _+ j/ ], M/ P/ S: c        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);
& M& y: O$ d+ ?7 m/ V* f        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);
& {) R4 X" V6 a1 @% h, G# m# M       
        rows:=0;
* G" T3 d" \2 ?2 W& D  ?1 m        lines:=0;
        for i:=1 to number_of_machine loop
3 L! }: D  Z1 L4 Y                for j:=1 to number_of_machine loop
                        if j=i then
9 g- j/ n- m! `; T/ E; |                                d_from_to_chart[j,i]:=0;
, ]  C. b, s) v, W! t$ N! d                        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);
: `4 x1 F$ ?" q/ J4 v8 M                        end;
. K: F$ Z/ W( n% ]1 o  T) A                next;
$ f1 j1 z2 G( L- l/ }% k        next;
* f* S: ~; Z; p; \       
        lines:=0;
        partstable.delete;
% z* T1 @8 @" ]       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 ~9 j$ s! A( f# m8 a                machinesequence[2,i]:=rows;
. J6 N# Q# c6 ?; E! J7 J# h                for j:=1 to number_of_machine loop
0 M  H$ b' C6 _                        if w_from_to_chart[j,rows]>0 then
# k% }- g$ ?9 w  f" }9 U; f- W                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
6 T0 g& x# e; ?# U                        partstable[3,lines]:=sprint("parts");
5 p7 e3 ?8 _  P# n4 c                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
. v1 A' G5 U/ z: E+ u9 g6 o$ n' r' V                end;
  ?+ Q% Y- r, v6 {        next;
: X3 i: s1 I8 s) s/ J6 m0 S        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;标识符未知
        machine.proctime:=5;
% K$ s! ?& [" s4 `        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
' Y( i+ y8 k" c  v/ |       
        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]);
$ a8 b: o% m% B) V' q. O$ m- a  U9 x# _        buf.name:=bufname;
7 @) N7 U  ~; c  _9 l) X& q        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
4 {0 `" l( y) ?% F% sdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
) i/ Z, `% m/ W1 B* a& `current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
7 l( I  F- g4 G9 S& ^next;
end;