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

zooey

is
1 k4 n; a3 e3 _0 d        mark:boolean;
! x! [+ R$ a7 ]9 G" N) O        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
0 U* D6 ]" }* _7 q% t( ^    machine,buf:object;
5 _2 x$ F" |. o) ^! H' fdo
2 I3 `: S& a" l0 D/ L        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
0 m+ I( R1 A1 `2 M                inspect messagebox("设施数目不对！请核查...,",50,13)
3 _7 r# b, o2 F                when 16 then
, V, a$ p  t& b                        print"yes";
                when 32 then
- o5 u0 J0 }+ d( M/ E0 z6 U6 F                        print"no";
                else
6 d# Q* \1 a4 [9 O7 H                        print"cancel";
                end;
                eventcontroller.stop;
: r; u7 F5 b: x# Q        end;
       
        for i:=1 to number_of_machine loop
0 e/ ]7 N4 V# h) u  J        machinename:=sprint("M",i);
4 R$ F1 ]& d9 |0 A, B$ Z) l        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
$ z6 T  M' ]0 Y( w2 r. `) p  u        end;
$ z, I6 I4 j% h  ?2 ?7 z        bufname:=sprint("BF",i);
6 E, `: r; X* k5 q+ z        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
* l4 ?( U; E" ]' E" E8 n: w" o                buf.deleteobject;
        end;
5 x  w9 P  G  A* t1 K4 h' d        next;
& R" ^9 K: e# x# b' S7 L       
        dx:=0;
        dy:=0;
# A/ v! }% {& M4 H' p, A        for i:=1 to number_of_machine loop
; y* C! d( \, A5 }, g& M) V1 Q                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
" C4 h: c! [+ v1 L- p                then
( ?9 q1 z! [1 I6 d% \8 b* j                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
, t/ e9 w5 m: `( k& u1 p9 o                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
9 [* p% C* _8 J- g) L/ r* _# i                        y_max:=y_max+dy;
4 K$ c9 U1 C0 B% [1 ?8 E# A                        dx:=0;
; n; c; v# q4 _/ N                dy:=0;
; Q6 ~! B  x) V                        --end;
                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];
; U" {1 f% z8 [8 @$ D4 T% N3 S                end;
" l8 k) [; p" n+ O9 j                dx:=dx+activityspace[1,rows];
                /*if mark=true then
8 l) {* {3 B4 ?6 x0 Y) i                ct:=activityspace[2,rows];
6 d; Y8 M2 \! H                        activityspace[2,rows]:=activityspace[1,rows];
* h, v5 L2 L- ]- }                        activityspace[1,rows]:=ct;
6 K( r! w' ]) Z# O/ J$ m                        end;*/
/ ?/ l+ S1 m! R3 O5 h* ?        next;
        y_max:=y_max+dy;
% b6 s- N* [& H        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);
+ A0 {+ N. W& c2 B" Z$ d/ `        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);
0 u5 f+ @+ ~, {       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
" x- f& d+ x/ D# I, u- E7 W! r) {                        if j=i then
' \" F: N6 i3 ~  K                                d_from_to_chart[j,i]:=0;
                        else
7 {9 F0 u6 W3 u7 A0 D# {+ K: x' y7 |                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
0 Q8 z& t6 e% G' [6 s: d% j                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
; X4 e6 u1 I& n2 O' x' }                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
. p' ^2 z2 @, L# n                next;
& y8 u* s2 \% t        next;
       
        lines:=0;
% I  I; E# n2 F        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ R8 }& i. T" |                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
, S% }/ v  U0 m2 \* A                        if w_from_to_chart[j,rows]>0 then
$ Y: b; z+ A! b( `4 T" J# P                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
) l1 n6 o" H# F% e                        partstable[2,lines]:=w_from_to_chart[j,rows];
# M2 _+ F. p# s! Y: Y4 p) t+ o; E( S# N                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
# {! J* x- e  m% z* ^                        partstable[6,lines]:=j;
                end;
        next;
+ m7 _4 w& [3 E        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]);
+ S9 O% Y) N2 H* x5 C. ?  p        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
) a3 V0 X, }: @4 v' X        machine.exitctrl:=ref(leave);
       
, r9 n1 K* }' S$ P$ m3 s        bufname:=sprint("BF",rows);
. Y+ z5 f8 _6 v( p9 S        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;
3 f4 e5 K8 Z' {8 _1 P        buf.capacity:=5000;
! m( Z& F1 ]5 H8 g" P0 b' z0 H        buf.proctime:=0;
# e, z2 ^2 \: M& e& n! s; O        .materialflow.connector.connect(buf,machine);
8 Y9 F% K  F8 {       
        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;
% r! _+ e- M& V5 b0 v/ Dend;
4 f  c# g( z. Z% M+ j) O