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

zooey

is
        mark:boolean;
6 N' V. R9 L+ n7 p: B: O! \        dx,dy,ct:real;
" W* e" K  G9 u( ?3 ]    i,j,rows,lines:integer;
9 r4 }" F; n/ L* Z8 H& `    machinename,bufname:string;
# K* o) i. t- R6 A5 T3 ~4 w    machine,buf:object;
do
8 V: t/ h: C: @) S/ _9 X/ V        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
  w6 A3 [- |$ n: ~8 Q, g                when 16 then
                        print"yes";
* \: h2 m* S: {9 w( G/ K                when 32 then
                        print"no";
( n# _8 i6 ~8 Q* c: n  E1 Y+ d                else
* s% Q7 Q4 ~  Y: L8 {# }8 [7 I                        print"cancel";
                end;
$ p) S* g7 w' q7 y- u1 C                eventcontroller.stop;
# @. s8 }) y* [: G+ V7 B, c5 b        end;
, [/ e: f  ~: i1 l8 H5 d7 L1 Z5 D       
        for i:=1 to number_of_machine loop
8 U7 p: a4 O# P5 l$ {        machinename:=sprint("M",i);
: b( q! u6 f* _) }        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
! E  M. v$ k. z) ]/ |" ]                machine.deleteobject;
9 f& C9 u2 Y* E9 ^6 |        end;
0 k5 V6 P5 O, N6 a        bufname:=sprint("BF",i);
        if existsobject(bufname) then
: [! j8 }) M( s( Y; R                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
6 x1 t3 U; |3 E8 ^; b1 n7 Z       
        dx:=0;
7 `. j9 q( z* {/ o; \3 {( N        dy:=0;
( b3 T" Z: k2 q( W8 W        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
' k) r) H* u3 q, x% g; M/ t                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
) ]3 j1 F5 E3 [. R4 o" a8 t+ V" s                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
( a; {2 C& y# Q                        activityspace[2,rows]:=activityspace[1,rows];
. ^# x( B% G, M0 {& o8 B; R                        activityspace[1,rows]:=ct;
                        mark:=true;
2 ?1 ^5 M! d" T; D- y/ {2 a7 j                        else*/
  x) M: F$ q# C; P2 Q4 Y  [                        y_max:=y_max+dy;
/ q( j1 d6 d) @' L9 V' b2 b  d                        dx:=0;
                dy:=0;
% ~, S1 _& t( R/ d" a/ l                        --end;
( D( A( h. ^1 y5 }9 @                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
: O" F3 V" h# a$ e                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
) j2 q2 a) R7 W            if activityspace[2,rows]>dy then
, j7 h6 e5 B- i( i9 `) {, ^                        dy:=activityspace[2,rows];
+ Y5 q- \* \( q2 Q; D8 Q6 s9 W- A                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
/ f0 h1 y$ S% ^, Q. W! v/ }; g  P                        activityspace[2,rows]:=activityspace[1,rows];
  a0 ~8 E0 Z2 C2 ]1 [( y+ j                        activityspace[1,rows]:=ct;
                        end;*/
8 |5 o9 C5 j* v+ t  F        next;
9 [& d. x! j  X( N$ |5 i# v) a3 o        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);
7 C$ Y/ B6 N! B5 E! H       
7 _& x# r& k7 X, S$ ^1 n$ B        rows:=0;
- ]' u! R7 q# W        lines:=0;
        for i:=1 to number_of_machine loop
# W  i7 y6 ^" ?' i# p$ Q9 Q0 T* j                for j:=1 to number_of_machine loop
                        if j=i then
' d6 d- H* F- a( K. [& `                                d_from_to_chart[j,i]:=0;
$ m) I) r* k! C. a. a. e" |& e                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
* M; e, q% Z4 U! t                                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;
/ P/ b2 a$ N2 l. l/ W8 A, N                next;
        next;
       
        lines:=0;
3 v' v; v: M4 {2 V4 m% \  |7 N        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, v1 T1 z& e3 z2 M7 N1 l                machinesequence[2,i]:=rows;
5 H# S- B2 k( B+ m                for j:=1 to number_of_machine loop
+ m" Y+ X, p$ d6 j' I                        if w_from_to_chart[j,rows]>0 then
' L1 P- k  k4 k: ]  H                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
8 Y! e7 c' Q! N, A; M5 [  ~                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
+ a& v* e/ o4 q) k' G0 D                        partstable[5,lines]:=rows;
1 z  ?4 \- H& ~! K) ^! d  y5 Q1 P- X                        partstable[6,lines]:=j;
& T3 ^5 V2 |4 c                end;
- D6 `1 K' w& v        next;
        machinename:=sprint("M",rows);
3 S& _. T/ b3 F  Q6 ^8 E9 j        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;标识符未知
1 Q6 z& p: s& w        machine.proctime:=5;
5 H' B# i6 y' R5 e; K1 x- M        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
* l1 P0 `, h# |+ g2 I7 d& |3 i8 V$ h       
        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]);
' u( U$ ~) k% Q" }        buf.name:=bufname;
/ o* k; B" z. W+ e) h( @7 u) F* @        buf.capacity:=5000;
) y9 p/ E* w# f3 d7 X        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
3 X9 F# h! w+ s. m1 @2 e- h       
        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);
* c2 D2 K. [" H8 b) f! |1 O& Pnext;
end;
# J$ G- r( d1 ~. b! Z! d$ _