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

zooey

is
) C8 V5 p8 @7 b& Z$ {5 r        mark:boolean;
9 v# Z  z8 T5 K: x$ _- [/ D4 H        dx,dy,ct:real;
    i,j,rows,lines:integer;
5 b5 Q+ w0 m5 W    machinename,bufname:string;
    machine,buf:object;
5 `2 d9 u2 H( u. ^- H! {, N4 ^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)
                when 16 then
8 H7 J6 f. q% q5 G) K1 V                        print"yes";
                when 32 then
5 b/ B- ]% i3 U/ B8 K; E                        print"no";
                else
                        print"cancel";
                end;
; L5 p) N) w; ]6 D* T5 |" K                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
: {# s5 I. B% m7 g8 S- N/ ?# U( |        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
# N" V. W- M. d" p                machine.deleteobject;
9 o# `" B4 E, D3 v: n6 L7 N3 n- N        end;
4 l2 X+ l" ~. ^' X' b4 @$ t$ b& s        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
! M1 j4 B2 k3 k' k: H$ e                buf.deleteobject;
        end;
1 C: l. s) y1 P2 e( ^* ]        next;
9 b: D# V/ l4 g       
        dx:=0;
" |, V$ ^) W8 U% B        dy:=0;
        for i:=1 to number_of_machine loop
8 [% N' R* t9 w- b5 M5 D                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
) Q5 T0 d* \4 R- y* q- q* i5 p5 s                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
; q) O9 m; n. R: G+ M% a6 j                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
) Z& {" F+ l# l7 `' E                        ct:=activityspace[2,rows];
# `1 ~9 a8 Q# w; o4 o" m                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
7 q& ^5 G2 b# n9 s/ O  j                        mark:=true;
6 r  I" Q% i' g2 R3 Q, j" [                        else*/
. g3 b5 U6 a4 [  Q& l. l5 G2 U                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
7 u8 h, i# a6 p. e                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 v) [+ X  E! B1 l2 e                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];
) P1 ~; ~, V8 V2 g                end;
& u8 ?1 T5 q* Z( G1 ]# g2 `                dx:=dx+activityspace[1,rows];
( @! O' r8 [# e( h9 m; C                /*if mark=true then
# t+ M, V) h6 n4 l: U# J1 j                ct:=activityspace[2,rows];
% y: h$ E' F# j# s. R5 R9 H                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
9 K% u) `. z8 }! ~        y_max:=y_max+dy;
. R; M+ b* z$ t- V/ |. b        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);
) [3 e3 g, u% _. p        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);
; E& `, H4 S% z: Z+ o1 X, i- D       
        rows:=0;
8 h+ C- e$ N" G+ L: l" R1 V1 a        lines:=0;
        for i:=1 to number_of_machine loop
- J; h( E% f# A8 e                for j:=1 to number_of_machine loop
' a& }$ [) G4 c+ d; n                        if j=i then
                                d_from_to_chart[j,i]:=0;
7 S8 I  ]/ z. [$ d7 b* ^                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
" K8 |# u% H# n                                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);
                        end;
" U5 n' w. d: f                next;
+ Z, a; y3 L# k( R        next;
       
        lines:=0;
% Z" f6 R% u% N$ \+ E: k        partstable.delete;
       
$ J9 ]4 w& J+ U) t        for i:=1 to number_of_machine loop
- @+ g; n' Z) O  M! w# D" S" f                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
) K- H# u) S$ k) ?. P                        lines:=lines+1;
# }( s! |' m8 z. Q$ ^6 n0 e* s" c                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
" I5 e9 G/ j. u) w) u/ U: \0 Y                        partstable[2,lines]:=w_from_to_chart[j,rows];
2 f; G" r. [% T3 O# O. a                        partstable[3,lines]:=sprint("parts");
4 [! K* K4 I, _8 M, t$ f* d' d1 {                        partstable[5,lines]:=rows;
5 c; W1 q1 e( Z6 m                        partstable[6,lines]:=j;
0 Y1 b2 \3 {% }* M+ ?; `. A0 N                end;
. X& f4 y3 v' X+ \$ W        next;
        machinename:=sprint("M",rows);
2 |5 A, L4 R0 A! P        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]);
  O0 ?5 `* e) D/ r. D9 {/ d! i        machine.name:=machinename;标识符未知
' A; ~* |9 t/ q7 Y& ~# k0 ?        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
* R% G4 _# W  x; R8 P! y        machine.exitctrl:=ref(leave);
7 j' s+ J' i6 w$ i3 c       
4 R6 s7 `3 E$ e6 c6 q        bufname:=sprint("BF",rows);
2 n' @4 ]- U) q) _        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);
       
* i( }% o! y! J  A- o4 Z        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
; G, _" k" D& D: u: idy:=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);
8 B1 `- K# j3 y9 ^next;
0 Q2 t4 C- w7 x, _end;