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

zooey

is
( ^" k4 Q, t. v  Y4 K& ?) n3 t        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
' c& o5 E& v7 T- {. Z    machinename,bufname:string;
6 `) [9 T+ P8 C/ h    machine,buf:object;
do
        current.eraselayer(1);
3 J% J: y/ S1 k# {- y0 }; R       
+ T+ _: t! `1 f2 _' V1 S        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
6 w3 [! W# G) I) e$ I% m                when 16 then
                        print"yes";
- X7 c3 f: ~4 N1 e3 J+ J4 b1 l                when 32 then
                        print"no";
9 m; F" W+ M$ n$ b) H, \                else
                        print"cancel";
" D. D, O* k4 [                end;
) d  G4 Q1 ~1 [                eventcontroller.stop;
8 x+ R/ L1 b" T. K5 F3 a        end;
5 |! k5 O0 w# i3 m% x. \% B) ~2 {# I  R       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
, j0 ~3 z' G7 k5 s( V+ U- A        if existsobject(machinename) then
- X2 }3 \6 a6 O; y' R                machine:=str_to_obj(machinename);
  Q) Q6 l* R8 P2 }' O$ P% D                machine.deleteobject;
) N, e/ X5 Q$ Q. k' f- Y) _6 t        end;
: N$ q9 l) a, f1 r1 k% Z* x        bufname:=sprint("BF",i);
% `% [, r; m1 @3 T' V/ `) i        if existsobject(bufname) then
6 w7 i) E* y  S" ^1 f                buf:=str_to_obj(bufname);
                buf.deleteobject;
9 {, c5 D2 }  h  m, a# f8 s        end;
        next;
& i' d. [. D+ ~9 K: W1 c       
        dx:=0;
8 H+ X! |4 o; n- _$ Q: n/ d        dy:=0;
        for i:=1 to number_of_machine loop
: O8 S0 }0 j9 r/ K                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
2 o/ M9 Z+ ~" A3 ~                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
# w$ P9 `+ d1 w. q4 A' O                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
" z9 |5 _( R% x9 Z* s  t                        activityspace[2,rows]:=activityspace[1,rows];
3 i. ~6 p, a: z6 D3 R# s2 ^  ]* X                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
1 m0 |" v( o7 b- B. k3 [! K2 Q                        y_max:=y_max+dy;
4 f& @! T, s& z* V: Q+ D                        dx:=0;
4 \0 V7 J, B. ]: D) L  s                dy:=0;
                        --end;
' f" C+ L" p- n: B& |8 H                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
! U, z5 B" q) |, T0 y% A                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
" ?2 Q8 ]/ t7 D7 w! `: M) x                        dy:=activityspace[2,rows];
                end;
. S1 r: X: x* U                dx:=dx+activityspace[1,rows];
" M; N5 H' z# o; O# R                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
5 L1 F# l& I2 M        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);
        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);
       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
6 ]/ Q  ~( M* C4 l. h- ^                for j:=1 to number_of_machine loop
% A6 p$ c: D) x6 d1 Y. L                        if j=i then
. I& B! O. `: t8 c# ?                                d_from_to_chart[j,i]:=0;
1 D$ @$ b$ ^, w* V$ m$ E3 a                        else
) j# R5 o" O& D% k                                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];
6 R3 g9 i6 j5 W1 O- s                                d_from_to_chart[j,i]:=abs(dx-dy);
6 f- O- d! |) a; Q" g. \' f. j/ _* b                        end;
                next;
9 h  M' b7 \+ h1 R$ E' ~        next;
9 e( W1 }' E$ Z6 t3 x       
& T  Q" N$ Z% b, Y. v/ [        lines:=0;
0 M9 Q% Z# ^! m( E. x" t; h$ }/ N        partstable.delete;
       
        for i:=1 to number_of_machine loop
  M6 [/ O$ O6 f8 K; S" b                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
3 T+ G+ Q9 t# j, g0 C0 _                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
, K( D5 S# {/ n& u) Z& Y9 J                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
) ?/ a$ Y/ M( F/ I$ I1 K# L- [' S                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
, U( P) g) Q% k& F                        partstable[5,lines]:=rows;
/ ~& `) [" I0 E7 N+ p3 ^                        partstable[6,lines]:=j;
                end;
        next;
        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]);
9 A3 N$ Q. ]- C% S1 o; j        machine.name:=machinename;标识符未知
' z0 s! E. l; q1 V5 I& I+ \        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
9 j% u- C( W% v/ \. ?0 ?1 k: y        machine.exitctrl:=ref(leave);
       
4 F' V. U9 X& x: c' h, k. S4 {! t; d        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;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
& B2 z. [3 }6 J* X$ l3 W% |* T       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
- I3 I8 X# t1 Q( ydy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
. r9 u2 l5 r1 y8 ~, Kcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;