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

zooey

is
& ~3 ?9 n1 ~. V, J' e        mark:boolean;
9 w7 q8 V7 }& }4 N        dx,dy,ct:real;
    i,j,rows,lines:integer;
9 V+ A% o9 p" S: c    machinename,bufname:string;
    machine,buf:object;
do
5 q+ P, X" _3 z' e( S        current.eraselayer(1);
( q- q+ B+ J& _9 V1 E2 R* T& j       
        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
                        print"yes";
                when 32 then
                        print"no";
8 P* R' Z- J8 J4 C                else
5 y7 N' x( w6 s: `" `                        print"cancel";
                end;
                eventcontroller.stop;
: _$ W; R3 \& A# ]! @4 m& x        end;
       
9 v5 q4 Q) r8 s0 L) d$ L        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
8 x! D/ S; S$ ]* Q: L                machine.deleteobject;
1 n  F5 l; W7 {& l4 C% D6 p        end;
. q& @  S- m& m        bufname:=sprint("BF",i);
$ ?2 f$ A2 \! |+ L7 M/ x        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
% a" k( D. W0 w        end;
9 h8 N9 c2 F! y  ?: b        next;
       
9 C4 A0 M; U2 W+ d* y* h5 v        dx:=0;
8 n- c3 J* l3 c5 \; a8 W        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 q. f" a9 e4 F4 `3 O                --mark:=false;
7 [' M  `9 }# k7 g7 ]( n, d                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
0 F2 m) G5 Q. v                then
- U( [: Y$ ~5 M( q7 {; H                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
9 `. q6 R9 _0 j3 {! J! w                        and activityspace[1,rows]<(1.05*y_max) then
$ S& e2 i9 \0 a+ [) q% L                        print activityspace[1,rows],",",activityspace[2,rows];
+ d$ b& s- H/ A3 w                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
# `% N1 J  a( |  W                        activityspace[1,rows]:=ct;
                        mark:=true;
2 Y( d* t  @, M" E+ M4 j8 A# k                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
0 L& V) Y7 c) X                dy:=0;
; ^4 m1 E4 ~* d4 f/ @  L1 ]                        --end;
: K" }$ Z* D/ J5 h) J                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
: x, k) s" R9 O) H( T                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
7 I& ~6 c# \1 [3 K) @; r1 _" i            if activityspace[2,rows]>dy then
! `! u$ \$ _6 `* k; O5 A                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
" x8 m. i& P) W/ S( y                /*if mark=true then
5 C* U% L0 N/ M6 C3 s. E$ ~7 A                ct:=activityspace[2,rows];
4 Q4 D2 H/ t. a; g0 g) @                        activityspace[2,rows]:=activityspace[1,rows];
; N* _1 P3 j2 ~* f; L                        activityspace[1,rows]:=ct;
1 x) i( F5 y3 A                        end;*/
        next;
        y_max:=y_max+dy;
& Y6 D$ r' L+ L  o$ q. |& T: Z* v        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: f2 p& m+ f8 D) |3 Y2 R9 e  ?       
+ c+ {7 v/ Y' ~2 X8 f7 V% h- B        rows:=0;
        lines:=0;
! P6 m& A0 S& P4 }% L% W6 |        for i:=1 to number_of_machine loop
# t1 K# e4 d# V' u/ M4 K& c                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
- Z) v. F/ i4 F% M. B9 r                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
  A. V& o; Y6 Y* P+ h                                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);
8 i3 D% X5 W4 h8 y  {* ?! J                        end;
# q5 r! A+ f# F. z' Y                next;
) Z& x, {, U  P  W        next;
- c2 v9 }0 B1 I. K1 A& {       
+ d, M- Y$ Z3 w) J' B6 n' ]3 H        lines:=0;
        partstable.delete;
       
5 a! Q. \# y+ W; v, J        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 S9 L. o3 D6 C                machinesequence[2,i]:=rows;
& R( t) N: a3 b& I3 Z1 x+ o. G                for j:=1 to number_of_machine loop
4 E& X5 I% h# `7 I' x# D3 V                        if w_from_to_chart[j,rows]>0 then
- k2 X2 D+ I4 e8 T                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
( m# P; m6 v5 n' d                        partstable[2,lines]:=w_from_to_chart[j,rows];
' M( G2 v% N$ s. _  D7 Y                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
* i( G1 S7 F6 t1 B* O3 \5 n! W                        partstable[6,lines]:=j;
                end;
        next;
$ k2 H+ F7 D+ \) w8 W9 v# R2 b        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]);
) K. R, D/ d1 h% Y* F! v$ X7 E2 L        machine.name:=machinename;标识符未知
        machine.proctime:=5;
: n8 t3 R' g1 l3 I        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
7 `) C! N: m" Q+ c        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;
        buf.capacity:=5000;
        buf.proctime:=0;
! l$ c  K+ }' W" `/ e# Z5 Y        .materialflow.connector.connect(buf,machine);
' H0 s0 Q0 P) ?3 y       
5 n0 `. l6 K3 t: K( }% h8 m        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;
8 H/ L& u3 i' h, o. T' tend;
* O3 b7 O. ^$ y' r8 h2 t. u. G