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

zooey

is
        mark:boolean;
8 G- u* G6 h' j1 B* e        dx,dy,ct:real;
    i,j,rows,lines:integer;
) E: W" G' V  G5 y: G& B    machinename,bufname:string;
    machine,buf:object;
# r$ `' I+ G- r" A: J; h1 bdo
0 e" M+ O3 F$ d) A  T$ w        current.eraselayer(1);
- I  }% k  Y, X: |6 h       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
: U/ j9 T8 u8 q: c  B                        print"yes";
                when 32 then
                        print"no";
# C, `( W& c4 I4 m                else
" p# X$ |1 d9 M: k                        print"cancel";
: [* H0 V& M0 d                end;
+ x$ \6 h. c/ q  D% I. }                eventcontroller.stop;
        end;
       
+ z% L. e$ o5 m        for i:=1 to number_of_machine loop
2 p+ w1 T& r! W        machinename:=sprint("M",i);
6 S+ u7 i+ N. V* H        if existsobject(machinename) then
% n. h9 g- d% k- A  n3 p                machine:=str_to_obj(machinename);
0 w+ G' `& h5 W) k# c" C                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
$ [% }8 {! x7 c/ [8 P                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
# r' l; \; D% Y+ [                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) M+ w3 J( I4 ]) [  m+ n  ~                --mark:=false;
8 g# L: n  Q' H$ ?3 N                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
8 \) v+ Q0 k2 {  a- \/ ^% H5 M8 c- ^                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
: b/ N1 Z- z' v# R( r9 Y                        else*/
                        y_max:=y_max+dy;
* l* t: q# a, A3 r                        dx:=0;
: e4 V& O" n5 ?% u) K                dy:=0;
' {: g( \$ l+ V( E9 m1 T                        --end;
% N8 v& c: Q9 |9 m                end;
: |5 J. y1 V- D                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
, R' n* v# ]# s                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
8 s5 \6 z$ Z4 K& u) S0 K4 E* T& T            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
- a$ J) Z" S& I  j/ z+ L                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
' n5 u( ?" u, z/ `. G! Y( X                        activityspace[1,rows]:=ct;
                        end;*/
4 Y1 [9 X  D+ r2 H        next;
, M# k$ i: u6 ^1 ]$ L        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);
       
8 f' E3 k: J* |* A        rows:=0;
; I2 O  K  _5 g; W: M0 o        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
* Y5 H6 r9 K% N9 f& P- p                                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];
" `, o" @2 s4 o7 i) B: A. U1 H+ ^                                d_from_to_chart[j,i]:=abs(dx-dy);
0 P& V" n* j' w5 Z6 z                        end;
                next;
        next;
0 b# ]; b$ @5 s       
8 l! T: i# m! C* W" D; F        lines:=0;
        partstable.delete;
       
1 [' y. f2 \' U$ U6 A# A% [        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
" U2 K% a( k( U5 I' @                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
9 L  L* W# G, f: J2 W# e                        partstable[6,lines]:=j;
                end;
+ ^- K( g; C5 d- L' h) a9 R$ F1 c        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]);
        machine.name:=machinename;标识符未知
( G0 T/ p/ Y, D        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
0 Z- Q0 z# W- W; c        machine.exitctrl:=ref(leave);
2 \/ j9 t8 p8 X$ s- l       
4 a7 O- X- v! s3 P. w        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]);
# X- q2 [# ]2 U% V3 I5 \        buf.name:=bufname;
1 w6 \( S5 c6 |% {, [# V+ N        buf.capacity:=5000;
9 p2 S3 J2 |0 `& H        buf.proctime:=0;
% c$ q/ s% R. E4 j. X  v, f        .materialflow.connector.connect(buf,machine);
       
/ H8 [/ v1 i6 i( M/ \. A( ~) N        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
8 ~/ ]' A, C, U4 I1 J2 ?, Idy:=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;
: [# C" U. ?; V. B; z4 fend;