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

zooey

is
/ R/ \8 ]: g# u: G" h( f        mark:boolean;
; Y! K9 a2 p% E! `" \. C( Y        dx,dy,ct:real;
: Q$ J/ P+ e4 Q7 c/ ]7 ?2 \* J    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
  v, L9 D4 a& F  F! q& odo
        current.eraselayer(1);
# m" i1 J% L% {& F+ M" z       
1 r$ d3 p' Q: J' j/ t! l        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
7 L3 m# T8 n" b5 b' @8 E                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
! t; t; ^4 e. Q% \1 Z# R8 @                        print"yes";
                when 32 then
                        print"no";
                else
6 C/ ~$ E! L, C7 \" I' o8 h' `                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
3 W+ E* T: J& E* a2 h        for i:=1 to number_of_machine loop
0 a- D( d$ u, w+ K! A8 H        machinename:=sprint("M",i);
        if existsobject(machinename) then
- E6 N6 y0 }) ]) W0 W( A                machine:=str_to_obj(machinename);
  y4 n, D7 S# d! s. u" X0 t3 T  N                machine.deleteobject;
2 F6 F/ O* a& S( Y4 |$ S/ J        end;
8 W" v  U" g& {8 Y" Z' |/ O6 O! g        bufname:=sprint("BF",i);
        if existsobject(bufname) then
6 i. z. H# [7 r9 T$ Q3 W8 I                buf:=str_to_obj(bufname);
! a( E, B( x: y6 h                buf.deleteobject;
! @* Y" O! c! J$ @0 v3 s        end;
3 F8 R! C& _" e$ H& _        next;
/ l; Q! `# e( d8 p! e' o       
        dx:=0;
" a$ K8 F2 b, h$ E/ i        dy:=0;
1 [- f$ f, x5 L6 n, K        for i:=1 to number_of_machine loop
/ d. }( _& n5 i' h) G% X) S1 Q                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
1 s- ?/ M, }3 [                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
. U' p7 P# M9 g' _                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
2 A2 ^+ D* {% s                        and activityspace[1,rows]<(1.05*y_max) then
! M" a1 s' e! s. R                        print activityspace[1,rows],",",activityspace[2,rows];
9 N9 s! I# x5 f, W/ l8 E                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
/ i6 s6 b4 p! w/ G                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
, ^2 }5 X; h* @8 D                        dx:=0;
                dy:=0;
                        --end;
2 z% H3 \. q/ H                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
1 z  N0 i. ]  n" E/ b8 [2 I                        dy:=activityspace[2,rows];
9 b8 v+ U8 X. f                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
# b8 v% s7 ]  M/ K; A( r                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
7 K+ `3 u0 p8 [9 _1 ?$ L: n        next;
& y; h& l  H7 b        y_max:=y_max+dy;
7 H/ y8 l8 X5 B8 E7 V; o2 g/ O        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);
, X2 j- d: x! W1 c- V0 c; W        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);
       
8 q0 y/ b- M! s6 x7 _. Y9 u        rows:=0;
! a% O1 n& D. o6 _        lines:=0;
9 s' u) S1 F4 x$ m8 j9 f( N% L        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
7 K1 m1 G1 B# w% r7 ]                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
& e3 G1 u* n2 J; H7 V6 Y$ f                                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);
                        end;
                next;
9 J, O9 n; c  D# S/ u        next;
- N1 X" @* v" O6 q$ E& L       
% l& f  Y$ F, B  m4 C& c+ R        lines:=0;
        partstable.delete;
/ u0 o1 a- S# X5 {       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! b) \* Y+ o( G4 M" b# W; O) ^3 Q; @0 N                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
4 q: ]) V2 f7 e; L$ ]                        if w_from_to_chart[j,rows]>0 then
, k$ r1 W! i% [; b4 k6 A                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
( K: R9 ?1 j# H5 r! Z+ ]: I# k7 A                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
8 n# [& k% x- {5 d$ {                        partstable[6,lines]:=j;
                end;
        next;
        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]);
% y2 G9 i1 a$ ~9 Y7 e        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
) j2 V& l7 y2 M" b4 n3 D7 h        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;
  E8 Y+ Q$ V+ i5 ?        buf.proctime:=0;
4 I% ?+ k0 K$ P9 T9 a        .materialflow.connector.connect(buf,machine);
       
. Y# s# ^0 p: n        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;
- J& J, W' l  [+ }current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
) t- t2 G, ]# nend;