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

zooey

is
) o4 K/ `6 M9 E( l" l* z3 z        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
* t5 g% r$ `" ?! e0 @0 _    machinename,bufname:string;
    machine,buf:object;
do
8 u: c. f; S; ?" K4 z# c! Y( }$ c        current.eraselayer(1);
4 Z3 k. O% o. X$ B- I! K; a2 f       
3 W/ t1 }5 H3 T4 s        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
: ]3 D0 ]" O% E( _! R                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
8 z5 Y, }- u7 _. O8 v- J% y/ \4 ?                        print"cancel";
                end;
                eventcontroller.stop;
        end;
8 r( N( _9 `9 Y: b  ?9 O       
8 x' P; r  Y/ F  G' f. w        for i:=1 to number_of_machine loop
1 E1 Q' ?" {. V: {# j  h+ ~        machinename:=sprint("M",i);
2 g/ @% H# U, o- ]0 D1 n% E        if existsobject(machinename) then
% G: w3 B7 e/ w1 b/ n- z+ g                machine:=str_to_obj(machinename);
/ {7 p8 J  u  g2 I8 w0 \. J6 O: j                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
  J+ F7 R) ~: C                buf.deleteobject;
; L# v% P7 F# C( s! z) M9 D        end;
' s9 P; }4 p/ x        next;
2 }% |/ z$ q* i& p1 e       
9 o0 R( S$ B+ g$ t: P7 Y        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% n; d' u& X! J: U* z                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
, a- ~/ k+ g( }. p  _% E3 R' M                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
: ?4 {2 d4 U( V8 q                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
: S% V7 x6 Q6 i3 E1 j" a                        activityspace[2,rows]:=activityspace[1,rows];
2 a" J0 f* h! p) `                        activityspace[1,rows]:=ct;
                        mark:=true;
8 d, e& C' |, c  {' i                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
9 g5 {- @+ p$ a/ E( |7 t  o& O                        --end;
                end;
. H+ H& J1 T' @                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
5 L- {4 M/ o( D5 F/ x/ I: y( z                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
, Y. t6 r# e+ H& n" D4 a4 K( X                        dy:=activityspace[2,rows];
$ k, O! X; p) k7 Y                end;
. l0 m7 _  X  a# \. ^$ Q- q& S                dx:=dx+activityspace[1,rows];
9 [! V# L" r# o7 M3 }5 x4 A                /*if mark=true then
                ct:=activityspace[2,rows];
' J6 B8 K$ O8 S# F5 E" R                        activityspace[2,rows]:=activityspace[1,rows];
7 ]! C5 V5 e4 c7 Y! s) ^/ G                        activityspace[1,rows]:=ct;
3 g* F, m5 y& D5 D9 t* E                        end;*/
3 y+ r+ c+ |2 G2 v- v* _        next;
+ _0 J3 ^) _6 o3 }        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);
! z2 f3 y6 v1 q- x; C        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);
       
% u$ h- U1 l! J& v, R5 i        rows:=0;
% K  b# O/ J* R& [        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
8 V  P/ P4 _  m- j' Y' J                        if j=i then
                                d_from_to_chart[j,i]:=0;
0 ?7 h5 f8 Z# V1 G& d                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
4 D% h8 x5 f* ~5 n) g* w                                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;
, [8 P4 h0 t. T  T/ V! t; c                next;
0 l1 T# p# d1 }4 Y6 i6 `- [+ H        next;
' |4 q9 G5 j, r2 f7 o1 A       
        lines:=0;
        partstable.delete;
       
- N$ G7 M) m0 N( z2 u- r, W        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* V3 o. @4 R3 O, x+ r  W0 M                machinesequence[2,i]:=rows;
5 ]* ]& |' r' W                for j:=1 to number_of_machine loop
' \1 {* |# P  b, M/ ~                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
) d7 P7 S4 z4 ^& s" G$ G                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
' M  i9 i0 b3 t+ b) R                        partstable[2,lines]:=w_from_to_chart[j,rows];
  j! l% M) e+ ?6 W+ M( O. b; C                        partstable[3,lines]:=sprint("parts");
  o" u. h$ O* S$ r. w                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
4 ~- G, ]6 [+ D  O% Q1 e                end;
        next;
# i9 r8 S5 N" \        machinename:=sprint("M",rows);
; M/ H9 ]" L3 h! Y        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;标识符未知
3 S2 l2 B+ c1 A- Y        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
6 H* r5 w6 i+ ]2 \) ?* l7 I6 E        machine.exitctrl:=ref(leave);
9 k2 I; m: r8 G+ u4 F( t$ d       
4 h- G* m/ ^! a        bufname:=sprint("BF",rows);
% S6 d+ g' J9 \" N% @        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;
4 [. C* b/ k' A3 h' Q* Z        buf.capacity:=5000;
        buf.proctime:=0;
/ M0 r; a1 M3 o8 v7 c        .materialflow.connector.connect(buf,machine);
       
* R  x) u: t6 h& `6 [; S        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
% ?% X: F* B" r9 J- ^dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
. @! [. o5 @2 \5 a' _" L; ]current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
1 Q  o4 E0 K9 {7 v2 U: inext;
end;
1 v0 ?1 f( f5 o0 n