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

zooey

is
* s5 T4 c6 e) u" l        mark:boolean;
        dx,dy,ct:real;
7 Q5 \  G6 O& j' `    i,j,rows,lines:integer;
    machinename,bufname:string;
0 R. r5 I* ?4 G) |: s9 _    machine,buf:object;
do
* m3 ?9 o" i5 S" G4 K/ H' B7 [8 `        current.eraselayer(1);
       
. o! C' T) x  p9 T) z        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
8 l& P# z8 O% i2 F% L                when 16 then
                        print"yes";
) g2 u* U+ p5 D% z: c                when 32 then
! Y9 n0 n" S/ H* U1 q                        print"no";
1 E# Q2 |7 f& s* K& J: A9 E) O/ [                else
4 ^: d% V/ k. o$ E4 O* n                        print"cancel";
                end;
                eventcontroller.stop;
' l" m# A7 K2 K0 C: o' }4 d        end;
* q7 K3 j+ n9 i: C; I       
        for i:=1 to number_of_machine loop
8 F$ p& o2 A3 Q' n7 ~        machinename:=sprint("M",i);
2 w7 k, U/ B3 ]        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
' e! t, h' {5 a4 P( E& m9 z                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
4 j; i+ h7 e% k) C        next;
% i6 O8 R% ~4 j, n3 `: K% v+ e       
, _4 L) z7 Q2 ]8 o4 p5 t        dx:=0;
        dy:=0;
( j9 v& I! H5 S0 w- J  l( x+ R% ~        for i:=1 to number_of_machine loop
' V" h3 R5 M: i, N( t                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
7 ?4 {# Y8 m( _8 r6 \                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
  Y' m7 p  ~0 q# w) v. M                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
& X9 ^1 }. M! h, [                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
, P9 K' l( f: d2 m: B5 h  v! J                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
; s8 p9 k3 h: K+ y) J2 `. k                        dx:=0;
                dy:=0;
! C$ Y) ]/ r8 ~5 o+ z5 g                        --end;
                end;
) y7 O7 A6 y' a3 ?9 H" U3 d                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
; C  V# y3 L) @* P  {: b                end;
: x  P( t& v# b7 ?  R; B4 u  u0 d                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
- q; }3 `3 c5 T* T; k                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
" D  c) c, X: k6 g3 ~        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);
* ^* w  ]1 S% k# m$ N        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);
       
        rows:=0;
+ X6 E1 C3 @6 ?2 P. i        lines:=0;
        for i:=1 to number_of_machine loop
# i+ g/ n  m5 X( X  q                for j:=1 to number_of_machine loop
                        if j=i then
* d# Z  a1 m; ?% p: c+ ?                                d_from_to_chart[j,i]:=0;
                        else
+ C8 q5 f0 x* q$ S# c. U$ w( P                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
" ^2 {) B9 b7 E! H: @$ U                                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;
                next;
        next;
       
        lines:=0;
4 h$ w- u0 |1 k; H7 K! T' O        partstable.delete;
       
$ E8 s) a# R1 ^" e* B1 A* K        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
+ N& F% n4 t. j( C& A5 ^( c+ j                for j:=1 to number_of_machine loop
- E: X, I( K4 i6 [  q                        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];
                        partstable[3,lines]:=sprint("parts");
9 J# Z* T* L4 q( k                        partstable[5,lines]:=rows;
/ w9 i9 `. n8 p: t2 j& ]2 [                        partstable[6,lines]:=j;
                end;
        next;
; e# f- q; i: g- |1 G        machinename:=sprint("M",rows);
/ [3 f" L9 Y  ]  |* F+ z; r        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;标识符未知
/ T- R  _9 P) C' p8 g. w' J        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
/ {. \5 U7 H# E        machine.exitctrl:=ref(leave);
       
& q! T$ i/ W0 r2 }        bufname:=sprint("BF",rows);
. N0 b% G8 v' H8 t' o, R        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;
3 Z& T1 w! P3 A5 T3 P% _/ v        buf.capacity:=5000;
        buf.proctime:=0;
, O, f8 [2 @7 U+ |5 V& L  R        .materialflow.connector.connect(buf,machine);
       
  x, x$ N) f4 W: ^4 M8 w( v& X- `$ p        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);
next;
2 W2 B" k& u. D' N6 |8 `3 Wend;