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

zooey

is
# L* |" i- @$ X: g5 @        mark:boolean;
2 g# ]% Y/ Q1 @( X        dx,dy,ct:real;
2 ~# s7 y6 v: A# c6 @# B  `    i,j,rows,lines:integer;
1 _: X7 J4 g$ s* j6 Q    machinename,bufname:string;
1 |7 h# q8 d/ r! T, K! U  c    machine,buf:object;
$ @. q6 k, D# y# o' V- _9 n9 Zdo
9 B/ U; `) u! b( Y$ T        current.eraselayer(1);
       
$ S% g- \, B  b+ d- S# E# v+ ~. H        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
& p9 _7 t8 \6 D+ s5 O! r                inspect messagebox("设施数目不对！请核查...,",50,13)
3 I% U" q0 o0 T  X; f7 v# L                when 16 then
# b2 _/ o. j3 t( z3 x! _* B                        print"yes";
                when 32 then
                        print"no";
                else
2 F- N( U) @# i1 @0 N) k: J" o& j" B) M                        print"cancel";
                end;
; V4 F$ Y+ E# ?3 E2 M; j: V; T4 r$ \                eventcontroller.stop;
1 p" N! U2 {4 r6 A2 J% R6 B        end;
. V# D; n* A6 i9 }) v       
        for i:=1 to number_of_machine loop
* z- O- `3 J. Z5 D6 ]8 p+ Q        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
; }8 G' Q; I0 n% C- v% _                machine.deleteobject;
8 H. Q5 a+ j* j8 {/ F! U        end;
. m$ Y4 S1 j+ H. b/ W$ m, V        bufname:=sprint("BF",i);
( d! P& ?& v# h        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
0 f7 D1 F7 v( \5 [                buf.deleteobject;
5 K9 T8 w& s3 y* n$ L        end;
        next;
- ]# r& L, y4 J       
( i- J) k/ z0 x! m; t) L9 H6 R        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
3 j* Q& e" P5 m6 ^% t: ~3 N                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
+ M9 P8 K& \! S. ]; b                        ct:=activityspace[2,rows];
3 `- @) v( Q9 A! {                        activityspace[2,rows]:=activityspace[1,rows];
& g4 u- I' `6 [. P) \- F                        activityspace[1,rows]:=ct;
4 i4 m9 k& B" M# G! V- `% L+ `% w                        mark:=true;
! \8 B# r1 q* E' q                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
& z* K! E  O1 Y' f                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
1 B3 A; V+ i$ U) y) K4 o8 t                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
9 z# [) c+ P/ n) ?                        dy:=activityspace[2,rows];
                end;
: ?3 a& o( _  V% B1 p                dx:=dx+activityspace[1,rows];
, o9 |: }+ Y' m6 p6 N                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
& j6 N- }7 [! N8 g+ p; H- S                        activityspace[1,rows]:=ct;
                        end;*/
! {( O9 A& R# M0 ~+ z% H        next;
        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);
8 x7 `8 K$ w" z8 f* _' v  p! }8 h        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);
; ?$ x$ i" i$ v/ s, B       
        rows:=0;
; @' O0 j- p7 m. _' r. C2 ^0 N        lines:=0;
        for i:=1 to number_of_machine loop
4 B! |0 L$ t% j& i9 f3 S                for j:=1 to number_of_machine loop
                        if j=i then
, A' Y; I2 P6 i6 d- l                                d_from_to_chart[j,i]:=0;
, Y3 x; Q3 I6 a- `' x; n                        else
# K% `  u+ a6 L3 O2 k                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
- ~! A( F( n# G$ j9 ]3 q# E, j/ W3 D                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
+ }) ^5 Y  e' S! e& k                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
1 ^' g5 P  T1 U7 F                next;
        next;
       
1 f. X# b1 V5 i- b7 p        lines:=0;
        partstable.delete;
       
' R6 N6 X3 X6 Z! |0 s        for i:=1 to number_of_machine loop
# j5 S7 \6 V  i5 ]  M                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
( E% z1 S6 D& {6 d& o& \$ a. r! t. t                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
# g$ ?7 [+ m- W& w' q                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
* F; V% T8 t, j/ |! N  E                        partstable[5,lines]:=rows;
& I% f$ N1 H7 f- {                        partstable[6,lines]:=j;
                end;
4 B% A( H$ z) l/ H        next;
1 [3 ?3 w5 V3 l7 m3 ^        machinename:=sprint("M",rows);
2 B2 ]% g1 c! J% N. z+ M        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]);
, w, c! [0 X+ G; N9 R2 ]9 d        machine.name:=machinename;标识符未知
. X! t4 w) m$ Q        machine.proctime:=5;
+ |2 \& G0 A2 h% o# g        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
) j* Z# X+ R6 b8 ^* F1 h6 a! |6 U) n       
        bufname:=sprint("BF",rows);
        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;
% t- E" M& [, x4 ~# P        buf.capacity:=5000;
        buf.proctime:=0;
/ n. W  k7 o# A* S1 V+ j        .materialflow.connector.connect(buf,machine);
6 @; Z2 V  e' {+ G7 `       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
7 U3 h9 n; }7 T  W) v* Bdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
. J/ c' Z! l3 ~$ K* U# }6 m" b' xcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
" v6 H, O. U- {" S( b& [6 W& X