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

zooey

is
        mark:boolean;
+ r/ _- g# s7 X- A6 j, Z        dx,dy,ct:real;
( e& `4 E  l/ v# v1 c! T# M    i,j,rows,lines:integer;
/ b- Z2 P& R( S4 Z/ w5 V    machinename,bufname:string;
( J0 Q- C+ c, U. D    machine,buf:object;
do
& a/ c0 |! j2 u$ K7 n        current.eraselayer(1);
' E+ k8 x3 M) y+ }2 ?4 U0 M! g       
" L3 {" b( L! V% l4 |8 w        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
+ \& q, D8 v% a- W/ g                inspect messagebox("设施数目不对！请核查...,",50,13)
( e6 y& a2 H3 V! S: L7 \                when 16 then
                        print"yes";
$ [3 w. D4 \8 ~6 D3 P                when 32 then
2 Y- F* @) o0 `! a; B7 n2 |                        print"no";
; r" i+ ?6 ^. p! N5 L/ _                else
                        print"cancel";
1 b& W7 d9 t8 l; Y$ G) E                end;
. N; ^* a7 C% P8 Q: R                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
! _7 G6 [* a$ D% M) X        machinename:=sprint("M",i);
' q1 J4 {! W1 U0 s6 z2 j! }# [. @% L        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
, J7 S+ M% E1 N* W" V        if existsobject(bufname) then
, ^" I! w% L6 |2 ]$ y$ p; ?4 g# M. z                buf:=str_to_obj(bufname);
                buf.deleteobject;
- M) \7 b: T7 \# `; x! f        end;
  f4 n( {0 T1 O  t* l        next;
       
( d" g% Z, R. o" _        dx:=0;
' V" T* h7 b2 F        dy:=0;
5 J5 `7 }( G- Y$ B, j! [        for i:=1 to number_of_machine loop
6 `. e! q: L: Y4 V( @" M7 P% D                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
+ A2 s& ]7 R- w8 ]9 l  f" d                        /*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];
                        activityspace[1,rows]:=ct;
; J/ b& R6 K" O, w                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
+ c! O1 k' X3 ^+ I- [                        dx:=0;
$ s+ [5 e8 y0 Y1 O' b                dy:=0;
                        --end;
                end;
6 ]* H- o9 K. w- j7 N                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;
9 Z$ h% Q. b! ~( ]- P$ |3 ^9 }3 \            if activityspace[2,rows]>dy then
9 W) R, [7 r2 T) e                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
* I! J/ h2 i: [3 a. y. }        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);
        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);
       
  Z* C$ x+ H2 @; `! [        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
% v; b, [- d3 a) f9 G" W                        if j=i then
                                d_from_to_chart[j,i]:=0;
- h9 B6 y2 i# U* S5 b                        else
                                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];
8 ~2 g' B, s: {: w+ t4 F                                d_from_to_chart[j,i]:=abs(dx-dy);
1 L" b9 V8 K# @7 s( Z                        end;
+ {' K' c$ z" t! G) m                next;
        next;
7 S( z( s! }  v2 Q8 g/ O! U: |, S       
! A) y5 W5 R3 d  G6 J        lines:=0;
        partstable.delete;
- `7 S/ ~" e" P7 L# v4 k       
# |& H# |4 ~5 h/ O) @1 A, n        for i:=1 to number_of_machine loop
9 \5 U6 j3 q  ]( g                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* T# }7 ~: P7 m' [                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
5 ~2 [& n" M3 R  C  O) L                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
. u# y: |: ^/ ^1 D, E                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
& c  D# L9 }+ G9 r' {% [                        partstable[6,lines]:=j;
                end;
        next;
6 ?: C) t% r1 u) u  A+ F        machinename:=sprint("M",rows);
/ \' l- b# U$ G1 X( E' N        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]);
, l. B/ G6 ]5 C1 f7 [# w6 m        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
% A/ m& L3 ^: K2 T( p% p        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]);
        buf.name:=bufname;
+ p+ ?! p  ^3 i& m1 ~5 `) g        buf.capacity:=5000;
: l2 u; d( Y5 o* L3 w( e( i7 r% _, B        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;
dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
- |8 O2 ~& p6 T9 b0 Z- p3 s9 Gcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
8 Z0 q) P, p! u3 E; D7 iend;