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

zooey

is
1 Y$ S( E7 @0 V- w& _# q        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
: m8 a6 E+ a& J/ Udo
8 @9 u4 a! a$ l' K8 h% a        current.eraselayer(1);
/ ^0 h/ f" m! W       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
3 Y( h0 }1 I& L0 G  T                when 16 then
6 I' o) G& _  d. v9 M# r' i$ D& z+ I                        print"yes";
8 G) i1 P% |0 b4 h: B                when 32 then
& P6 Q. i1 ^( O                        print"no";
                else
- f( J2 ^0 L! x$ _$ ?7 j                        print"cancel";
/ A9 R8 i  ?/ E- [: W8 D                end;
                eventcontroller.stop;
        end;
4 t$ @5 M% i9 w, @% L$ d- p6 F       
' d# y# a$ v0 l. f        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
- J1 Y( T8 t1 p  `/ {) u                machine.deleteobject;
8 F; M% e& I9 i' q        end;
        bufname:=sprint("BF",i);
+ k  W3 O: ?* V$ Q. ~        if existsobject(bufname) then
7 |6 |/ {! l$ ~5 o                buf:=str_to_obj(bufname);
' R) Q( x' C. x                buf.deleteobject;
. F4 E; p( _1 m0 @9 f2 o1 O        end;
        next;
; O! `- |/ A# g       
( k/ x1 l) B. c$ v1 }: i6 d8 B  z, Z' [        dx:=0;
7 ^, v3 Z6 T. m        dy:=0;
. X/ w, l7 _  y2 d+ w        for i:=1 to number_of_machine loop
3 E% q! Q' E9 N- H) j  l" b$ P                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ o/ w  G6 `, C  c  z# x& ^7 y$ ?2 a                --mark:=false;
4 F9 Q6 P2 L3 E" t' k" V: I/ p8 H                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
8 e, |7 F) m, v, v                        and activityspace[1,rows]<(1.05*y_max) then
7 u+ d2 x9 P* _  U                        print activityspace[1,rows],",",activityspace[2,rows];
; {9 j" D  T1 |                        ct:=activityspace[2,rows];
9 m8 M' ]1 K) K7 c- k% Y( T                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
% A& {3 V1 q' J3 M                dy:=0;
                        --end;
                end;
                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;
            if activityspace[2,rows]>dy then
( `8 M+ d& t: A9 P                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
) J" l- S# M- @" N                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
. J( H/ ^* B' D3 U8 A- g                        activityspace[1,rows]:=ct;
' [0 c3 o3 l: |3 ]$ J$ S                        end;*/
        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);
- {$ M# c1 [# o: h& B        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);
       
3 L; L3 J7 K( k" }# O9 S% H! ^9 O        rows:=0;
! ]1 [+ W% M3 f; y        lines:=0;
: H- ~9 V% T  o) L" l        for i:=1 to number_of_machine loop
4 R2 A; v/ |7 G/ v$ [7 `! A                for j:=1 to number_of_machine loop
2 A# r) G4 R0 R: ^/ l; O                        if j=i then
                                d_from_to_chart[j,i]:=0;
/ e( T7 q. X" O7 Q9 H2 {& q                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
7 a; X9 B, N, j6 _% f                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
2 P( J& c: i: v& W& f' b0 G" [                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
5 e+ E9 }( v! D. L                next;
9 r' J! m8 F0 d/ s* I        next;
3 ^7 @3 K$ {& A6 L       
2 k7 {  x# n9 O0 M$ J7 q& ]        lines:=0;
) `( @* y# V; m8 ~: ~9 @        partstable.delete;
       
        for i:=1 to number_of_machine loop
6 \4 a# K: N; k# `                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 _8 S$ @; \! U* y* n                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
) V6 O: r+ }! v- m                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
4 g' E2 L+ z4 |& a; u5 r! R                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
1 _0 n/ L* a; p% c                        partstable[6,lines]:=j;
9 T6 H# \$ U" Q- I; l2 n                end;
1 ?8 w( Y5 M% K  B        next;
/ z% B2 a$ N* y0 `! |  [( ?        machinename:=sprint("M",rows);
        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]);
5 K' h* T# G3 C4 Q( B% ?        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        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]);
! N: m3 I! ]! w! p! t        buf.name:=bufname;
, H* E7 U6 P+ ^4 G" ]8 e        buf.capacity:=5000;
1 N& U9 D) ~6 _! G/ ~5 g, G        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
% e; ~& w, f/ ^! a& k2 X        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
2 o$ S* k9 \3 {7 D7 r# {1 k; C" Jdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
# R  q: q( @" k+ X* |3 ?) qcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
3 u: b6 k  g6 \$ X. ]. X- snext;
end;