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

zooey

is
+ y% N) O# f% p& d* R        mark:boolean;
        dx,dy,ct:real;
6 A0 e7 [/ T3 [% m4 Z8 |    i,j,rows,lines:integer;
; V5 |% h% Q. t7 k' r8 w# o$ r    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
5 o! W8 C7 q3 m# j       
2 f4 ^* L7 l. ?/ O+ Q% D        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
- e" e! k  S- Z3 X  V* r                        print"yes";
                when 32 then
7 X3 @% U6 D" e2 L( ?7 S; W6 a                        print"no";
) r9 z6 @: _) k& q) o                else
                        print"cancel";
                end;
- J, a  j( d( m# d: j" t5 m                eventcontroller.stop;
- U- U2 Y* N* B0 o/ t5 V        end;
       
7 B+ v3 U1 n2 G+ x- n$ Q9 _" @        for i:=1 to number_of_machine loop
9 u$ \: [$ Z9 {' d        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
& T* Z5 w* n; |! V2 E) v                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
- r3 x! u1 P  Y6 \0 K! s2 w        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
- E7 O0 m' m# E* u6 q                buf.deleteobject;
        end;
        next;
' M" a1 `) S( G6 C       
* a0 w3 w5 B' ]6 |) C$ Q1 a        dx:=0;
        dy:=0;
+ \# ?* |6 v1 x6 S        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
  t' G$ P- R& S                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
2 F! s$ `- D- s* U                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
$ B8 \" j7 w, r& L! c) Y- S, C                        print activityspace[1,rows],",",activityspace[2,rows];
/ W& o: {  d0 Z: E                        ct:=activityspace[2,rows];
' \5 H) q' m, h# H2 _2 v7 z  `                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
: j! a3 t/ W. D. d+ d% e+ }7 B                dy:=0;
% u; @4 F  h/ Q+ i* d% ^                        --end;
" E- Q$ T# v: o& d                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
8 U/ ?2 P8 \8 Z7 P; H" c: `' m: 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];
/ h" ~9 D- }" \                end;
% w7 P3 ]% D" l. w( i' q1 S                dx:=dx+activityspace[1,rows];
- q$ K) B0 `# A8 l; \  {                /*if mark=true then
                ct:=activityspace[2,rows];
; Z; r) n& W: G! D                        activityspace[2,rows]:=activityspace[1,rows];
1 J2 S# j$ X4 v- ?3 b# R                        activityspace[1,rows]:=ct;
                        end;*/
4 `  j! Z- g2 J& G        next;
9 b  y' b$ o5 b        y_max:=y_max+dy;
, l0 g' k. c/ |/ \        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);
        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);
% x! o$ _6 F9 f       
        rows:=0;
3 {/ v* T  X: K) \7 E0 V& d        lines:=0;
        for i:=1 to number_of_machine loop
: B4 W) V7 I2 L  n; V; \/ I/ E                for j:=1 to number_of_machine loop
( ^* ?/ q1 q8 D9 e( ^                        if j=i then
4 {( t" U, T' b' I3 T# T                                d_from_to_chart[j,i]:=0;
                        else
7 Z/ B( e2 f( n4 A                                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];
$ M9 U3 y3 Z# d" Q3 |6 G                                d_from_to_chart[j,i]:=abs(dx-dy);
. q- b5 k4 g# N                        end;
* h# z) a* z- L7 e0 `' z! [1 n                next;
        next;
       
) W4 ]' ]" e8 `( V& r8 l7 b' T        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
+ y9 _1 H# f; f- U! Q# d7 ?                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. ~/ }0 v% ~& r+ q6 q                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
  R+ M  T$ N0 w                        if w_from_to_chart[j,rows]>0 then
# c1 P) _& x# r! p                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
) w; x0 _: N  x/ Q$ [4 C! r- k                        partstable[2,lines]:=w_from_to_chart[j,rows];
( g% k, o4 k$ z6 s9 a7 X, t% O                        partstable[3,lines]:=sprint("parts");
4 g- G; L+ s$ q3 a& v$ Y                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
0 r% l2 Y$ G8 X1 u  a8 a        next;
1 K. c# s& x  f4 n% v0 _/ n        machinename:=sprint("M",rows);
4 ~/ I' W1 q# @, ?/ A7 o        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;标识符未知
+ W8 `; m" }( V! o& b0 C        machine.proctime:=5;
0 C. x" @! ]; `8 {' T        machine.label:=activityspace[0,rows];
; P  @  m) d6 B# G: i        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]);
2 R0 T$ ]+ Q& F7 ^: c, v        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
3 g9 j0 z4 c: c7 \5 A9 z       
! Y0 Q$ L8 N& G1 A. O2 D        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;
: F; i: \2 a% w  [: oend;