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

zooey

is
# p3 K; W* _# Z: f# o) k( Q- @+ @        mark:boolean;
0 T- z& Y1 J, w' p( w/ ]! s        dx,dy,ct:real;
    i,j,rows,lines:integer;
2 b  d. S( E! F4 x9 z/ `" S    machinename,bufname:string;
* q, G/ ]7 g5 i$ d6 j    machine,buf:object;
, u: J( ?0 I1 T6 C7 Rdo
" q% }: |) N2 ^  J3 G2 A        current.eraselayer(1);
# `5 r0 ]7 m/ M; b       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
3 N  ]$ ^  j$ Z1 Y7 \, ]                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
8 u# J1 D: N! W6 F                        print"no";
! F' ~  K( W# |! j! Y* ?                else
/ E/ A9 j2 B& h  z1 e% p, \) }1 w                        print"cancel";
& @% h7 S4 m5 \7 y2 f% E                end;
$ y" G5 t/ u+ I& L  G                eventcontroller.stop;
        end;
       
4 k" B5 V- `( z4 `$ ]0 k        for i:=1 to number_of_machine loop
0 z8 }# O& n* Q' Z, ~+ k        machinename:=sprint("M",i);
" ^, a8 e. L9 L) F! q        if existsobject(machinename) then
6 H7 p3 V2 W/ H/ s& L                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
9 U# A/ R% @+ X  f) j8 {4 o7 v/ @! p        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
0 ^( y( R4 Q  j: M" o# b8 @' A                buf.deleteobject;
        end;
; _$ `( \' X" W, q1 K- r        next;
3 x3 H' t- Q9 R. v! k       
& B# c" r! k- y: b: H4 `        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
3 O& M9 W9 `2 N                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
; R: n4 _2 a: f) V1 p/ `                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
' Q8 y7 O8 {8 j+ ~- _! U                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
0 h3 H, J  E9 T9 ]% f                        activityspace[1,rows]:=ct;
                        mark:=true;
) S+ ^2 `* N  L8 T/ n$ B6 p7 t& N1 {                        else*/
                        y_max:=y_max+dy;
* R# w2 f, N# R# p' v/ ^/ O) [0 h. d' H                        dx:=0;
                dy:=0;
8 \: u% {& G: M8 ^9 L$ d                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
3 f7 X5 G7 a' ^- U9 @                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];
$ U" _3 W; o! v0 _                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
2 ]+ T$ I" F$ L, K- a3 n' E, @                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
% d; n' q( q5 e* u" E* n# S        y_max:=y_max+dy;
+ M: @7 U2 M% 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);
2 Y1 k! b7 ~6 f- s+ g( p2 `        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);
       
1 C8 B8 ]5 `  Q) L% r% }# _5 g        rows:=0;
        lines:=0;
5 X# d: f( m4 U        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
7 V( @3 p8 t7 ^5 _                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
: b5 z/ j0 f5 m7 ]! ~; }- O8 B0 s3 \                                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);
$ L+ M& u" R1 A2 I+ @                        end;
7 Q5 J. [0 T& A$ e2 i                next;
, ]* Z1 K, S" s' T$ \; x        next;
       
; x2 S& @& F/ g        lines:=0;
6 D, ~. ~1 ?3 [# l1 ]( P/ t8 y" \        partstable.delete;
       
' l4 a2 e% O( t3 R% G        for i:=1 to number_of_machine loop
$ J; ]  [1 b6 J                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& A8 P! W9 {9 a1 z7 R) {' w6 f                machinesequence[2,i]:=rows;
5 |0 b3 i/ k$ V3 e# A! k                for j:=1 to number_of_machine loop
9 A8 z1 E) m6 P4 O$ L                        if w_from_to_chart[j,rows]>0 then
& C$ D; n* l' J, c6 P: v; B* Z                        lines:=lines+1;
: F5 Q( F5 i; I# ^& q4 O                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
, j- \6 I8 B; T: G% `                        partstable[2,lines]:=w_from_to_chart[j,rows];
! w$ I3 a. B2 n  {6 P7 t                        partstable[3,lines]:=sprint("parts");
9 o4 \  s% V2 a6 P. [9 H% n                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
, g6 W5 r2 O6 j6 C& h2 s        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]);
3 T3 B7 Q4 K9 s3 Y7 n) c        machine.name:=machinename;标识符未知
        machine.proctime:=5;
7 j: ^8 y4 h1 N3 }4 u% u0 f6 i        machine.label:=activityspace[0,rows];
$ u% Q+ o+ G1 }# F& K3 M5 b        machine.exitctrl:=ref(leave);
# p& E* O, a, C$ j9 k" S# j       
        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;
/ n- g: _: f. x( D        buf.proctime:=0;
7 Q* P4 C- @4 y0 L2 [        .materialflow.connector.connect(buf,machine);
       
: j6 I, t  T0 q. q* ?8 F        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
& F$ H2 Q: F+ ?; qdy:=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);
6 f  h1 k) N+ L& l) L: Xnext;
. h9 z) F( D/ k  J& Send;