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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
5 d! Z- l, W" C$ `: H+ L    machine,buf:object;
0 A: q# z. A3 j% l+ fdo
6 Q/ x/ U& {% ^) E9 J0 |: _# V        current.eraselayer(1);
* {' I  O. H# m$ ?       
! v  J0 O3 _. `: L* o        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
  _; E6 v7 S4 _1 b' P                when 16 then
                        print"yes";
: k9 D( R5 k, x; |9 u                when 32 then
                        print"no";
, h1 V+ W" [# X& I4 [, C. M                else
% U- D; L- j7 m3 |% B                        print"cancel";
& {, `% w) c& o6 g0 E                end;
                eventcontroller.stop;
        end;
, X6 ^% p; n: T9 {7 U) U       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
1 p7 V2 l" A9 g1 j5 S  _        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
: T, Y8 u0 z. ]                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
) y: x; p% G4 e. f        if existsobject(bufname) then
% p5 Q( Y* F& E7 w6 p. @                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
; H4 |0 u3 v; u- K; b0 k, o- z  F$ @. o       
        dx:=0;
) H0 X7 t. f- g9 U6 G        dy:=0;
5 C  ^/ e* U9 }# r1 P6 Q% l        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 x) d7 Z( r$ Z! w( {( Q                --mark:=false;
  [2 \7 G  D* X' C, L  g4 f. c- c6 _                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
9 m$ h& r$ D3 a# k+ g6 ?2 x                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
2 P5 l# G; }2 `5 |                        and activityspace[1,rows]<(1.05*y_max) then
$ L9 J: Y* L/ [* g' x                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
; V# P0 \. Z& B0 x* D# q                        activityspace[1,rows]:=ct;
9 O* U8 a; P. x$ l. D* r* ]                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
' Q, f$ v) }8 q8 M. ^& \                        dx:=0;
6 U- p# w8 E! L9 @7 p6 P. \                dy:=0;
) `% P' T, U2 d3 J                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
$ t8 t/ B: y3 p                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;
; q, a9 {/ ^8 y9 t                dx:=dx+activityspace[1,rows];
                /*if mark=true then
) C8 p2 I1 c6 f: d: [4 l2 w1 v                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
/ W3 i7 V2 b1 \  v                        activityspace[1,rows]:=ct;
( ]" }8 P5 X' s. G  a9 ]( h# F                        end;*/
8 m3 l; ~  b5 d, J        next;
: z& F" A; R5 t! U7 k4 }) l1 g: o8 w        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);
! o: E. D% H' n; c, k        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);
' n: L7 E! n) j8 b4 ~9 z$ T+ i       
! s1 A* k) J3 x7 o1 i7 R        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
2 }. U- l$ b7 Z& H* E                for j:=1 to number_of_machine loop
. a8 C8 K- ^; @4 Y  E% p                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
: Q3 q% G% g9 O8 g) f  }0 r                                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);
                        end;
9 Q. W3 [% Q7 }: k+ f# \                next;
3 T! b8 S/ h/ Q) ]5 }0 Z        next;
       
0 R* W& ~) {/ `( M# N% J        lines:=0;
4 `6 n/ k! I, u4 N        partstable.delete;
" X4 h* X, o' U# S$ W* a9 K7 h+ F& P       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( y4 ^7 F/ ]& v' j                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
$ x3 ?2 ^; M& j3 j7 o+ g                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
$ p) ~; ^# P% [9 }- ?                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
- D4 F  y$ p) q( ^2 l1 |                end;
/ H* x; V+ K7 p8 P        next;
        machinename:=sprint("M",rows);
# C1 m- _- F! w        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]);
/ G1 d% J6 `# M  `( F        machine.name:=machinename;标识符未知
9 x- f% s0 l6 ]6 {" q# k1 {7 b        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        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]);
  q. Y0 M+ j+ u$ _3 {+ y        buf.name:=bufname;
        buf.capacity:=5000;
% B) k& q) @7 O, H        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
* Z$ [8 w1 G: }* udy:=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);
next;
: ?# ~! J+ j. h* Dend;
, d. u+ R; D% p