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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
3 O$ Q& P! U6 V    i,j,rows,lines:integer;
8 l: s9 V. \9 k, `    machinename,bufname:string;
    machine,buf:object;
do
7 n8 \* q1 _9 Z2 [& w0 v        current.eraselayer(1);
& I* O4 B0 O4 b2 I       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
+ @# [9 d5 z# p6 U* j0 G                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
$ G' j: k& l5 m6 ]- b                else
                        print"cancel";
+ H/ v7 H- ^% k                end;
1 a+ r  _4 Y8 T/ f7 L; A                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
( ?0 x2 x, h' k; ^+ P0 q                machine.deleteobject;
        end;
4 V, w0 H7 _2 S# S        bufname:=sprint("BF",i);
/ Z, Z  C, x8 c, V' n        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
$ s; U6 m! P1 F  u( S                buf.deleteobject;
% v5 M0 W. J- q1 w+ E7 X+ h- u! ], N        end;
        next;
       
        dx:=0;
        dy:=0;
& U5 ]8 r3 r0 T9 ]4 G  P" U5 \3 _        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, W; c# B  J0 i5 D2 a7 M7 ]6 n" C                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
$ M" K8 e  N( t- @                then
# b/ x$ |4 L- z! j+ y                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
& ~  C; ^# G' U& ~* M                        print activityspace[1,rows],",",activityspace[2,rows];
! T2 ~0 n0 ]- H3 _                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
, M4 Z5 _' p/ z( H5 C' j4 M# q                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
: _$ r; V! _1 _5 X# M                        dx:=0;
                dy:=0;
1 _8 G, m9 m  Z: D                        --end;
- o" O' \! N) }" O: ?. ?                end;
9 w* @/ q0 L5 f7 K  o                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
$ t; j1 u" M. Z. [# R                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
+ l" e! U- l2 S$ o3 f# N) X                /*if mark=true then
6 g. C5 X: u! {- e% K7 \" j9 P- |                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
: X7 v3 {! Q0 f  d2 v9 b2 v                        activityspace[1,rows]:=ct;
                        end;*/
' g1 e: L8 t: ^* |        next;
7 m( S* S/ m( i2 U2 R2 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);
        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;
        lines:=0;
        for i:=1 to number_of_machine loop
1 B  P6 ^2 d1 r, D+ Q$ p6 k                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
9 d4 a+ n7 A9 H                        else
* H: t6 m6 }) U0 S                                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;
" \/ V8 E8 x3 s- [& y                next;
        next;
2 r; h5 D7 w; Q6 t2 Y, m       
( `$ q- q+ R; g) U: `* G        lines:=0;
        partstable.delete;
' z; s  F( M: C+ W! d       
$ m9 T4 D7 K8 u3 d- @$ ?) Z' j        for i:=1 to number_of_machine loop
- n/ {3 B  H5 K$ R; }3 N                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
- r6 \" A" O% t# y% C8 h+ x                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
# J3 L7 T0 `# H0 C& P7 O                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
+ U. ?# ]1 [6 N; |2 e( g1 g                        partstable[5,lines]:=rows;
( w5 J# y( `- K: z7 |                        partstable[6,lines]:=j;
0 w$ z- Q+ f) T7 T                end;
        next;
% Q$ t. }! ]$ J$ |' z        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;
9 Y0 M# R2 M* S        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
3 A% v- n9 ^+ e) @8 u$ k" s* d       
        bufname:=sprint("BF",rows);
, T7 `/ r2 T9 C+ C" c        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;
, _; `2 [' E2 H* \8 s- M! n        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
" l( ^2 }/ g9 `, P3 b! q       
: }- w& g3 R8 }+ ^% U' w) Q# s        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
$ U4 H5 p& ^  f1 Z: mdy:=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;
end;