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

zooey

is
. ?. _# |4 C$ ^2 J        mark:boolean;
9 Y' }* k5 p/ s% W: d# S; S7 U- _        dx,dy,ct:real;
# k4 M( N; b+ }1 e    i,j,rows,lines:integer;
7 Q) }4 ^1 Q, _& H! F    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
+ f7 u; C0 Z) B. j; Q       
+ p7 i5 n. ?1 r7 N& T! T1 J        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
0 \; W' v2 q% {4 a, b                inspect messagebox("设施数目不对！请核查...,",50,13)
) a  M% k& v8 M& E2 S                when 16 then
( B7 D# S/ f$ w& b! X( d/ s                        print"yes";
9 ]! S) a8 @& v' l" s, s                when 32 then
# y! D' `0 G2 r- i( e' X                        print"no";
                else
8 H/ E/ u: N' k" I" z% C5 b3 d                        print"cancel";
" t1 E0 g/ l0 s1 Y3 {                end;
  f2 V1 q$ m2 o                eventcontroller.stop;
: V+ v% ]$ p0 P8 S; s# V" V( U        end;
& X) ]+ b6 r0 S0 r, q       
        for i:=1 to number_of_machine loop
% H( N4 d8 o: T  h" z        machinename:=sprint("M",i);
- e( n1 C* `1 U" M3 e        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
& W* l5 N2 m$ y                machine.deleteobject;
        end;
$ B1 U& j/ {9 n6 F  @        bufname:=sprint("BF",i);
# O( \1 F4 Q9 _3 u" |& W        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
2 u8 ^8 d) \# R+ j9 s0 J                buf.deleteobject;
3 H. X/ D! ^  r: T; @6 d* t4 X        end;
0 ~- Q$ o& c+ ?" A. o  N        next;
, P; S9 b1 h6 R- Z& `/ ?+ q% m       
: v3 x* G1 Y0 o3 G        dx:=0;
) B% t% M5 Y# }3 l: Y6 r0 k- |        dy:=0;
, d5 l" N7 g' `        for i:=1 to number_of_machine loop
$ l7 {9 o8 k1 {: a: H                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 O7 }7 R! i7 W7 H2 D                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
; }, m9 ?. Z! O+ u                        and activityspace[1,rows]<(1.05*y_max) then
- J' q6 e6 C5 F0 U$ X3 k                        print activityspace[1,rows],",",activityspace[2,rows];
* S( A1 G& M2 I( A                        ct:=activityspace[2,rows];
1 a( n0 u. o3 l0 ~5 a7 U# T9 E                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
- f- n. C  G' F# B$ h                        mark:=true;
                        else*/
5 D: O3 l2 g% b: M# G7 n  u5 Q                        y_max:=y_max+dy;
                        dx:=0;
( F0 d3 t4 H+ O/ J4 j. Q1 A( d                dy:=0;
; A) C3 D3 i0 ?6 h4 t5 R. V                        --end;
9 w+ M) P0 E0 B& T& w, e; D1 y                end;
+ d$ {* h0 l& J- }- G* n# h7 C. N                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;
6 Z' Q+ ~/ W9 C) a: k& F+ E# x            if activityspace[2,rows]>dy then
7 R; p+ c& P9 m                        dy:=activityspace[2,rows];
4 v& a" T  t- q4 A                end;
                dx:=dx+activityspace[1,rows];
/ g, k5 J, b) b. [! n                /*if mark=true then
  r6 E& ]$ B2 ^; }/ i" S                ct:=activityspace[2,rows];
( v) z3 j: |. K5 b0 s                        activityspace[2,rows]:=activityspace[1,rows];
5 G, r0 {  s4 I; ?1 U, i9 n3 o1 u2 U' \                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
( \- L! p2 `+ a7 V        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);
. K: t8 }( y, l$ }, @; J        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;
& t3 p0 V* s4 V6 Q7 H# X  q        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
& Q. D% ?, d6 E5 k, h' G/ F6 p! c                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
0 g' Q5 N2 |' }/ x4 h& i                        end;
9 n7 X0 H3 z; ]8 w. m                next;
' K* `% m; z# J# ]$ ?        next;
3 }" `% K5 q/ h9 @       
+ c( C( G4 ^' y" T5 z* \        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ q+ L. C# c' o                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
+ a# [! J, |9 X* D) T4 h3 p* ^- _$ t                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
3 I- e7 P. L9 U4 i, |) I; \                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
6 V# q2 [: g$ u3 b                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
. a/ P. Z& ~% c- j, y2 }; x                end;
        next;
        machinename:=sprint("M",rows);
/ W" E' y, e6 q' g9 y4 R        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]);
( v# S$ X4 G  f' x6 L' p        machine.name:=machinename;标识符未知
        machine.proctime:=5;
4 @1 |7 j% b3 P' |8 E: U        machine.label:=activityspace[0,rows];
/ C6 T% s+ f  M) r) ~; a        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
; V2 q! {3 L0 @        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;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
6 K! P- \+ V. l9 [3 X' t2 K        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;
% A. U# H* \3 `current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
" G0 K9 n3 H* S& U1 Mend;
5 C9 x) C4 [# S, y