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

zooey

is
6 H( S, q4 v& L) c/ u1 R7 S; F        mark:boolean;
; u. \3 H. x8 A- W/ @        dx,dy,ct:real;
    i,j,rows,lines:integer;
+ r( g4 @  R3 l4 u5 e1 _" y: r$ l* Q    machinename,bufname:string;
# N5 W9 y: t/ N6 x    machine,buf:object;
do
4 K" G: `2 r5 ?# s- S6 {8 \4 e        current.eraselayer(1);
0 q1 k' X& T% Y- R4 v4 @' ]9 _       
" L* l% I& e" g6 Q% A0 m        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
, Z/ e( W* r1 V$ i/ B                when 16 then
                        print"yes";
                when 32 then
+ p4 f5 ?% R( y( w3 @                        print"no";
% R  ?3 }* U$ h2 G, ~3 }" J8 [                else
                        print"cancel";
# w6 Q' i1 E) F+ y7 k# ~: @                end;
                eventcontroller.stop;
        end;
       
- j/ o! d" K# M& v( Z( X/ _        for i:=1 to number_of_machine loop
2 l+ h" o9 H( y" s* `        machinename:=sprint("M",i);
1 A8 ]. Y+ y% h5 R: c        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
; L9 {6 `( X. j; i" y& h; @                machine.deleteobject;
: s4 A. g: c1 t! r$ h# L  A        end;
; l( w, w8 \( @+ V: F2 c. T        bufname:=sprint("BF",i);
( L, S8 ^/ i: @        if existsobject(bufname) then
+ y, ~; z+ q( Z8 }. M                buf:=str_to_obj(bufname);
                buf.deleteobject;
% j- o: e+ U: y8 u( r3 u" H$ @  d        end;
        next;
) r" D( C+ a. ^; {6 ]5 G       
        dx:=0;
; @( G' y' l, F0 f8 W        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" d# _) ^% f. w7 W1 O( E' i                --mark:=false;
9 y1 `) r  O2 q% h9 Z9 s2 A                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
7 \) m- T8 r" Z( y% P+ m+ h                then
/ `. J8 g! O" S) N# z. v                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
8 d/ l/ `5 a, ~5 u8 [2 s3 L                        and activityspace[1,rows]<(1.05*y_max) then
! a% A; `2 @2 e                        print activityspace[1,rows],",",activityspace[2,rows];
/ N' x. G  ~9 w( H/ [                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
6 S3 P+ g9 V' |7 V1 }- d7 |                        activityspace[1,rows]:=ct;
8 _/ k! N6 F- B; V5 K9 A                        mark:=true;
7 Q/ E/ d) {, l$ G. U" b5 e                        else*/
, x8 ?" W8 i& t+ X                        y_max:=y_max+dy;
3 ^" f: [1 x8 O' ]' k0 t. z                        dx:=0;
3 ~1 n9 N" l6 }4 ^5 O* a; @9 V* p                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
: g0 l, e! F! A                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
* m" P: G  Y7 e7 h0 m% o8 \                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
) q, h6 f+ b6 N                /*if mark=true then
) W% N  L6 T; y- k5 B% k9 p' Y3 T                ct:=activityspace[2,rows];
& Q$ n* j* S1 c) O( t                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
" ?, n, a0 P1 `" p8 [% ~        next;
: M; }' q# R; o8 |2 p5 q, ?0 X        y_max:=y_max+dy;
! s% C1 `4 x) K4 X% ?9 ~        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);
; K3 f8 m  i" I; z        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;
) ?6 g0 q4 a! t" F4 T9 H  C        lines:=0;
6 P: b* {" u' W, F/ ?        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
! u! T! y# D+ a. s, K! L: ~                        if j=i then
+ r3 p) C! x1 J                                d_from_to_chart[j,i]:=0;
5 U2 o8 _) f0 X& b' H  d6 D                        else
: m* z% P! r: Q. O- a/ V& T                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
9 ~; A& F$ u6 }3 `5 U2 M5 M4 E1 t                                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);
& T, t; n& r7 p3 ~3 {5 a                        end;
                next;
        next;
       
        lines:=0;
7 x3 o) s( t& y        partstable.delete;
& M9 E9 x' k- ?       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ b1 [' V$ w0 i, x' [. Q2 @/ D1 f- G                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
) Y; r% D) U9 x% S                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
# ~; i7 B* m' {) H& e& G8 ~  K                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
# k8 f5 h- m) B, q/ K# X: l0 G        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]);
# ~% A% A  H, D5 w) u        machine.name:=machinename;标识符未知
. v$ _: ~) w) i. w+ h) k% y% H: h/ P6 ~        machine.proctime:=5;
' E7 @5 y& K. }% |: G2 w! i+ ?5 S! K+ V        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
9 J  d7 E5 t% _$ d       
/ X/ y& Z6 a0 {        bufname:=sprint("BF",rows);
4 `2 o) y; O1 S2 C        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;
$ ~* @* A- }, G( A( s' u) N! |        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
  [% G, U! a5 h0 r9 h8 p$ r       
) ]$ y9 L2 p7 }, D* r' ^1 a0 T        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
* p, c# B+ C+ s. N' Y" nnext;
; m9 K6 D. M6 [6 X2 L3 u- Gend;