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

zooey

is
        mark:boolean;
( I6 w1 ~) i! x4 w        dx,dy,ct:real;
/ v: w) R6 t/ _4 ?  ^    i,j,rows,lines:integer;
( Q( y- v8 c6 }! I- C    machinename,bufname:string;
% l4 c8 r" R) M6 }2 `3 x    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
, t7 h. ]0 D* t8 E) R$ e                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
6 d' p0 ~: k' z- r9 v                        print"yes";
% B7 V; v: o; g" u                when 32 then
2 u, c! o- X7 o) J. T; Q                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
4 p+ p" d* M8 P  \5 O       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
0 t" w, N& J8 Y) j* i) x        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
, r. {+ e8 V2 K6 |7 j1 v' p        end;
        bufname:=sprint("BF",i);
4 R) A9 J$ i8 V; M4 {9 z8 {: V$ ~        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
3 J7 U; `1 t! m0 Y6 F! p" o1 `        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
, O1 Q' v: z3 ~5 T8 N                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- A1 B1 ]" g3 u2 ?" J; \2 E                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
( S. l3 [8 [* l' w' n7 A                then
) @; W8 x0 ~$ z" n" l                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
* {$ z. C4 |5 e4 `- N! Y0 [1 Q% x$ Y                        print activityspace[1,rows],",",activityspace[2,rows];
  U' A3 O4 m' L6 C2 @/ C                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
6 Y9 v7 z9 G7 e; \# s- d                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
" D# g; C* ]" ^# i/ C                        dx:=0;
5 j4 a6 j" E& S6 o4 G                dy:=0;
                        --end;
0 \0 X+ f; \6 _0 r                end;
# R- A$ L. [7 h  B& G" @7 G! F9 h                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
; A9 _7 _& f3 l  i* x* B# v6 x                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];
2 I5 T  v& a5 h0 C                end;
                dx:=dx+activityspace[1,rows];
0 j" H5 t- R/ B8 Y1 q2 g                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
# E' l# x; N6 p" f                        end;*/
        next;
+ Q0 `3 n& c$ y7 c1 c        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);
        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; N0 P$ `, D  P0 h' D; _+ K* s       
        rows:=0;
9 C5 m6 n8 @  F7 P" F3 U        lines:=0;
" N; R4 J* k, A5 ~- H- G" c* L* ^7 ~        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
. N- t) o3 i' z; `5 \                                d_from_to_chart[j,i]:=0;
" p, c; x- ^5 Z  ~+ x                        else
# G& z! h% @2 j% N( K" N* ]                                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];
) |- R+ {  t5 f; q; E2 B# [                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
' C8 A+ r4 ^- u1 Z+ R0 p/ H2 }- C                next;
! F( G* H) Q: J# I: z% Y$ H3 M        next;
5 B( |9 f6 e% D: |* ^- m       
        lines:=0;
        partstable.delete;
       
# \8 x4 {( X5 {/ o, d% d        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
; E+ q4 A- z* L                        lines:=lines+1;
; X" O8 W5 t- s4 R1 s, |                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
, H/ T- A- }! ]0 F6 T0 B4 _! x                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
5 C* D8 K, N8 R* L6 k        machinename:=sprint("M",rows);
2 h" y% d  v4 Q5 W: d        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]);
, a: M* d9 n! r        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
6 {" m2 B$ P1 b5 P: K  V        machine.exitctrl:=ref(leave);
" `; B2 Q, p7 B1 w& U       
1 ~; \! {/ Q" F( e% s( ?' r- f0 T  a        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;
, c" I6 v  c+ m; A% i9 V1 _. V/ ?        buf.capacity:=5000;
0 m! m! ~; C) a- z" e! W" b        buf.proctime:=0;
. D0 q1 @7 ]  P) S* N1 _' ]        .materialflow.connector.connect(buf,machine);
$ v9 J2 w; C* F( I2 S& b4 V       
* U" L$ b7 g/ p8 @        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;
2 b& U3 D  Q& G) S" I* r! Ocurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
- i5 L4 R# X  D) x' ~% N' d8 \next;
2 R7 L9 F! P5 f& |' ^4 W% S$ W9 N. C' hend;
) T% Z/ K& `* s4 J