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

zooey

is
        mark:boolean;
5 }! w) U3 e$ ~6 b" B$ J        dx,dy,ct:real;
    i,j,rows,lines:integer;
1 x0 ^3 D$ s( ]0 m" l    machinename,bufname:string;
    machine,buf:object;
do
5 @, k; l# t! f        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
, |% W% v. `6 ~% j) Q: K% {                when 16 then
- ?; J8 }# S# `. E) G                        print"yes";
                when 32 then
% b: M3 X. E" `7 a                        print"no";
                else
                        print"cancel";
! s- C) H, O/ ^# E                end;
                eventcontroller.stop;
        end;
; @) M9 R; c9 ~' D; f       
        for i:=1 to number_of_machine loop
* ^' a. l1 A. A4 f6 o. O' k7 v0 f        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
' ~4 J- W# X' T9 h' D7 G8 M' j                machine.deleteobject;
/ n: i" p1 ~, b9 @6 w; p: T0 i        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
  s/ t! z! W7 L# F! m) X        end;
        next;
       
        dx:=0;
( O! ]$ F* [) K+ ^& Y        dy:=0;
- S1 U' W# F* K# u- ]+ n        for i:=1 to number_of_machine loop
9 d* V+ I1 x, w/ _0 T                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" o" |4 U! r$ ^5 B' v- w                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
3 P3 H/ B3 q6 |, G                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
6 P- K0 P/ |5 t/ q1 g. @9 [/ |/ o                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
; Z+ H: x0 a2 m" X/ H' q                        ct:=activityspace[2,rows];
( X. `* F7 ]- d3 v! s, E* N! b- I6 r- K                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
- G3 b* t6 p( v2 J! ~                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
0 ?: S7 @* v8 C8 s/ ?                        --end;
* ~/ O0 j% X0 O0 {$ g" r$ E& m6 b                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 [' q. {3 W: ]. ~                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
9 y5 K1 g- h9 d6 l+ ]) z                dx:=dx+activityspace[1,rows];
# U8 A8 `& F9 L* W/ ~1 C                /*if mark=true then
' e& X, B2 Y% C% @                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
2 ^) g8 Y9 U/ B3 n                        end;*/
        next;
6 D! e) V2 V; w4 |5 a* W1 e        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);
4 a& w5 A9 r2 _. K        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);
  M$ b, ^2 T- Z, }9 \; C       
        rows:=0;
+ |9 c4 b' i8 z, O8 r        lines:=0;
& P$ G2 Y! z% v$ p$ |0 Z        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
' N7 W; F& o. L1 g/ C5 v                        if j=i then
$ e/ k4 }# k% ~1 U: y' a& d                                d_from_to_chart[j,i]:=0;
                        else
0 P3 w0 V5 ~9 z' j+ ?' B! I                                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];
$ i3 o" ]) V0 e9 Y0 g7 l) ?# O0 Z                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
6 N! @+ v9 O3 H. q) C: L                next;
* \) C, C, e0 B& J( l, s  P        next;
       
        lines:=0;
* B7 e6 W# R, \8 d4 W/ l9 Z        partstable.delete;
       
( ~1 s+ v: `- d" I3 q' F        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
# h8 @) C$ g: r  {                for j:=1 to number_of_machine loop
1 l7 L- G" l8 i3 M0 q( W                        if w_from_to_chart[j,rows]>0 then
! R  J& S# ]/ @8 ~; P0 q; T7 T                        lines:=lines+1;
. O% T9 F/ t! ?- r$ I) j. w( t$ L                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
) G" F3 l* H% p% x9 U% b) F) J6 k                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
( O' h4 S- B/ |. ~9 h                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
, R* a5 i. b& t' @# D" J        next;
3 E9 A8 P8 P/ k/ I( Z, q$ `" ?3 A        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]);
; |% J% X. |  F- J        machine.name:=machinename;标识符未知
/ @+ B' h/ b* h3 n* ~/ _( O  ?        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
! k9 |. J2 u! Y! z2 }/ Z        machine.exitctrl:=ref(leave);
, I( y& z1 ?$ U# q# u       
        bufname:=sprint("BF",rows);
- ?3 J7 S* s' O+ @3 `        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]);
( m* o7 T( M) @0 T8 Z4 ~        buf.name:=bufname;
8 B" ~; M5 U4 J; b# O' u! Q0 I        buf.capacity:=5000;
, Q# y" J( P+ W% c, R        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
' k# V* }2 b8 m9 c       
2 V. \+ c: ^* @8 F7 G. t        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
  Y/ _) b0 q" \/ i& d3 C% b& Ddy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
$ \# _4 Y9 U" s8 J& X/ N0 g4 scurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
7 l) Y: H0 D. J  ], g; k