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

zooey

is
        mark:boolean;
5 @9 v( @. Q! ]5 ~7 E# L; m: K        dx,dy,ct:real;
% {: W/ h6 }$ e    i,j,rows,lines:integer;
* ^+ j4 q) ]2 a  B+ k! L, P. |    machinename,bufname:string;
, P" T+ Y+ ]5 @7 }$ ~, X" m    machine,buf:object;
do
9 w" w( T. f& t2 ]) ^        current.eraselayer(1);
. [2 ^" _" I6 ^, h/ @. _9 ?! K, Q! t       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
  p" h9 L7 H, ]9 {8 `) R( d                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
. C# z- }4 d, `+ J( o" P                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
/ r' |5 v) }5 y! g! g        end;
       
1 w3 h7 A- Q/ a5 @        for i:=1 to number_of_machine loop
; [, O# \9 S2 l& @: E        machinename:=sprint("M",i);
& u. U! r, B* _" ~9 F        if existsobject(machinename) then
0 k. Q0 T6 O# p- B4 |                machine:=str_to_obj(machinename);
9 i/ h( L$ A2 @& Y                machine.deleteobject;
        end;
1 }1 ^2 _% t& _% s        bufname:=sprint("BF",i);
- N/ M: N4 s; v9 f; ~) t9 H& X6 Q, M        if existsobject(bufname) then
9 q& K$ a2 s+ o: W                buf:=str_to_obj(bufname);
' z, o& L9 n5 Z! D; b5 Y                buf.deleteobject;
5 O2 Q) T( F; h! k        end;
        next;
       
) Y7 c% k: k( y( d" g/ U        dx:=0;
1 H5 w9 \/ J1 m( X: F& l        dy:=0;
* M- {2 \2 G+ ]+ K. ]* U        for i:=1 to number_of_machine loop
' X4 P4 R4 R5 P- }! i" Z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 P. C' h2 m6 T9 r& O                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
  g1 U% r0 C' |) S: I& k" J8 J2 Z                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];
. F0 ~5 G1 R' S% A  x2 j; K                        ct:=activityspace[2,rows];
! K$ A" c$ ?( L8 K                        activityspace[2,rows]:=activityspace[1,rows];
$ T' D. t% x9 [1 t) @% l                        activityspace[1,rows]:=ct;
2 z# r9 O: ]: ^2 c& G" R                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
8 R# @0 F3 R5 _- Y# c$ @# W6 n' m5 @                        dx:=0;
- g- W2 h8 A/ h7 o                dy:=0;
                        --end;
9 |+ R! J; n& V' w; R                end;
$ u" D- V) `" _! x) x) s# M                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
; A7 D7 P; \6 |4 y/ F/ g4 W2 x& e4 W                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
; A1 V$ r8 D+ ]/ q" X/ k            if activityspace[2,rows]>dy then
( R+ V& ]1 N9 |% {/ d* ]+ r                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
; ?' a0 `2 K' Q                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
% ~9 {2 @9 y% X                        end;*/
4 Y# F* X9 E) `; Q6 s9 U        next;
        y_max:=y_max+dy;
( ?9 T2 d, \6 P& ^        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);
) D! k) ^% H0 P* C; V3 r        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;
8 O* a" o* W' t5 D' P4 p        lines:=0;
" w1 @7 F4 m2 A5 H& y        for i:=1 to number_of_machine loop
) r6 B7 ~- ]% `% d! u# g* r. d                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
: g' i* i( W% h" k2 g* Z$ 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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
! O# A8 i$ L, h# G                        end;
' x, `# ]  S9 G5 c  q/ Q4 e                next;
        next;
       
        lines:=0;
        partstable.delete;
       
3 O9 a: _) X! a0 P( i$ K        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
, J1 i) S8 n/ `  S                        if w_from_to_chart[j,rows]>0 then
$ P5 y1 {' V0 A3 `& z% J( |                        lines:=lines+1;
* ^6 a6 V# X/ N4 W& W8 @: x                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
) J  i4 w* c  F. Q, t* Z7 _9 \                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
5 Y9 `5 X+ n) s) D$ ?                        partstable[6,lines]:=j;
2 U% ], ]) s; [, R                end;
5 W( E7 u  t$ I4 E% w/ y( \3 C; n        next;
2 S6 u. Y# v" ~  N" b* X  i( i        machinename:=sprint("M",rows);
+ _: v# w8 d7 P        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]);
# I  }: _/ T5 o2 s  _- z        machine.name:=machinename;标识符未知
! A4 M7 S. w% q        machine.proctime:=5;
4 B. {0 m* o; f+ M- a8 h+ T        machine.label:=activityspace[0,rows];
6 z) n; I# v; z        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
" k! |2 J/ v6 _6 N# V        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]);
# h. I% ]) j- s+ J7 U7 _+ s        buf.name:=bufname;
* p! s3 M! A8 f7 B+ E  G7 T        buf.capacity:=5000;
& ]; l; k4 \( c# B% g# {! w& c( ~        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
, K! l. Z/ |/ v0 K3 b3 |dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
+ d* o  a# L* a0 ^next;
end;
- Y/ g( m/ J, f3 _6 o; k