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

zooey

is
( v4 b- M* o3 o: a! {        mark:boolean;
: s- ~) s/ `! K5 R0 A$ R5 s( ^  j        dx,dy,ct:real;
    i,j,rows,lines:integer;
* [+ R  g* H" n1 i6 O    machinename,bufname:string;
# K" |) M, L1 [+ Q' t" x    machine,buf:object;
do
6 Z) T! P) U8 S) R% @        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)
                when 16 then
                        print"yes";
7 L+ E+ p: r7 l8 l/ A                when 32 then
                        print"no";
. C, N6 \8 g0 y7 O: l. b4 s1 G                else
                        print"cancel";
                end;
' O$ v) J2 Z) w) T# f                eventcontroller.stop;
        end;
       
5 n1 H5 [6 x: J- ~+ Y/ x        for i:=1 to number_of_machine loop
0 l4 p$ Q0 R& `8 B- N        machinename:=sprint("M",i);
        if existsobject(machinename) then
) |' K9 t, p: |/ d  Z                machine:=str_to_obj(machinename);
                machine.deleteobject;
7 q5 p. g: i) M  W$ `8 u- o' v/ J        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
; ?- i! u6 P8 c/ `! e# t9 Q1 k! u; n+ g        end;
! Z4 V# P7 G9 l$ y, n. v; ^6 J        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
, G0 [/ H; @$ G- o) b: `9 @" P: h                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
) g. Y2 j6 ]: c                then
% S* B) i2 k+ ~                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
" ?2 M7 U, q0 W' ^$ ?                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
% Y1 B: ^# I  H                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
" K) z" s6 R9 M. }                        else*/
9 B( s/ |$ d; \5 {                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
: I) _" o0 @- T' |4 N                        --end;
                end;
% H7 _1 g2 m+ W  E( s+ x, l( Y                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
; j2 j$ s) K5 d2 v1 U& E' |& X                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;
8 r  E8 O8 r: F) {! {" K                dx:=dx+activityspace[1,rows];
                /*if mark=true then
4 H1 X8 Y! e. T5 F                ct:=activityspace[2,rows];
# ~! h; X" [3 o1 }; ^( l" S& Y% k                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
, c2 C9 Y  s# q) `                        end;*/
# x: N+ C) p9 Y        next;
3 y2 Y( ?8 ]  N0 f0 M1 C4 l        y_max:=y_max+dy;
" {- `( g% F& G( Q6 t! u        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);
: G" |) S5 V& z! a" M, |        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);
       
& l/ `; T; G: V% i        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
) q7 l9 ]+ u/ ?; D                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
& m: l% Y; c0 C2 x                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
" C5 w5 g, K6 H1 d# c                                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);
+ O; X# _+ Q7 j4 d- E8 Q: v                        end;
7 J) T) W8 U  D9 Y- _$ u- Q2 O8 z" t                next;
        next;
3 l, i( m# H& q8 t3 L  d       
! @/ V7 A7 V1 s# D( P1 o9 a3 a        lines:=0;
5 u) b. j5 L3 r+ R4 s% z        partstable.delete;
9 L, R" K  C0 z* L+ X, r       
* i7 i# v- a6 V/ d7 q1 A9 P        for i:=1 to number_of_machine loop
. \" F) Y* \  Q# r. f- R                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
0 b5 ]" O# R# _2 q6 v+ G/ F5 ?                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
3 i6 L: `3 l" b$ N' t6 l                        lines:=lines+1;
+ N) i/ p6 r! a2 u( k# k! d                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
) i/ Y: o" q5 E& m                        partstable[2,lines]:=w_from_to_chart[j,rows];
- b2 D" U0 N; v                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
/ M& ~; p9 o4 ?; V0 a7 k/ Z# k                end;
        next;
, j/ q7 p2 j. K! ?6 _. P5 j+ w1 ]        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
5 R2 {  |, e8 y! l1 @& W       
& J8 ^1 ]0 U$ [3 U        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;
        buf.capacity:=5000;
- N. E; |- c9 }" E' s6 i) G        buf.proctime:=0;
5 ?; z5 J7 F! T/ Z! v/ m  q        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
$ ^0 K6 W/ G4 \/ J- g$ I: udy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
! J; h/ a& ?' i9 O# ccurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;