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

zooey

is
( k' @8 f8 b$ N& b- G% h; T        mark:boolean;
0 p, k( Y2 e$ S6 r' w        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
+ s, v2 e$ Q1 E+ c8 t: L3 g# {do
        current.eraselayer(1);
* d, S# A. ?6 L! c       
' b7 C. c! R1 v- y        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
% Y$ r" c0 k2 x: G) Z8 {                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
% k5 E3 k( G$ V* M) G! A- z* y                when 32 then
; n6 D3 t6 R! I                        print"no";
- c2 c2 \8 k- r" m2 N                else
" g" P/ `2 s- ~: B4 s7 A                        print"cancel";
                end;
9 {4 Y, B7 U# u5 {6 v% W; Q4 Z/ l( F                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
% \. F/ u' J# ]( k; k3 E; x                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
* P  @7 V/ b; u' ]3 U9 R7 _        bufname:=sprint("BF",i);
% ]& H* Q" }( Z, @. c" I" z        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
, m+ Y* a1 }/ S7 r4 v' X! a1 v                buf.deleteobject;
        end;
6 f( P( s8 Z! C1 s, e9 _' `' t        next;
2 v# {" L0 F& v' K- i2 f* C: W       
        dx:=0;
) N8 O: P/ K2 T# d8 B        dy:=0;
9 ^( ^" W& |* W% B' _        for i:=1 to number_of_machine loop
$ ?+ c5 l: Z/ E2 M4 [                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; J$ ~: W6 ]& f3 G0 v                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
9 x& c6 e) V1 k( K; T6 Q5 j                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
- l& M% \) ?! S" ^; T                        print activityspace[1,rows],",",activityspace[2,rows];
* J% _: k+ j! b2 V4 U                        ct:=activityspace[2,rows];
* l$ M' t- `% w( h0 A1 U                        activityspace[2,rows]:=activityspace[1,rows];
' {  [3 f) f' E                        activityspace[1,rows]:=ct;
9 T  b" k6 [; [, c- h                        mark:=true;
1 i1 f' R+ d6 \  C3 L                        else*/
0 j' c, |1 N4 k                        y_max:=y_max+dy;
2 B; g1 P2 a6 x/ x. \                        dx:=0;
                dy:=0;
                        --end;
: g- M2 s1 S: r" E                end;
                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
$ }0 _2 k, A" T                        dy:=activityspace[2,rows];
, V- v$ }# ]6 H7 ?                end;
; G2 m/ j9 s2 T  D' e2 x3 U  w# G: S                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
; W# ?/ F( l: n* r: r: d                        end;*/
3 Q% f2 {7 S2 O7 X; _3 \        next;
        y_max:=y_max+dy;
# O" A. j+ x% m' V7 Z        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);
. x  r& a2 W8 M- c, j6 o) \0 E        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);
       
/ m3 s: S7 Y# i        rows:=0;
  _/ V6 ]7 A7 j, _/ j* N8 C        lines:=0;
        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;
                        else
( c: K% r3 w0 [- G                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
, f4 _# s9 J0 p1 l, p                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
% G9 Q4 q* x2 ]( G6 P3 Y                                d_from_to_chart[j,i]:=abs(dx-dy);
' q; _; e4 T8 A; @3 n) T$ {                        end;
                next;
/ t- j9 C5 m- _7 z6 S: [! K        next;
       
$ Q0 N: r; E) O& K/ t        lines:=0;
        partstable.delete;
6 X8 |1 @9 V  d& E% o+ T0 M) C       
9 Y. R9 J# L$ l' M* E+ |& O. N        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
0 }% M* `4 n' |0 Z- L, o                for j:=1 to number_of_machine loop
! R9 t5 e+ g7 v' \/ L9 Z8 i                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
% s0 a. t; A/ f# N4 t) T                        partstable[2,lines]:=w_from_to_chart[j,rows];
# H6 Z* @6 C$ ~5 O  |. T                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
+ s. ^* c) ^; B" w3 j  c        next;
) `/ y- w( E+ j2 j- F        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
( ?* n1 p/ V+ w  Q        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]);
. Q3 r- ?# K7 j        buf.name:=bufname;
" |+ j) K  i( e/ L: f        buf.capacity:=5000;
8 W1 o" _3 D3 z) M$ f        buf.proctime:=0;
9 X  `. h0 R- R# r        .materialflow.connector.connect(buf,machine);
       
0 r, D+ I& D3 M/ G4 j( \9 h( w3 ]1 V        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);
* t0 ]8 I& E4 C% n2 tnext;
end;
& q% a6 v3 @5 h! m" K  |$ C