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

zooey

is
" C7 V6 I, c0 p: k. H& m        mark:boolean;
        dx,dy,ct:real;
- q: n) T2 `; t) l; M! t    i,j,rows,lines:integer;
    machinename,bufname:string;
. M% T* a) W6 K6 U& G5 f) K    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
8 {% Y* O$ N$ @3 U5 J6 m1 H                when 16 then
3 T( ?6 v9 X) O/ G                        print"yes";
                when 32 then
! W: C' G; Q0 _  C7 `& K* L                        print"no";
& ?3 \8 X2 J& C                else
                        print"cancel";
% Y  {  ?$ S7 I& i2 [  V+ J0 A                end;
                eventcontroller.stop;
        end;
7 e. R; V  o0 q( S0 D       
" @) d9 Z" w$ k8 X3 K" t        for i:=1 to number_of_machine loop
9 ]5 a1 j) Q% @0 R! g( Z- H        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
& s8 f! d* T$ ?- z2 n  c" G0 n# ]- W                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
* U4 ^2 h1 v: y5 F! X% f1 i8 ?0 H        if existsobject(bufname) then
4 k' Q* D' ]4 T& _  @                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
4 g( `; n3 w6 D6 _2 e* k        next;
       
  F4 y+ @0 ^9 W. ~1 ^( I, D        dx:=0;
        dy:=0;
2 \9 M% d+ n. l2 a5 V( V# J1 T) S        for i:=1 to number_of_machine loop
" A' L7 _# b" b6 N& V                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- Y3 D' T/ e& _" O. \; c                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
# ~9 |' {6 X& K) l  V                        /*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];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
5 M" ?7 i3 e5 ]$ b! J                        activityspace[1,rows]:=ct;
                        mark:=true;
1 h& L% ~0 y1 N                        else*/
, X$ t/ A; E9 p- C# I                        y_max:=y_max+dy;
0 b7 }  C+ {& e2 _4 ?: ~6 M+ Y                        dx:=0;
( @" l% _' I: S4 ~6 v                dy:=0;
7 S+ Y$ x* v( m) V1 y                        --end;
  \# y' C, o9 A, e. a' z$ l- ^                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
$ U; r# Q9 R4 V1 M                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
) M" W9 d  f. Z$ Z* P            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
" `; K( o% E/ C+ X% j0 l: [                end;
                dx:=dx+activityspace[1,rows];
( Z" K! h+ k' E! Z% L                /*if mark=true then
                ct:=activityspace[2,rows];
" x! c+ C- V, h  I1 D7 m- I1 `2 U                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
% G3 H, Z4 M, N7 A& v% q                        end;*/
0 R) q1 X2 w; |' U        next;
0 \5 a  ^. e6 B2 L        y_max:=y_max+dy;
& c# L& z5 f- |+ T9 E* D! n        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);
9 o/ n# M  y$ I+ r7 g& N        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);
; k5 i/ O" E. b% g9 I       
% [  G  w8 X$ @: G, F7 C        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
9 I6 X* E+ K- g                        if j=i then
                                d_from_to_chart[j,i]:=0;
* j' N! `3 P& }/ H9 r0 O, |                        else
- U6 A7 d& {2 ?$ {6 r                                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];
  H0 k# N% N; G% e/ g                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
        lines:=0;
        partstable.delete;
  F* J1 `8 z: L" b- E# A& K       
7 P' @  Y# c  {5 ^3 ]        for i:=1 to number_of_machine loop
# E7 n4 {: o4 I6 t! R" s* W                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
$ s3 N$ b' g3 u; m# C# M6 ?1 g9 u                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
' c/ [* g1 ^5 t$ y' K                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
/ r! u2 y) L4 \+ s8 e                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
+ L* _  V6 k5 A* H' J7 i, J* S                        partstable[6,lines]:=j;
8 I. d  y+ r9 `1 K5 p, O                end;
        next;
        machinename:=sprint("M",rows);
6 B$ n* t& y2 \1 V/ g2 k. n8 p' 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;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
) o! s  @6 i# n4 a# 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]);
  v! g' t/ G: }/ @        buf.name:=bufname;
) h* A, n$ L1 J( u        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
; m" T( P, Y- Q& c        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
: f  |% g, B7 tdy:=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);
next;
end;