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

zooey

is
) V. Z7 T* f9 E& T9 Z  C        mark:boolean;
        dx,dy,ct:real;
9 ?4 O& m3 C% h    i,j,rows,lines:integer;
2 V' T+ S8 q. I/ _1 o6 i5 W    machinename,bufname:string;
    machine,buf:object;
do
: p+ V+ m# v' m  M. z! _' G, }  D        current.eraselayer(1);
# C* J& d) @3 L5 L8 u8 q  i. c       
9 U0 z0 v* u4 c$ j$ R7 c+ ]        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
5 l9 r. _" s# l* f                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
- R0 a9 u5 Z/ e, N5 E$ l, r                        print"yes";
                when 32 then
9 t+ R; L) x- t                        print"no";
                else
& A. M, t8 f6 f6 A5 n, d                        print"cancel";
( S$ T6 x/ q, `                end;
                eventcontroller.stop;
4 ^1 c# E4 g; d        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
9 d4 |; r8 z5 h4 I' y" s. i% W        if existsobject(machinename) then
+ ?: m2 N3 C) ]! n                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
+ `8 b; G8 e' r( J: [" }$ e* E        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
4 A% ~! U6 d2 L1 \5 K* G; A: h        next;
       
* Q) _, N' O: C4 X        dx:=0;
/ Y5 A6 ?. X3 ~) m        dy:=0;
& R5 k+ H) G1 i( V' f        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
: [: p# p3 Y; x1 ~8 \: c                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
+ M" x& ?5 ~( {                        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];
                        activityspace[1,rows]:=ct;
                        mark:=true;
9 `4 n- B' I6 l( z                        else*/
  g# S% z/ s! U; S1 j6 O                        y_max:=y_max+dy;
                        dx:=0;
9 t% Z' t2 ~4 U- f/ N3 C8 _% P                dy:=0;
$ p+ `* k) g/ U% B& K) }                        --end;
                end;
8 P; J% Y7 y5 R5 R/ r" ~* e                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
8 o2 _7 G3 Q) ^  q0 k; t& m                        dy:=activityspace[2,rows];
# a- n- f2 ]' D- p+ l                end;
4 l- E/ Y7 J5 e8 ?% Z7 H                dx:=dx+activityspace[1,rows];
                /*if mark=true then
/ `2 `$ m+ Q' C3 V2 i9 I                ct:=activityspace[2,rows];
, \1 K$ W, @- U( C/ h- X                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
% [! {) q6 t, e+ d! Q& Y                        end;*/
: N  ~: u- H! h- j  }8 G' G        next;
% p3 P  A. h  [1 H3 Y: s        y_max:=y_max+dy;
. z% |, L3 F" R' ~6 X; |        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);
       
* \1 }& M6 V3 s+ b! o- u) P# V( t9 H7 e        rows:=0;
9 \+ c6 A! B* _0 |2 g: P$ P        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
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
; [) k! A9 J3 f+ A8 [                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
% Z5 F% N0 r3 {1 p5 G7 j                                d_from_to_chart[j,i]:=abs(dx-dy);
1 ~) Z5 V( n9 v% z/ B                        end;
  O2 H% t- N) o2 a$ L+ I! m9 f                next;
        next;
4 J6 V6 E( ^$ p6 _  _6 P       
        lines:=0;
        partstable.delete;
+ {, v+ d* Y5 @8 W" A# a2 F       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' g; `  X) A6 ~. a4 q                machinesequence[2,i]:=rows;
6 e) n5 c5 r; Y' Q# d                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
: P1 A8 m) e4 r$ O# G8 f                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
# K: z! E- |( V6 L8 f2 ^                        partstable[3,lines]:=sprint("parts");
+ u! l% s; a  ?                        partstable[5,lines]:=rows;
* c6 F- U; Q: Y. u1 j                        partstable[6,lines]:=j;
                end;
' G) j1 T' U* S2 M- S3 g4 \' n; \8 |        next;
5 D+ b) N+ Z' {4 x' ?6 x        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 V7 w. R' Z! _        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
) ]3 ~; Y$ F1 F$ _* [0 S0 E1 U        machine.exitctrl:=ref(leave);
0 |/ J. r4 Y- T  }- G0 g) ^1 g       
        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]);
" s. P) U- ]5 |5 ^1 W) }        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
& z, b4 j$ Z! Z2 L" W! P/ V, r; wdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
# h$ h! t0 N  Kcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;