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

zooey

is
) \4 E  w+ W; j7 Y1 x        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
* {+ e# i7 A1 w0 x( P    machinename,bufname:string;
    machine,buf:object;
2 n+ U) X: t! H9 e0 M# ]do
" v2 P, E9 z' q$ n7 J        current.eraselayer(1);
/ ~) _5 n9 s( w0 Z       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
+ S5 k( p# `1 X: J8 |                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
' T4 C, m$ m) O$ G# n9 X8 i7 x                when 32 then
                        print"no";
6 i) M3 a, M4 X, g9 X; d                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
4 `2 k1 P2 Z5 W# @) Q        for i:=1 to number_of_machine loop
, ]! o  F" p1 K        machinename:=sprint("M",i);
  o: g% L/ ~  ^  Y: U        if existsobject(machinename) then
# r. m" T2 U3 L, p                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
. W+ Q/ a% ]2 d. O( L% p* o# U( y        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
" ?" P, F! `8 L5 q                buf.deleteobject;
        end;
, ^6 J9 h2 Z  r- b( ]! K! c        next;
       
        dx:=0;
  F7 C+ i" m& E        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# l8 [' g  U( Y9 a( h                --mark:=false;
8 i6 U: m6 P$ i9 ]                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
& L+ v: p' V& P, U7 _2 x                        activityspace[2,rows]:=activityspace[1,rows];
/ P' ?# H, K/ |2 M: o! e) |5 w                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
: [: [5 V+ C6 s5 i; V+ v                dy:=0;
! S& E7 }# F) @5 m) e  S                        --end;
8 _5 d5 |1 |1 N+ C3 O. K" |7 u! a                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
6 r" y. {. t9 @( t: S. G# h                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];
* n* n5 l& v$ G( T8 W                end;
                dx:=dx+activityspace[1,rows];
9 Q4 ~" ^) ?/ d, D: k0 r. B                /*if mark=true then
' m0 i5 x8 n$ o" a6 `0 |6 m4 Y7 `0 M                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
+ _  o6 Z: w& `' `0 T+ [        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);
$ M! [. ~; z" U+ L: ~       
2 ^* F& V) f  D, p) f) u        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
" n% Y! l/ @  G                                d_from_to_chart[j,i]:=0;
$ P: K1 }2 v7 b. q% k                        else
                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
4 t. y( V, B. c$ Z                next;
/ |3 k4 Y. p2 X; ^- {4 t        next;
5 ^* D5 y' b% S) A- [       
        lines:=0;
        partstable.delete;
       
, m( M; d. C: {/ u        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
9 c2 s4 K- y! V                        if w_from_to_chart[j,rows]>0 then
2 f; D& k; e- _, f                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
! t/ Z1 D1 Q8 u1 R5 Q3 Z                        partstable[2,lines]:=w_from_to_chart[j,rows];
$ i, O, d1 Z" k7 W! `* s1 h( ^& d2 o                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
/ t2 K  ?' n$ j% S) B4 z                        partstable[6,lines]:=j;
9 m6 Q2 C. C! |9 s8 U. m$ K                end;
        next;
  j4 E+ `, [& b# @* X/ q+ i        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]);
' P5 f" J: \; o, G* P        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
* d! N7 S  g( t% i        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;
. z8 ?# W* r6 D8 i8 ^        buf.capacity:=5000;
; C5 I. @! A- L7 x" `( y# E        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
2 h2 I& f0 B" R) ~" c$ `        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
9 @1 x5 E9 ?' b. j  Mdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
5 u9 }/ F0 M2 {+ M% a% Z% \current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;