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

zooey

is
( L* u5 ~. ]% X% C9 v        mark:boolean;
        dx,dy,ct:real;
* Q7 Y7 ?" N6 c+ \; S  r4 I% m    i,j,rows,lines:integer;
. n5 p. u) L* I$ ^7 z    machinename,bufname:string;
    machine,buf:object;
! y- U0 q9 L) D4 _1 h! rdo
: W5 [6 h% t* {% }4 o, o        current.eraselayer(1);
" E; t2 T- _( R4 g       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
, ~+ t3 Y5 }7 U9 x                        print"yes";
" U6 t$ l8 o, t                when 32 then
$ j2 ^8 H5 n& }4 n                        print"no";
                else
/ R3 B5 O+ |. ~- m9 ]1 b                        print"cancel";
                end;
                eventcontroller.stop;
! w/ `% N  X! P3 ?1 F7 V' x        end;
* H  z# [; [1 p% a+ f       
/ X2 r9 }1 o4 v8 I  q        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
0 G6 C: @  o, \* t4 f( f. l                machine.deleteobject;
" E9 V- a2 Y. \8 U7 r% q        end;
' i% [' A# J0 X7 o; h" D$ ?        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
" g. @3 R7 M' C7 ]5 b* E: ]5 D                buf.deleteobject;
        end;
9 `% |0 I8 C' @! G# j7 z9 ^! y! c        next;
0 W4 f" B$ }5 I4 V) m1 f1 \       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
# o3 A$ Y" H7 g& N, S6 x5 o7 p$ Q/ y# B                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
" R2 Q) l" I7 u0 F                then
8 @6 D2 B/ k( M7 |                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
! c/ [& s) g% `& d# f3 K                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
2 R3 e( k4 A' _' U4 A# p% g                        ct:=activityspace[2,rows];
# G2 ?8 u# d4 X; @, w6 h: {7 v                        activityspace[2,rows]:=activityspace[1,rows];
: z7 n; p% T1 l+ @                        activityspace[1,rows]:=ct;
- Q0 D' m. \, k+ E7 w5 B                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
; r- O7 j9 U9 X' |$ @                dy:=0;
                        --end;
. |. [; D# u" v& T4 D; D, f                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
6 w, L& E, t9 ~3 C                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;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
& G% P$ u- O* A" W- G) I, o7 x                        activityspace[2,rows]:=activityspace[1,rows];
7 ?0 F6 a) o- m& ~* y                        activityspace[1,rows]:=ct;
                        end;*/
        next;
9 q: a' h' m; [' Q. e7 D        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 E1 m2 }8 x* u9 K0 @        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);
) f  q% O$ ?8 V% [) E: k( s+ [' H       
5 i$ D' X2 a& l8 c        rows:=0;
& w3 _% L7 p! m        lines:=0;
        for i:=1 to number_of_machine loop
* x/ {; ?1 W$ ~8 f) @                for j:=1 to number_of_machine loop
1 s* [. ]6 m7 [% L. l                        if j=i then
+ V! `4 p: e& i+ _' S4 k! e                                d_from_to_chart[j,i]:=0;
                        else
# E1 G8 z* z0 T: [: N                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
1 J$ D3 R2 X: L                                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);
                        end;
                next;
/ f9 f, Z  }- y2 T: M        next;
       
        lines:=0;
; t' `+ b+ [$ p3 R8 f$ \6 v        partstable.delete;
1 Q; a) K: s$ ^  R1 w* C0 r5 a       
- o. o% c7 h" a+ T8 q% r        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 f1 T( A. J2 ?7 t! ~* V# U) \; p' h                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
# A* W9 F( G$ p2 I                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
+ k+ w( J+ P, X: A; S# u                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
( ^9 D1 j# y" Q4 }# b6 h                        partstable[6,lines]:=j;
" K$ e  [! q  J9 ]1 h' z. u                end;
; G* B8 {1 ?) l5 K3 y, ]! h2 E  \8 R        next;
        machinename:=sprint("M",rows);
9 y0 \% j2 r* l        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
5 [. d2 E3 _2 s* Q9 X2 R8 d- u        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
6 w- ^5 G; e) @1 o6 x5 f) d        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;
1 u8 k9 {. W# d1 M1 [0 N) m* C        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
0 l, v' f* E* ^# v' pdy:=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);
' S& M: }2 `! x' J3 Bnext;
end;
+ j0 g; Q1 D! y, t( U/ h+ c