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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
" p* \: c  f5 k  ?2 ]    i,j,rows,lines:integer;
    machinename,bufname:string;
0 f1 g3 O# E$ h: g$ w, B    machine,buf:object;
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)
. F) N" C4 v& K. t3 P& G# E                when 16 then
. h9 A" L  X1 o, l) z% A. |                        print"yes";
                when 32 then
. ]9 m1 Y* N0 g7 O                        print"no";
                else
7 g9 i: u! }2 R0 @                        print"cancel";
  V, n3 i0 ~  u                end;
3 }% u: v- |2 C/ y                eventcontroller.stop;
        end;
       
2 s$ i8 `7 |6 d# _  ^  G- r9 k; G/ S        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
) E! Z9 l& v8 `) U  L9 z        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
- B' e; {0 G/ f# m+ _                machine.deleteobject;
4 A' u: X/ l' D- _1 C, w' W: B9 w& B        end;
5 f/ y* X; ?0 b+ |3 P0 s        bufname:=sprint("BF",i);
: R6 v5 H5 U4 ?2 L        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
- Z) R( K/ w0 f# n; f                buf.deleteobject;
        end;
        next;
       
. q7 U- _  ]( j$ ?' J        dx:=0;
8 ?6 b! {. j& w/ ~! F( x        dy:=0;
        for i:=1 to number_of_machine loop
8 n- x0 s( I$ [2 C; E                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 g- ^0 y. v0 s2 W4 Q0 J. \                --mark:=false;
. n0 Z4 L" i/ ~$ w5 G" Y                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
4 o; k8 g0 f6 p1 q' z                then
- H  p6 p0 I7 u1 L3 e                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
* O1 y* b1 P& @8 H- ~- `1 z                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
' Q$ [2 ?2 x# d) U# K- y                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
4 x  p/ c1 u# O; Z: E& A: q( k* w                        dx:=0;
                dy:=0;
; e9 @* P8 I* Q  u1 |# `                        --end;
2 n, B7 A: W0 V8 V                end;
, l2 A! x9 F7 f* N( Y& ?- b- O                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
8 \# [1 r" y2 M5 W' D                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
# Y2 K. g; X. _; O: w7 t: ?$ |            if activityspace[2,rows]>dy then
; u' z  q2 @6 Q9 I& U, v4 O                        dy:=activityspace[2,rows];
- E; S" o8 E; }) |- H                end;
' }; J' R) E+ c1 Y# z! x8 ^: @6 J" O1 D                dx:=dx+activityspace[1,rows];
. V$ J" B# c3 M# U8 Q, H, R                /*if mark=true then
                ct:=activityspace[2,rows];
- }  _/ V1 u9 t+ s( P# R                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
& a. x3 I( ~4 x0 q* x- W                        end;*/
+ T! e  F8 U- M) B( q: \6 R0 ?2 e        next;
# W  {( m* T4 _% @6 Q        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);
8 V4 a! i+ _; j2 F* y/ [        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);
2 C& y& }6 p5 d& _3 i5 a' Q       
# M! L3 }! Y0 S$ N9 x3 @' U        rows:=0;
        lines:=0;
- w+ O2 x4 s5 M7 r        for i:=1 to number_of_machine loop
: ^: y; m' ?! q3 Y8 n5 n/ d* `                for j:=1 to number_of_machine loop
* |7 }2 `% k- ~/ S- }1 w                        if j=i then
                                d_from_to_chart[j,i]:=0;
7 ~. N. |. H+ E" _0 P: Q8 e+ }                        else
3 |9 Q* n6 M0 d, l* O" j                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
6 e4 c- f8 N  C/ h3 O/ h2 P5 f                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
+ V. M& A9 C. V                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
; Y1 p  }- X- }' w0 G                next;
        next;
       
6 J  O2 \. q, v9 i0 Q        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
# J  b8 W; P; W  B# j                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: F( ?) y# T7 _4 N1 j) z                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
: `# }. j- k; l% F1 D' r' }                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
8 v1 O* C8 w( W, ?/ T, f                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
$ g2 u) x: f4 ?" c% g        next;
        machinename:=sprint("M",rows);
' L% c+ B; F% S# [" A' _; I        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;标识符未知
; g( }5 O% S9 S# i1 ?6 ~        machine.proctime:=5;
  r& [- i9 E- q. f! d        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
( o9 R; u( B  S       
; H! A# R: {! [' s        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;
& j. p- N, L0 l( L' u3 U+ c9 e! [        buf.capacity:=5000;
        buf.proctime:=0;
, q+ B1 F# J$ D! K% D8 m        .materialflow.connector.connect(buf,machine);
       
6 H& Y( y2 a6 ^4 q7 y        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
# U$ L; ?% u5 j5 K  onext;
$ C7 ~: m% C+ G, G2 l7 Xend;