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

zooey

is
        mark:boolean;
! [, d% G) M) F/ N3 h: {- I        dx,dy,ct:real;
. L/ ^# r+ g" S7 u0 H    i,j,rows,lines:integer;
' p0 J0 u2 L5 X. w$ m! e% [    machinename,bufname:string;
$ f2 D9 _9 X6 p- b    machine,buf:object;
do
        current.eraselayer(1);
1 l4 ~$ C% R7 n       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
: q- z. m, b) f/ |+ _- w, [3 b$ M                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
8 L9 l8 D, o3 e9 x& Y" J' A% a                        print"yes";
- a7 j1 K) s- ~+ a7 p# I                when 32 then
& b4 k3 o9 @, m- |* e# _                        print"no";
                else
                        print"cancel";
                end;
5 Q. C( {/ X' L: X! ~, Q2 C                eventcontroller.stop;
, F. r& ^8 _  M- V$ r        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
3 ?5 M0 T7 F+ L9 _                machine:=str_to_obj(machinename);
' w. Z( l; f2 b, ]9 W; c                machine.deleteobject;
6 X* _* ?, T( I4 V; q% ?( |        end;
        bufname:=sprint("BF",i);
% @3 w0 j5 \' u& Q; S3 d        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
9 d' S7 w9 f9 n/ h& {1 b0 j        next;
       
$ j+ G6 d8 U) z6 K5 r. H! |- v        dx:=0;
; M2 E( l' K' g5 v1 T! G- l1 w% N        dy:=0;
        for i:=1 to number_of_machine loop
, U3 I% _- A. S- }2 k0 }  R                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; h" g9 C! `' P                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
* ~% S6 A+ J( v8 j                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
4 P" z) L/ w3 S2 f) ~- o4 s) R, r! u0 G                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
. b/ ?. A3 i, f0 r, D. S5 g$ c                        mark:=true;
6 A7 D* Y  x+ S                        else*/
( y% f- f3 f8 i( N% J" R/ z8 f                        y_max:=y_max+dy;
                        dx:=0;
! ?3 I4 [9 \$ b* L                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
* L; m- |6 u2 r0 ?4 M: d! M" K; m                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
0 r) G8 {, e) u* U0 V3 @& K% D                        dy:=activityspace[2,rows];
. B- D! ^9 ?% S+ g$ h* h; V                end;
                dx:=dx+activityspace[1,rows];
; r8 H2 A% \$ N- }4 I5 Z                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
& [$ _8 Q' T# y( p- O  d                        activityspace[1,rows]:=ct;
                        end;*/
. B' u. o% @% |1 e8 o        next;
' l5 J4 `! @4 o8 N        y_max:=y_max+dy;
! Y7 d7 |1 z  M* b2 D! v) m        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);
: h2 j- c7 t5 k1 s$ 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);
/ }) k  t1 {( p( ?       
+ q3 ]6 v2 c) R- d8 V4 e6 a$ L        rows:=0;
        lines:=0;
7 J' N1 S  l4 N8 C- x0 `        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
6 C% Q( B+ ]6 z2 H% K                        if j=i then
6 f! k4 Y8 ^+ \" ^+ t3 p- f                                d_from_to_chart[j,i]:=0;
                        else
- g. X* {* Z) K9 d( j& K5 q                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
1 C7 X9 }! b7 |! q* r- }7 ~9 ~7 ]                        end;
                next;
9 U) J5 Z! _) Z) ?: h8 f/ u        next;
       
: k* b3 F. f. g% e7 \0 V        lines:=0;
) k3 r# G2 \' X1 u        partstable.delete;
0 N* Z. g, d5 U2 K9 ]       
& X- O- O! M1 G: f" S        for i:=1 to number_of_machine loop
. c, _& z1 x$ o  u+ o- ?                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
& r. @" y) U) ?3 c9 Z# g! y6 x                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
' k7 j8 Y3 x% ?3 q) M; T                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
- F% y6 W) x! j  l$ ~                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
0 |+ E; A, l9 p$ V$ b& ~5 Q8 J" a                        partstable[6,lines]:=j;
) f( y8 S' ], T6 g9 v" M7 }4 k" d                end;
        next;
  C" I% \, ?3 q. g, n) G( o# t        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]);
7 y) L9 M% I* A  M( |5 D        machine.name:=machinename;标识符未知
$ ]: ]2 P6 M9 A4 j        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
% X5 K1 }. M# v, u* f& K0 L1 @# h       
2 ?3 q. E, E& \+ D5 Q) w8 v        bufname:=sprint("BF",rows);
2 z0 \  h9 D: E. h3 H  e        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]);
2 [4 L6 h9 A# T0 r7 w2 G        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
! K) z7 ^9 S2 F4 D2 A' V; k        .materialflow.connector.connect(buf,machine);
) C0 ^& @! m3 K3 u- d       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
2 J7 h! x& V/ c3 @& _' Qdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
( S: X0 N) p2 \4 v5 vcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;