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

zooey

is
        mark:boolean;
1 r& U5 `) E! P  t+ f        dx,dy,ct:real;
1 F7 a) a6 W' ?. _4 C    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
& d) U' n9 |# w# S* {7 a) I) K2 ]do
        current.eraselayer(1);
7 ?+ O3 _# {* r+ o       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
1 g: h" V3 q3 f, G! @; [/ T                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
* }4 D! x$ A6 J+ w* C9 d                        print"no";
, s, V7 C, s# F0 M( T                else
4 I# B( U' _. V                        print"cancel";
                end;
                eventcontroller.stop;
        end;
) Q2 s8 I& T( a. |7 y) V) z       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
. h4 u) K+ X" E+ ]9 ?# j; Z        if existsobject(machinename) then
8 l; @$ f9 `* M- `7 ^0 Q                machine:=str_to_obj(machinename);
# A1 b: {5 Y' d; G9 w" K                machine.deleteobject;
        end;
0 h4 }1 s4 n- \& J        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
" g; L: E  g. s2 H                buf.deleteobject;
        end;
        next;
# s' S4 @9 h# g  b       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
! E7 `& _/ ?. h3 Y7 [! k                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 e/ p" c* }( g( _. [                --mark:=false;
" H9 ]4 c1 q8 P0 @; R' F/ N                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
5 H+ W, U' X1 d- |                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
& J1 x: F, q) P                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
. h. {9 ]4 {( Z% G- }0 X                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
& @* Z- D- o) r& [4 L4 q                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
3 A- s! U. I2 A7 G* c: I                dy:=0;
! p. b- ^2 L4 N% E9 `. f: Y                        --end;
6 z: R/ H( f+ B' r9 a! h8 }% `1 ~                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;
( v4 B4 g+ r) V# v, [& B) H, l5 y: X            if activityspace[2,rows]>dy then
# ~! F8 W* Q+ k# |                        dy:=activityspace[2,rows];
                end;
: I3 z; p- e- o, H9 N" ?4 X                dx:=dx+activityspace[1,rows];
: u' `4 G! Z. C5 o$ L( u+ o  z                /*if mark=true then
! R( V' `3 p1 q4 A; o                ct:=activityspace[2,rows];
3 k2 K: R$ Y4 x: @                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
$ K6 B! v3 H2 q  f        y_max:=y_max+dy;
- }2 l* _& H" J& N9 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);
4 r/ H4 y& a+ Q4 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);
       
        rows:=0;
        lines:=0;
/ ?) K; R% e; ?2 G# I        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
, g' r4 Y# e3 ~- I                                d_from_to_chart[j,i]:=0;
" a5 i- W5 s) e) @                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
- H; {+ G' C* C7 _                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
2 T% Z' j' ]0 h2 w) j; z                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
* d* y& q4 o$ ^3 l                next;
7 Y! Q0 c+ [/ S. i* _        next;
1 W4 u5 M. f  U' P  r9 Q       
3 \+ e6 V( G5 Q4 ]        lines:=0;
3 ?( M- ]" D8 h" [        partstable.delete;
' E0 O" R  V& J" ^) C       
* P% E# _1 k9 G! z! N        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 D; A8 y# m* \# L2 i" q2 L2 z                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
( t0 n: w5 n# H$ b. L                        partstable[2,lines]:=w_from_to_chart[j,rows];
/ ?6 K) b0 p8 H* T' V$ z- v                        partstable[3,lines]:=sprint("parts");
: @, T' v* ~: Q7 X; D                        partstable[5,lines]:=rows;
4 E/ G' |6 P1 g9 F' |* \" X                        partstable[6,lines]:=j;
                end;
. y. X, s( C- T3 m# N  K        next;
# A7 r/ p1 L7 m6 K        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]);
( W4 U& ?7 R0 e: f* D" A7 H. o        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
; y, v+ ~6 G$ M! N0 K  D3 k" T        machine.exitctrl:=ref(leave);
       
5 `+ b% v3 g3 F; K( E        bufname:=sprint("BF",rows);
( Z: r5 Q- x3 u/ ^        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]);
+ a  ?1 B' l# R( W        buf.name:=bufname;
) I8 v& T# J0 x; Q% s        buf.capacity:=5000;
0 m4 k' ]; W! z# e        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
# X% e, J5 a  w6 B. F* ]* A       
9 m2 p) k% _# `1 @$ g( z  `        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
* a, U4 P; B( M* ?1 E' e% |& |' |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);
* `( V% J6 ]# g# C( ]next;
end;