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

zooey

is
        mark:boolean;
: N; N3 q0 D) [+ _/ i, J        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
' m; C4 t7 @3 Y1 a# m    machine,buf:object;
+ K3 M5 ^* W+ W6 z! edo
' a. j* s1 x4 H        current.eraselayer(1);
8 j1 x9 W: _$ j       
        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";
2 I5 A, ?# z' I                when 32 then
                        print"no";
                else
. }; m& [, r( D; e1 {# u" R' W                        print"cancel";
) r; ^0 A# ?+ C% w; Y# Z/ T2 e2 A                end;
; l4 [+ H$ H) W                eventcontroller.stop;
2 ~2 H" {! m& K( |0 d! Y. h* y. d        end;
       
0 L9 C4 ?# T& b' D" l        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
5 z6 U, g# c3 V5 \3 U. {3 n9 c                machine:=str_to_obj(machinename);
                machine.deleteobject;
$ \: a2 S! t' j* ^; O# `. d        end;
3 M* z( o$ q4 X3 D) b2 i1 {8 ~        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
( m. n) [. m8 u( O                buf.deleteobject;
! g& |3 d+ h1 [9 }+ U        end;
        next;
       
        dx:=0;
        dy:=0;
& B& X: v  y  f- T        for i:=1 to number_of_machine loop
& A. ]( u1 u0 D# |$ [3 m                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. I% }/ J% v+ o7 ?, ~* c$ e                --mark:=false;
% M' O' H5 I9 m1 Y5 m1 C                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
5 |- r0 G4 v4 z( R& _                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
5 V+ n0 d2 `3 V( C- ?1 s: @                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
- d) k4 Q' m/ H) R. _                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
2 u  ~4 O7 \/ A1 x' O. ^4 b                        mark:=true;
( }( c/ x. ~, @                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
+ J0 l: S: u& @, J2 G                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;
2 i; Y& s( u- c6 V. f            if activityspace[2,rows]>dy then
* d. F6 t1 s1 Z# o& @# M3 j7 y                        dy:=activityspace[2,rows];
- D/ K' f4 H* E) Z  b& s7 P  E7 `                end;
% S4 i3 X3 [' d: Y                dx:=dx+activityspace[1,rows];
" ^! ^( u! o& |8 V: ]* D                /*if mark=true then
                ct:=activityspace[2,rows];
$ x( o% _. c1 `" ~) a$ \                        activityspace[2,rows]:=activityspace[1,rows];
- r- J" n4 s  U0 O% P! B; p5 x                        activityspace[1,rows]:=ct;
! @- s  k$ y1 t                        end;*/
        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);
! H4 F9 B2 v. g3 n6 B, w% ~        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);
6 ]& x: P' H4 g       
1 i, N+ Z/ z8 @1 \. z* e1 ^        rows:=0;
0 g) f. l0 Z2 l5 K        lines:=0;
        for i:=1 to number_of_machine loop
# i) w# z% j4 A1 M# S2 V" r                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
( O& n1 x7 }+ \, J) D                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
! d2 n; {4 O9 c0 e* t1 J, _( ~                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
6 P0 [' S* h4 j) v: z                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
  A5 u7 _. w  S# L* M        next;
       
- q; z4 `6 H, z8 ?; u7 t' V        lines:=0;
2 R+ C) T  x0 Q* T        partstable.delete;
       
& A+ D" M6 }: h$ `, p- A1 J        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
$ y: _& m! Y* i1 |. k                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
$ H# f( U% t! `                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
1 A* h( J2 E- r6 G: p! x                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
" e# |  ~* q+ Q. `+ @2 `2 p                        partstable[5,lines]:=rows;
& i0 J& Y+ ~' D8 |1 x2 l: i                        partstable[6,lines]:=j;
6 Y6 e+ S- [$ X, [' U' C$ o                end;
        next;
        machinename:=sprint("M",rows);
! i8 j& K: c' 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]);
# E( X, t- G0 C/ Z9 L4 |7 E7 D! V! E        machine.name:=machinename;标识符未知
* L4 `1 b) P' E; m3 a( {* ^        machine.proctime:=5;
1 ^! y2 i* `8 ]  b" M        machine.label:=activityspace[0,rows];
5 b% |/ F, {6 I/ L, ^, \. I        machine.exitctrl:=ref(leave);
' K2 c2 R! V; E       
7 W  V! B  v- Z        bufname:=sprint("BF",rows);
  C; s& T: s0 s% K# Y. F        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]);
* X: Z8 Y' _2 e1 D        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
. I/ }6 w9 a. A/ y% j       
! ^% `% t5 d8 ~( g8 i) z        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;
0 Q8 o8 N* }1 l0 c7 qcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
9 Y. E0 y) P. f% ~  h