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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
1 m* v- i! V# l6 I    i,j,rows,lines:integer;
1 W2 C8 Z/ B! k/ @8 F! P    machinename,bufname:string;
2 y, ?' p& {* b    machine,buf:object;
do
        current.eraselayer(1);
& }2 o% p) U1 V, W* z       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
- c/ L) I$ A4 o  W- i- v4 G                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
6 d3 ~5 E/ H) j! J( R                when 32 then
4 m0 C1 C& S$ r8 @  r# g                        print"no";
6 I3 n5 R1 d; E8 @/ {                else
5 u" h, \1 V. |' m; B  t- A                        print"cancel";
                end;
7 K" ~& {: u" y" P; }! `: S                eventcontroller.stop;
: |0 t0 T$ K! e' X* S: O8 _        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
* j: }! u2 s! z8 u+ V8 g        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
* F$ A9 r4 @3 [1 _# e2 \        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
. h2 [( ^& b2 G# j4 e' c5 ?        end;
/ _+ U$ P( p7 i" S6 c- _        next;
6 y$ W3 q; }: B- q7 n6 q       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
( }8 U/ Q6 Q: Q" R. ]3 p$ @                rows:=str_to_num(omit(machinesequence[1,i],1,1));
  i) m+ |8 ~& ~! L) k& ]: B                --mark:=false;
$ |: d% E, k  P! V: s- D# a( q                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
7 U8 ^  |9 N# e( }                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
3 V3 k3 s0 r9 K1 q9 [- s4 A4 t3 P. j# W                        and activityspace[1,rows]<(1.05*y_max) then
# ~7 R7 v2 A: ?, K2 M3 C3 Y                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
$ Z/ ?6 v. _5 ~. y                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
9 b7 f" Q3 L  F! v; |6 ^                        mark:=true;
1 O, _0 V& M7 J5 F                        else*/
                        y_max:=y_max+dy;
$ x+ x9 Z2 @: U7 u" y8 `                        dx:=0;
7 E+ G7 a8 a5 z# O                dy:=0;
, P! X1 L% v# q6 [) f                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
* b. @: R+ p. J* X+ a                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
# S7 z9 X/ G8 d8 i            if activityspace[2,rows]>dy then
" d/ E+ t$ Q* S# p: z                        dy:=activityspace[2,rows];
6 f5 s4 U8 r! B* |0 M                end;
* v7 E3 E! H, {7 h$ J: f                dx:=dx+activityspace[1,rows];
                /*if mark=true then
: l8 y- H9 V- j( K  l% X3 L                ct:=activityspace[2,rows];
% c1 Z5 V$ g. r5 v' i: H                        activityspace[2,rows]:=activityspace[1,rows];
+ x$ Z' v+ S, L; y& e3 T                        activityspace[1,rows]:=ct;
8 _4 p3 ^- y0 W' h" k- V                        end;*/
        next;
        y_max:=y_max+dy;
; S. x) H# s8 `        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;
! d9 y3 M+ S+ Y% L: X        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
* \% K8 g3 T2 \& L; D* k; h1 D                        if j=i then
                                d_from_to_chart[j,i]:=0;
9 ]% {9 s# ~0 s/ w/ \! }                        else
- J3 ?  U) Y% _: @4 N: N                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
! T" U! E& U4 T# h* X. W* x9 `                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
* U/ A2 @; ]( n5 q                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
/ e) n6 x/ L% t7 K) L* S: e* W. v                next;
        next;
0 k( j; [% d9 b0 j9 c$ B       
4 l/ R/ @: b8 Y0 j2 c9 @% F        lines:=0;
9 T; @# n; u( C+ Q        partstable.delete;
       
5 v, b$ ~: v4 B4 x        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
1 V+ }! Y% _/ a! O8 k/ d3 V% K                for j:=1 to number_of_machine loop
) {: Q1 U( P% m                        if w_from_to_chart[j,rows]>0 then
3 l1 m! ^4 }  F* |/ C! _                        lines:=lines+1;
# w8 m2 r- Y& t                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
: }& [- p: x' b3 O- Z" y' g- F                        partstable[2,lines]:=w_from_to_chart[j,rows];
+ k) Y8 }6 `: Z2 |                        partstable[3,lines]:=sprint("parts");
( P3 U5 E5 A7 Q# X& J5 A                        partstable[5,lines]:=rows;
$ T( w2 x4 u; Q- F( Y                        partstable[6,lines]:=j;
                end;
        next;
' x) m( c  ]' Z3 }9 l6 [9 m; J        machinename:=sprint("M",rows);
. K3 z% R: _7 R3 N' i        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]);
% t# P' J8 \; M; p( v        machine.name:=machinename;标识符未知
  g1 T$ R; H0 P* m9 G! n! c* `$ Q7 n        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
7 g  [  B4 {2 u8 N0 d        machine.exitctrl:=ref(leave);
1 ?! K3 b- b, L/ f" K  q- q       
; K" _% Z: v# P/ B        bufname:=sprint("BF",rows);
3 C! C6 m# I8 d/ X        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]);
7 j% W1 U! C* f        buf.name:=bufname;
* _' g4 m6 _, u- g" N7 C        buf.capacity:=5000;
        buf.proctime:=0;
2 ?/ i( y! X1 j& s: R5 z        .materialflow.connector.connect(buf,machine);
! j/ Z) k' w# a) R" Q       
        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;
/ n. U; Q% O% o/ \" \, Wcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
1 P" K( d$ T3 E) ^( z* Mnext;
9 U" \4 Z$ J6 Y% L. s% h3 {, Jend;